Задана некоторая функция и некоторый ряд. Требуется получить таблицу значений данной функции y и суммы - Free Pascal

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

Задана некоторая функция и некоторый ряд. Требуется получить таблицу значений данной функции y и суммы (S) на заданном отрезке [a, b] Функция: Ряд: Интервал: [

/10;

/2] Шаг: h =

/20 Количество членов ряда, входящих в сумму: n = 55

Решение задачи: «Задана некоторая функция и некоторый ряд. Требуется получить таблицу значений данной функции y и суммы»

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

uses crt;
const a=pi/10;
      b=pi/2;
      h=pi/20;
      n=55;
var x,s,t,f:real;
    i:integer;
begin
clrscr;
writeln('-----------------------------');
writeln('|   X   |    S    |    F    |');
writeln('-----------------------------');
x:=a;
while x<=b+h/2 do
 begin
  s:=0;
  t:=1;
  for i:=1 to n do
   begin
    t:=-t;
    s:=s+t*cos(i*x)/(i*i);
   end;
  f:=(x*x-pi*pi/3)/4;
  writeln('|',x:6:1,' |',s:8:4,' |',f:8:4,' |');
  x:=x+h;
 end;
writeln('------------------------------');
readln
end.

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

Объявлены константы a, b, h, n, а также переменные x, s, t, f типа real и переменная i типа integer.
Задана постановка задачи: требуется получить таблицу значений функции y и суммы.
Запуск программы начинается с вызова функции clrscr, которая очищает экран.
С помощью функции writeln выводится заголовок таблицы значений функции y и суммы.
Инициализируется переменная x значением a.
Запускается цикл while, который выполняется до тех пор, пока значение x не станет больше b+h/2.
Внутри цикла инициализируются переменные s и t значением 0 и 1 соответственно.
Запускается вложенный цикл for, который выполняется от 1 до n.
Внутри вложенного цикла значение t инвертируется.
К значению s прибавляется значение tcos(ix)/(i*i).
Вычисляется значение f по формуле (xx-pipi/3)/4.
С помощью функции writeln выводится строка с значениями x, s и f.
Значение x увеличивается на h.
После завершения цикла while выводится горизонтальная линия с помощью функции writeln.
Запускается функция readln для ожидания нажатия клавиши.
Программа завершается.