Вычислить значения суммы ряда - Pascal

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

Вычислить значения суммы ряда S при заданных с консоли начальном и конечном значениях аргумента x (x_nach, x_kon), шаге его изменения Δx и точности вычислений ε. Вычисленные значения ряда сравнить со значениями заданной функции f(x). Результаты вычислений вывести в виде таблицы с заголовком.

Решение задачи: «Вычислить значения суммы ряда»

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

function f(x:real):real;
begin
  f:=ln((1+x)/(1-x));
end;
function f1(x:real;const eps : real):real;
var p, s : real; n : integer;
begin
  n := 0; s :=x; p:=x;
  while p>eps do begin
    p:=p*sqr(x)*(2*n+1)/(2*n+3);
    s := s + p;
    inc(n);
  end;
  f1:=2*s;
end;
 
var
  x_nach, x_kon, delta_x, eps, x : real;
begin
  write('x_nach = '); readln(x_nach);
  write('x_kon = '); readln(x_kon);
  write('delta_x = '); readln(delta_x);
  write('eps = '); readln(eps);
  x := x_nach;
  while (x_nach<=x_kon) do begin
    write(f1(x_nach,eps):7:3);
    x_nach:=x_nach+delta_x;
  end;writeln;
  while (x<=x_kon) do begin
    write(f(x):7:3);
    x:=x+delta_x;
  end;
  readln;
end.

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

В функции f(x) вычисляется значение суммы ряда с помощью логарифма отношения суммируемых членов.
В функции f1(x,const eps:real) вычисляется значение суммы ряда с использованием переменной n для контроля точности.
Переменные в функции f1(x,const eps:real) включают p, s и n. Переменная p используется для хранения текущего члена ряда, переменная s используется для хранения суммы ряда, а переменная n используется для контроля точности.
В цикле while в функции f1(x,const eps:real) вычисляется следующий член ряда, добавляется к сумме и увеличивается значение переменной n. Цикл продолжается до тех пор, пока текущий член ряда не превысит заданную точность eps.
После завершения цикла while в функции f1(x,const eps:real) значение суммы ряда сохраняется в переменной f1.
В основной части программы считываются значения переменных x_nach, x_kon, delta_x и eps с помощью функции readln.
Затем происходит цикл while, в котором вычисляется значение суммы ряда для каждого значения x_nach, которое меньше или равно x_kon. Значение суммы ряда выводится на экран с помощью функции write.
После этого происходит цикл while, в котором вычисляется значение суммы ряда для каждого значения x, которое меньше или равно x_kon. Значение суммы ряда выводится на экран с помощью функции write.
В конце программы считывается значение x_kon с помощью функции readln, и цикл while продолжается до тех пор, пока x не станет больше или равно x_kon.