Вычислить значение выражения - QBasic (27293)

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

написать программу с помощью цикла while. Sinx=x-x^3/3!+x^5/5!+...

Решение задачи: «Вычислить значение выражения»

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

CLS
CONST eps = .0001
INPUT "X = "; x
x2 = x * x
a = x
s = x
 
WHILE ABS(a) > eps
   i = i + 2
   a = -a * x2 / (i * (i + 1))
   s = s + a
WEND
PRINT "Sin("; x; ") ="; s
END

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

CLS — команда очистки экрана
CONST eps = .0001 — определение константы eps со значением 0.0001
INPUTX = ; x — запрос на ввод значения переменной x
x2 = x * x — вычисление значения переменной x2 как квадрата значения переменной x
a = x — присваивание переменной a значение переменной x
s = x — присваивание переменной s значение переменной x
WHILE ABS(a) > eps — начало цикла WHILE с условием, что абсолютное значение переменной a больше значения константы eps
i = i + 2 — увеличение значения переменной i на 2
a = -a * x2 / (i * (i + 1)) — вычисление нового значения переменной a как отрицательного значения переменной a, умноженного на x2 и разделенного на i и (i + 1)
s = s + a — добавление нового значения переменной a к значению переменной s
END — конец цикла WHILE
PRINTSin(; x;) =; s — вывод значения переменной s на экран с подписью Sin(X) =, где X — это значение переменной x
В данном коде используется 4 переменные: x, x2, a и s.
Значение переменной x вводится пользователем в начале программы.
Значение переменной a меняется на каждом шаге цикла WHILE и добавляется к значению переменной s.
Цикл выполняется до тех пор, пока абсолютное значение переменной a не станет меньше значения константы eps.
Значение переменной s выводится на экран после окончания цикла.
В данном коде используется оператор деления / для вычисления значения переменной a.
Значение переменной i увеличивается на 2 на каждом шаге цикла WHILE.
В данном коде используется оператор END для обозначения конца программы.