Определить сумму ряда с заданной точностью - QBasic

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

3.2 Определить сумму ряда с заданной точностью t ( ) и число слагаемых, необходимых для достижения этой точности. Точность считается достигнутой, если очередное слагаемое по модулю меньше t (это и последующее слагаемое не учитываются). Использовать для организации цикла операторы DO … LOOP или WHILE … WEND (значения буквенных переменных задавать с клавиатуры):

Решение задачи: «Определить сумму ряда с заданной точностью»

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

CLS

INPUT "t = "; t!

S! = 0
i = 1

DO
  A! = i/(i^2+i+3)
  S! = S! + A!
  i = i+1  
LOOP UNTIL ABS(A!) < t!

PRINT "i = "; i
PRINT "S = "; S!

INPUT ZZZ
END

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

CLS - очистка экрана
INPUTt = ; t! - ввод значения t с клавиатуры
S! = 0 - инициализация переменной S суммой ряда равной 0
i = 1 - инициализация переменной i равной 1
DO - начало цикла
A! = i/(i^2+i+3) - вычисление значения A для текущего значения i
S! = S! + A! - прибавление значения A к сумме S
i = i+1 - увеличение значения i на 1
LOOP UNTIL ABS(A!) < t! - продолжение цикла до тех пор, пока абсолютное значение A не станет меньше заданного значения t
PRINTi = ; i - вывод значения i
PRINTS = ; S! - вывод значения S
INPUT ZZZ - ввод символа ZZZ для завершения работы программы
END - завершение программы