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

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

1.Даны числовой ряд и некоторое число ε. Найти сумму тех членов ряда, модуль которых больше или равен заданному ε. Общий член ряда имеет вид(см рис. 1) 2. Найти наименьший номер элемента последовательности, для которого выполняется условие М. Вывести на экран этот номер и все элементы аi, где i = 1, 2, ..., п. (рис. 2)

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

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

CLS
INPUT "N = "; n
CONST eps = .001
 
a = 1 / 3
 
FOR i = 1 TO n
   IF ABS(a) >= eps THEN s = s + a ELSE EXIT FOR
   a = a * i / n
NEXT i
 
PRINT "S ="; s
END

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

CLS - очистка экрана
INPUT N =; n - ввод количества членов ряда (n)
CONST eps = .001 - определение константы eps (0.001)
a = 1 / 3 - инициализация переменной a значением 1/3
FOR i = 1 TO n - начинается цикл от 1 до n
IF ABS(a) >= eps THEN s = s + a - проверка, если модуль значения переменной a больше или равен eps, то прибавляем a к s
ELSE EXIT FOR - иначе выходим из цикла
a = a * i / n - обновление значения переменной a (умножение на i и деление на n)
NEXT i - переход к следующему шагу цикла
PRINT S =; s - вывод суммы s
END - конец программы