Вывод таблицы функции f(x) - Pascal ABC

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

Даны действительные a, b и натуральное n. Вывести таблицу значений функции f(x). Таблица имеет две колонки, в i-ю строку таблицы заносятся значения xi и yi, где xi=a+ih, h=(b-a)/n, yi=f(xi)(i=0,1...,n). f(x)=cos((2)^1/2*x) Вычислить f(a)+f(a+h)+...+f(a+nh)

Решение задачи: «Вывод таблицы функции f(x)»

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

var a,b,h,x,y,s:real;
    n,i:integer;
begin
write('Введите начало диапазона a=');
readln(a);
repeat
write('Введите конец диапазона b>',a:0:2,' b=');
readln(b);
until b>a;
repeat
write('Введите число разбиений n>1 n=');
readln(n);
until n>1;
h:=(b-a)/n;
s:=0;
for i:=0 to n do
 begin
  x:=a+h*i;
  y:=cos(sqrt(2)*x);
  writeln('x',i+1,'=',x:5:2,' y',i+1,'=',y:6:3);
  s:=s+y;
 end;
writeln('Сумма=',s:0:3);
end.

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

Переменные a, b, h, x, y, s объявлены как real (с плавающей точкой) и n, i как integer (целые числа).
Пользователю предлагается ввести начало диапазона a.
Пользователю предлагается ввести конец диапазона b, который должен быть больше a.
Пользователю предлагается ввести число разбиений n, которое должно быть больше 1.
Значение h вычисляется как (b-a)/n.
Значение s устанавливается равным 0.
В цикле от 0 до n происходит вычисление x как a+hi, а затем y как cos(sqrt(2)x).
Результаты вычислений выводятся на экран с помощью writeln.
Значение s вычисляется как сумма всех y.
На экран выводится значение суммы s.