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

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

Задачка 3: )) Дано натуральное n и действительное x. Вычислить: ((1/2) - cos(x))*((2/3) - cos^2(x))*...*((n/n+1) - cos^n(x)) Результат вывести на печать.

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

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

input "vvedite N ",n
input "vvedite x ",x
p=1
for i=1 to n
p=p*(i/(i+1)-cos(x)^i)
next
print p

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

Пользователю предлагается ввести значение переменной N.
Затем пользователю предлагается ввести значение переменной x.
Переменная p инициализируется значением 1.
Запускается цикл for, который выполняется n раз.
Внутри цикла значение переменной p вычисляется как произведение значения переменной p на (i/(i+1)-cos(x)^i).
После окончания цикла значение переменной p выводится на экран.