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

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

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

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

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

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

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

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