Найти сумму тех членов ряда, модуль которых больше или равен заданному - QBasic

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

Нужна помощь! 1)Даны числовой ряд и некоторое число ε. Найти сумму тех членов ряда, модуль которых больше или равен заданному ε. Общий член ряда имеет вид: an=n!/(2n)! 2) Найти наименьший номер члена последовательности, для которого выполняется условие |an — an-1| < ε. Вывести на экран этот номер и все элементы аi, где i = 1, 2,..., п. an=arctgan-1+1, a1=0 3) Все тоже самое что и в задании 2, только другая формула. an-1+an-2/2, a1=1,a2=2 Прошу, помогитеее, я ничего в этом не понимаю, а в понедельник нужно уже сдать.

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

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

CLS
eps = .0001
a1 = 1
a2 = 2
PRINT a1
PRINT a2
n = 1
 
DO
   n = n + 1
   a3 = (a2 + a1) / 2
   k = ABS(a3 - a2)
   IF k > eps THEN
      PRINT a3
      a1 = a2
      a2 = a3
   END IF
LOOP UNTIL k <= eps
PRINT "N ="; n
END

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

CLS — команда очистки экрана
eps = .0001 — присваивание переменной eps значение 0.0001
a1 = 1 — присваивание переменной a1 значение 1
a2 = 2 — присваивание переменной a2 значение 2
PRINT a1 — вывод значения переменной a1 на экран
PRINT a2 — вывод значения переменной a2 на экран
n = 1 — присваивание переменной n значение 1
DO — начало цикла
n = n + 1 — увеличение значения переменной n на 1
a3 = (a2 + a1) / 2 — вычисление среднего арифметического переменных a1 и a2 и присваивание результата переменной a3
k = ABS(a3 - a2) — вычисление абсолютного значения разности a3 и a2 и присваивание результата переменной k
IF k > eps THEN — проверка условия k > eps
PRINT a3 — вывод значения переменной a3 на экран
a1 = a2 — присваивание переменной a1 значение a2
a2 = a3 — присваивание переменной a2 значение a3
END IF — конец условия
LOOP UNTIL k <= eps — продолжение цикла до тех пор, пока k не станет меньше или равным eps
PRINTN =; n — вывод значения переменной n на экран
END — завершение программы