Вычислить функцию с заданной точностью - Pascal (80692)

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

Вычислить функцию с заданной точностью,используя рекурсивный алгоритм

Решение задачи: «Вычислить функцию с заданной точностью»

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

const
    EPS = 0.0001;
function ArcTg(const x: Single; const n: LongWord; const si: Double): Double;
var
    Result, temp: Double;
begin
    temp := si / (1 + 2 * n);
    if (Abs(temp) > EPS)
    then
        Result := temp + ArcTg(x, n + 1, -si * Sqr(x))
    else
        Result := 0;
    ArcTg := Result;
end;
var
    x: Single;
begin
    repeat
        Write('x='); ReadLn(x);
    until (Abs(x) < 1);
    WriteLn('Sum(', x:0:4 , ')=', ArcTg(x, 0, x):0:4);
    WriteLn('Arctan(', x:0:4, ')=', ArcTan(x):0:4);
end.

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

Объявление константы:
- Название: EPS
- Значение: 0.0001
Объявление функции ArcTg:
- Аргументы:
  - x (одинарная точность)
  - n (беззнаковое целое число)
  - si (двойная точность)
- Локальные переменные:
  - Result (двойная точность)
  - temp (двойная точность)
Начало реализации функции ArcTg:
- Вычисление temp как частное si на (1 + 2 * n)
- Проверка условия: если абсолютное значение temp больше чем EPS, то
  - Присвоение Result значения temp плюс вызов функции ArcTg со значениями (x, n + 1, -si * x в квадрате)
- Иначе
  - Присвоение Result значения 0
- Возврат Result из функции ArcTg в качестве результата
Объявление переменной:
- Название: x
- Тип: ординарная
Начало выполнения программы:
- Циклический ввод значения переменной x, пока абсолютное значение не станет меньше 1
- Вывод на экран суммы и арктангенса x с использованием функции ArcTg(x, 0, x) с округлением до 4 знаков после запятой
- Вывод на экран стандартного арктангенса x с использованием функции ArcTan(x) с округлением до 4 знаков после запятой