Найти сумму ряда - QBasic (27812)

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

cos=1-x^2/2!+x^4/4!-x^6/6!....x^n/n!

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

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

INPUT x
res = 1: z = 1: eps = 1E-5
WHILE ABS(z) > eps
    i = i + 1
    z = -z * (x * x / (2 * i * (2 * i - 1)))
    res = res + z
WEND
PRINT res

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

Код представляет собой вычислительную реализацию ряда Тейлора для функции арктангенса. Ряд Тейлора используется для аппроксимации функции в окрестности точки x. В этом коде точность вычислений устанавливается с помощью параметра eps, который представляет собой число, близкое к нулю. Список операций:

Ввод значения x с помощью команды INPUT.
Инициализация переменных:
- res = 1 - сумма ряда равна 1.
- z = 1 - начальное приближение для суммы ряда.
- eps = 1E-5 - точность вычислений.
Цикл WHILE, который выполняется до тех пор, пока абсолютное значение z больше eps:
- i = i + 1 - счетчик итераций.
- z = -z (x x / (2 i (2 * i - 1))) - обновление приближения для суммы ряда.
- res = res + z - обновление суммы ряда.
После выполнения цикла WHILE, выводится значение суммы ряда с помощью команды PRINT.