Найти сумму ряда с заданной точностью - QBasic (27292)

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

16) Найти сумму ряда с точностью =10-4, общий член которого Аn=n*n*n/(3n-3)!

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

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

REM OTBET: 2.37101
 
CLS
CONST eps = .0001
a = 1
b = 1
s = 1
m = 1
n = -2
 
DO
   n = n + 3
   m = m + 1
   b = b * n * (n + 1) * (n + 2)
   a = m * m * m / b
   s = s + a
LOOP UNTIL ABS(a) < eps
PRINT "S ="; s
END

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

Задана точность вычислений, которую обозначает константа eps со значением 0.0001.
Начальные значения переменных: a=1, b=1, s=1, m=1, n=-2.
Цикл DO начинается.
Значение переменной n увеличивается на 3.
Значение переменной m увеличивается на 1.
Значение переменной b вычисляется как b=n(n+1)(n+2).
Значение переменной a вычисляется как a=mmm/b.
Значение переменной s увеличивается на значение переменной a.
Цикл продолжается до тех пор, пока абсолютное значение переменной a не станет меньше заданной точности eps.
После окончания цикла выводится значение переменной s.
END.