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

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

Здравствуйте, помогите мне вычислить последовательность в QBasic. Задача. Даны числовой ряд и некоторое число ε. Найти сумму тех членов ряда, модуль которых больше или равен заданному ε. Общий член ряда имеет вид:

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

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

CLS
eps = .0001
b = 1 / 3
 
DO
   i = i + 1
   b = b * i
   a = b / i ^ i
   s = s + a
LOOP UNTIL ABS(a) < eps
 
PRINT "S ="; s
END

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

CLS — команда очистки экрана
eps = .0001 - присваивание переменной eps значение 0.0001
b = 1 / 3 - присваивание переменной b значение 1/3
DO — начало цикла
i = i + 1 - увеличение значения переменной i на 1
b = b * i — присваивание переменной b значение b умноженное на i
a = b / i ^ i — присваивание переменной a значение b деленное на i в степени i
s = s + a — увеличение значения переменной s на a
LOOP UNTIL ABS(a) < eps — цикл продолжается пока абсолютное значение переменной a не станет меньше 0.0001
PRINT S =; s — вывод на экран значения переменной s
END — конец программы