Написать программу по блок-схеме (Метод простых итераций) - Pascal

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

Необходимо написать программу по блок-схеме, это все, что прилагается к заданию. Известно еще только то, что функцию/уравнение придумать или подобрать самим.

Решение задачи: «Написать программу по блок-схеме (Метод простых итераций)»

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

program IterationMethod;
 
function RecursFormula(X0, Xn: real): real;
begin
  RecursFormula := 1 / 2 * (Xn + X0 / Xn);
end;
 
function NumStndView(param: real): integer;
var
  i:integer;
begin
  i:=0;
  while param < 1 do
  begin
    param := param * 10;
    inc(i);
  end;
  NumStndView:=i;
end;
 
var
  x0, xn, accuracy: real;
 
begin
  Write('Введите число для извлечения приближенного значения квадратного корня: ');
  ReadLn(x0);
  Write('Введите необходимую точность, число меньше 1: ');
  ReadLn(accuracy);
  xn := x0;
  repeat
    xn := RecursFormula(x0, xn);
  until abs(RecursFormula(x0, xn) - xn) < accuracy;
  Write('Приближенное значение квадратного корня из', ' ', x0:2, ' = ', xn:NumStndView(accuracy):NumStndView(accuracy));
end.

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

Объявлены две функции: RecursFormula и NumStndView.
Функция RecursFormula принимает два аргумента типа real (X0 и Xn) и возвращает real.
Функция NumStndView принимает аргумент типа real (param) и возвращает integer.
В основной программе объявлены три переменные: x0, xn и accuracy (все три типа real).
Пользователю предлагается ввести число для извлечения приближенного значения квадратного корня (x0).
Пользователю предлагается ввести необходимую точность (accuracy).
Значение xn инициализируется значением x0.
Запускается цикл repeat-until, в котором значение xn обновляется с помощью функции RecursFormula.
Цикл повторяется до тех пор, пока абсолютное значение разности между текущим значением xn и значением, возвращаемым функцией RecursFormula, не станет меньше заданной точности accuracy.
Пользователю выводится приближенное значение квадратного корня из x0.