Написать программу в турбо паскале, а именно: протабулировать функцию y=x-пи на отрезке [0; 11] с шагом h=1,1. результаты вычислений вывести на экран в виде таблицы пар чисел x, y. вычислить модуль разности максимального и минимального значений функции y.

240

362

Посмотреть ответы 2

Ответы на вопрос:

Alena26vl

Информатика

4,6(10 оценок)

Uses crt; const pi=3.14159; var x,y,h,max,min,d: real; begin clrscr; max: =-100; min: =100; x: =0; h: =1.1; while x< =11+h/2 do begin y: =x-pi; writeln(x: 10: 7,y: 12: 7); if max< y then max: =y; if min> y then min: =y; x: =x+h; end; d: =abs(max-min); writeln(d: 10: 7); readkey end. результат выполнения программы: 0.0000000 -3.1415900 1.1000000 -2.0415900 2.2000000 -0.9415900 3.3000000 0.1584100 4.4000000 1.2584100 5.5000000 2.3584100 6.6000000 3.4584100 7.7000000 4.5584100 8.8000000 5.6584100 9.9000000 6.7584100 11.0000000 7.8584100 11.0000000