Использование программного элемента Накопления. Вычислить значения сумм ряда - Pascal

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

Вычислить значения сумм ряда S= , при x= для 15-ти элементов последовательности. Полученные суммы сравнить с функцией у=

Решение задачи: «Использование программного элемента Накопления. Вычислить значения сумм ряда»

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

uses
  crt;
function f(x : real; n : byte) : real;
begin
  if n=1 then f := cos(2*x)/3
  else f := f(x,n-1) + cos(2*n*x)/(4*n*n-1)
end;  
var
  x, y : real;
  n : byte;
begin
  clrscr;
  x := pi/6; n := 15;
  y := 1/2-pi/4*abs(sin(pi/6));
  writeln('s = ',f(x,n):0:5);
  writeln('y(x) = ',y:0:5);
  writeln('Значение функции y(x), больше cуммы ряда s в ',y/f(x,n):0:5,' раз.');
  readln;
end.

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

В данном коде используется функция f, которая принимает два аргумента: x (которое является числом с плавающей точкой) и n (которое является целым числом). Внутри функции проверяется, равен ли n единице. Если это так, то функция возвращает значение cos(2x)/3. Если n не равно единице, то функция вызывает саму себя (рекурсивно) с аргументами x и n-1, и возвращает результат. В основной части кода используются три переменные: x, y и n. Переменная x инициализируется значением pi/6, а переменная n инициализируется значением 15. Затем вычисляется значение y как 1/2 - pi/4abs(sin(pi/6)). Далее выводится значение суммы ряда s, которое вычисляется как f(x,n) (где f - это функция, описанная выше, а x и n - это аргументы функции). Также выводится значение функции y(x), которое равно y/f(x,n). Код завершается вызовом функции readln для чтения пользовательского ввода.