Question

Составить программу вычисления значений функции F(x) на отрезке [a,b] с шагом h. Результат представить в виде таблицы, первый столбец которой – значения аргумента, второй – соответствующие значения функции:F(x)=2cos x – 1

Answer 1

Program pr;
uses crt;

Var  a,b,x,y,h:real;
Begin
Writeln('Введите a,b');
readln(a,b);
Writeln('Введите шаг');
readln(h);

x:=a;

While x<=b do
Begin
y:=2*cos(x)-1;
Write('x=',x:6:2, ' y=',y:6:2);
Writeln;
x:=x+h;
end;
readln;
end.