Вычислить и вывести на экран в виде таблицы значения функции - Free Pascal

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

Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда, на интервале от ХНАЧ до ХКОН с шагом dХ и точностью E . Таблицу снабдить заголовком и шапкой. Строка таблицы должна содержать значение аргу- мента, значение функции и количество просуммированных членов ряда.

Решение задачи: «Вычислить и вывести на экран в виде таблицы значения функции»

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

var
  XH,XK,DX,EPS,X,f,r,r1,t:real;
  n:longint;
begin
  repeat
    write('Введите XНАЧ,XКОН,DX,EPS:');
    readln(XH,XK,DX,EPS);
  until (XH<=XK) and (XH>=-1.0) and (XH<1.0) and (XK>=-1.0) and (XK<1.0) and (DX>0);
  writeln('X':10,'|','F(X)':10,'|','ln(1-x)':10,'|','N':10);
  x:=XH;
  repeat
    r:=X;n:=1;f:=X;t:=x;
    repeat
      n:=n+1;
      r1:=r;
      t:=t*X;
      r:=t/n;
      f:=f+r;
    until abs(r-r1)<=EPS;
    writeln(x:10:4,'|',-f:10:4,'|',ln(1-X):10:4,'|',n:10);
    X:=X+DX;
  until X>=XK;
end.

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

В данном коде на языке Free Pascal реализована задача по вычислению численного значения функции F(X) методом Ньютона.

В первой части кода пользователю предлагается ввести начальное значение X, конечное значение XK, шаг по X DX и точность вычислений EPS.
Вводится цикл, который повторяется до тех пор, пока не будут выполнены следующие условия:
- XH меньше или равно XK;
- XH больше или равно -1.0;
- XH меньше или равно 1.0;
- XK больше или равно -1.0;
- XK меньше или равно 1.0;
- DX больше 0.0.
Выводится таблица с значениями X, F(X), ln(1-X) и N.
Задаются начальные значения переменных: X = XH, n = 1, r = X, t = x, f = x.
Задается цикл, который повторяется до тех пор, пока изменение r не станет меньше EPS.
На каждой итерации происходит обновление значений n, r1, t и f.
После выполнения цикла выводится значение X, -F(X), ln(1-X) и n.
X увеличивается на DX и выполняется проверка на выход за пределы XK.
Если X больше или равно XK, то цикл завершается.
Код завершается.