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

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

Найти для указанных последовательностей наименьший номер, для которого выполняется условие (An-An-1)<E , и вывести на экран этот номер и все элементы а (где i=1,2,...,n): An=2+1/An-1, A1=2

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

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

const
    EPS = 0.0001;
var
    a, an: Double;
    i: Word;
begin
    an := 2; i := 1;
    WriteLn(an:0:4);
    repeat
        a := an;
        an := 2 + 1 / an;
        Inc(i);
        WriteLn(an:0:4);
    until (Abs(an - a) < EPS);
    WriteLn('-----------------');
    Write('Last i=', i);
end.

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

В данном коде на языке Turbo Pascal происходит поиск наименьшего номера, для которого выполняется условие. В начале кода объявляются две переменные: a и an. Переменная a инициализируется значением 2, а переменная an инициализируется значением 2. Затем происходит вывод на экран последовательности чисел, начиная с a и увеличивая значение an на 1/a каждый раз. Далее идет цикл repeat, который выполняется до тех пор, пока разница между значениями an и a не станет меньше заданной константы EPS (в данном случае 0.0001). Внутри цикла переменная a обновляется, чтобы всегда быть равной значению an, а переменная an обновляется, чтобы быть равной 2 + 1/an. Также увеличивается значение переменной i на единицу. После выполнения цикла выводится на экран сообщение Last i=, за которым следует значение i. Таким образом, данный код находит наименьшее число i, для которого выполняется условие, и выводит его на экран.