Вычисление последовательностей (Часть 3) - QBasic

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

Здравствуйте, помогите пожалуйста вычислить последовательность с очень заковыристым условием. Условия: Найти наименьший номер члена последовательности, для которого выполняется условие |an — an-1| < ε. Вывести на экран этот номер и все элементы аi, где i = 1, 2,..., п.

Решение задачи: «Вычисление последовательностей (Часть 3)»

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

CLS
eps = .0001
a = .5
PRINT USING " #.#####"; a
n = 1
 
DO
   n = n + 1
   a2 = .5 * TAN(a)
   PRINT USING " #.#####"; a2
   SWAP a, a2
LOOP UNTIL ABS(a2 - a) < eps
 
PRINT
PRINT " N ="; n
END

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

CLS — команда очистки экрана
eps = .0001 — присваивание переменной eps значение 0.0001
a = .5 — присваивание переменной a значение 0.5
PRINT USING #.#####; a — печать значения переменной a с форматированием до 5 знаков после запятой
n = 1 — присваивание переменной n значение 1
DO — начало цикла
n = n + 1 — увеличение значения переменной n на 1
a2 = .5 * TAN(a) — вычисление значения переменной a2 как половины значения функции TAN от переменной a
PRINT USING #.#####; a2 — печать значения переменной a2 с форматированием до 5 знаков после запятой
SWAP a, a2 — обмен значений переменных a и a2
LOOP UNTIL ABS(a2 - a) < eps — продолжение цикла до тех пор, пока абсолютное значение разности a2 и a меньше значения переменной eps
PRINT — команда печати
PRINT N =; n — печать значения переменной n с форматированием
END — конец программы