Составьте алгоритм и программу вычисления значения функции по ее аналитической формуле - Turbo Pascal

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

Составьте алгоритм и программу вычисления значения функции по ее аналитической формуле и как сумму (произведение) с использованием оператора for. Значение аргумента (если он есть) выберите с учетом ограничения, приведенного в столбце <Аргумент> таблицы. Функция: Сумма или произведение: Аргумент:

Решение задачи: «Составьте алгоритм и программу вычисления значения функции по ее аналитической формуле»

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

uses crt;
function f(x:real):real;
begin
f:=1/2-pi/4*abs(sin(x))
end;
var x,s:real;
    n:integer;
begin
clrscr;
repeat
write('|x|<1  x=');
readln(x);
until abs(x)<1;
s:=0;
for n:=1 to 50 do
s:=s+cos(2*n*x)/(4*n*n-1);
writeln('S=',s:0:4);
write('f=',f(x):0:4);
readln
end.

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

В начале кода подключается библиотека crt, которая используется для работы с числовыми значениями.
Определяется функция f, которая принимает один аргумент типа real и возвращает значение типа real.
В переменной x хранится значение, введенное пользователем.
В переменной s хранится сумма, которую мы вычисляем.
Переменная n инициализируется значением 1 и будет увеличиваться до 50.
В цикле for n принимает значения от 1 до 50.
Значение cos(2nx) вычисляется и добавляется к переменной s.
Значение 4nn-1 вычисляется и используется в формуле для вычисления значения s.
После завершения цикла for n принимается значение 50.
Вычисляется значение функции f(x), используя аналитическую формулу, и записывается в переменную s.
Выводится значение переменной s.
Выводится значение функции f(x).
Программа завершается, пока пользователь не введет значение x, большее 1.