Написать и отладить программу для табулирования функции - Pascal (90279)

Формулировка задачи:

Значений функций y=2sin(3x-0,8) для х в интервале [-1.57;1.57] с шагом 0,25

Решение задачи: «Написать и отладить программу для табулирования функции»

Листинг программы

uses crt;
var xn,xk,x,h,y:real;
begin
clrscr;
xn:=-1.57;
xk:=1.57;
h:=0.25;
writeln('Табулирование функции y=2sin(3x-0.8)');
writeln('на интервале [-1.57;1.57] с шагом 0.25');
writeln('---------------');
writeln('|  x  |   y   |');
writeln('---------------');
x:=xn;
while x<=xk do
 begin
  y:=2*sin(3*x-0.8);
  writeln('|',x:5:2,'|',y:7:3,'|');
  x:=x+h;
 end;
writeln('---------------');
readln
end.

Объяснение кода листинга программы

Объявлены переменные xn, xk, x, h, y типа real.
Задаются значения переменных xn, xk, h.
Выводится заголовок таблицы.
В цикле while происходит вычисление значения функции y=2sin(3x-0.8) и вывод строки таблицы с текущими значениями x и y.
Значение переменной x увеличивается на h после каждой итерации цикла.
После окончания цикла выводится нижняя горизонтальная линия таблицы.
Программа ожидает ввода пользователя для завершения работы.