Вычислить выражение и вывести на печать - QBasic

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

4. Написать программу на языке QBasic. Дано натуральное n и действительное x. Вычислить (sin(x)/e^0-1/2)+(sin(2x)/e^1-1/4)+...+(sin(nx)/e^n-1-1/2^n). Результат вывести на печать

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

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

CLS
CONST n = 100
INPUT "x = "; x
 
FOR i = 1 TO n
   Sum = Sum + (SIN(i * x) / EXP(i - 1) - 1 / 2 ^ i)
NEXT i
 
PRINT "SUM ="; Sum
END

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

Ниже представлен список действий, которые выполняются в данном коде:

Очистка экрана - команда CLS используется для очистки экрана перед выводом результатов.
Задание константы n - значение переменной n устанавливается равным 100. Это будет использоваться в цикле FOR для ограничения количества итераций.
Ввод значения переменной x - пользователю предлагается ввести значение переменной x с помощью команды INPUT.
Цикл FOR - выполняется цикл от 1 до n (где n - это константа, равная 100).
Вычисление значения переменной Sum - внутри цикла значение переменной Sum увеличивается на разность между SIN(i*x) / EXP(i-1) и 1/2^i.
Вывод значения переменной Sum - после завершения цикла значение переменной Sum выводится на экран с помощью команды PRINT. Список действий в виде нумерованного списка:
CLS
n = 100
INPUT x =; x
FOR i = 1 TO n
Sum = Sum + (SIN(i * x) / EXP(i - 1) - 1 / 2 ^ i)
NEXT i
PRINT SUM =; Sum
END