Найти первый член последовательности, для которого выполняется заданное условие - Free Pascal

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

. Пусть последовательность определяется следующим образом x₀=1, , xk=(2-x³_k-1)/5, k=1,2,... Найти первый член x_n, для которого выполняется условие |x_n-x_k-1|<10^-5

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

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

var
  x, x_prev : real;
 
begin
  x := 1;
  repeat
    x_prev := x;
    x := (2 - x_prev*sqr(x_prev)) / 5;
  until abs(x - x_prev) < 1E-5;
  writeln('Xn = ', x:10:5);
end.

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

В данном коде используется цикл while, который выполняется до тех пор, пока значение переменной x не будет равно x_prev с точностью до 1E-5.

Установка начального значения переменной x равным 1.
Выполнение цикла while до тех пор, пока условие не будет выполнено.
В каждой итерации значение переменной x_prev присваивается значение переменной x.
Значение переменной x вычисляется по формуле (2 - x_prev*sqr(x_prev)) / 5.
Проверка условия abs(x — x_prev) < 1E-5.
После выполнения условия, выводится значение переменной x с точностью до пятого знака после запятой.
Цикл while повторяется до тех пор, пока условие не будет выполнено.