Составить программу и блок-схему для вычисления суммы бесконечного ряда - QBasic

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

В документах приложено задание, и пример.

Решение задачи: «Составить программу и блок-схему для вычисления суммы бесконечного ряда»

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

x = 1.7
e = .0001
s = 0
n = 1
DO
 v = (-1) ^ n * (1 - x) ^ (2 * n + 1) / (4 * n ^ 2 - 1)
 s = s + v
 n = n + 1
 LOOP UNTIL ABS(v) < e
PRINT "x="; x, "s="; s
END

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

Сначала объявляются переменные: x, e, s, n.
Значение переменной x устанавливается равным 1.7, а значение переменной e равно 0.0001.
Переменная s инициализируется как 0, а переменная n как 1.
Затем начинается цикл DO-LOOP.
Внутри цикла вычисляется значение переменной v по формуле (-1)^n (1-x)^(2n+1) / (4*n^2-1).
Полученное значение переменной v добавляется к переменной s.
Значение переменной n увеличивается на 1.
Цикл продолжается до тех пор, пока абсолютное значение переменной v не станет меньше значения переменной e.
По завершении цикла выводится сообщение с текущими значениями переменных x и s.
Конец программы.