Pascal. Циклы. Задача 3

Составить программу для вычисления значений функции f=7*sin(x^2)-0.5*cosx на отрезке [a; b] с шагом h. Результат представить в виде таблицы, первый столбец которой – значения аргумента, второй – соответствующие значения функции.

Решение:

program cycles_3;
uses crt;
var
f, h, a, b: real;
begin
clrscr;
write(' Введите a: '); read(a);
write(' Введите b: '); read(b);
write(' Введите h: '); read(h);
write(' Шаг Значение');
writeln;
while (a<=b) do
begin
f:=7*sin(sqr(a))-0.5*cos(a);
writeln(a:3:0, f:11:3);
a:=a+h;
end;
readkey;
end.