Вычисления суммы бесконечного ряда - QBasic

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

помогите пожалуйста, составить программу и блок-схему для вычисления суммы бесконечного ряда: Очень срочно, начал составлять программу и запутался с факториалом:

Решение задачи: «Вычисления суммы бесконечного ряда»

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

CLS
epsilon = .00001
x = -1.8
i = 1
S = 1
a = 1
 
DO
  a = a * x / i
  S = S + a
  i = i + 1
LOOP UNTIL ABS(a) < epsilon
 
PRINT USING "S = #.#####"; S
 
END

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

В первой строке используется команда CLS для очистки экрана.
Затем объявляются переменные: epsilon с значением 0.00001, x с значением -1.8, i с значением 1, S с значением 1 и a с значением 1.
Далее следует цикл DO-LOOP, который выполняется до тех пор, пока абсолютное значение переменной a меньше заданной точности epsilon.
Внутри цикла пересчитывается значение переменной a как произведение текущего значения a на x, деленное на текущее значение i.
Затем к переменной S прибавляется значение переменной a.
Далее увеличивается значение переменной i на единицу.
После окончания цикла выводится значение переменной S с использованием функции PRINT USING и формата S = #.#####.