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

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

s=-1/3-1/5-1/7-...-1/n

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

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

CLS
 
PRINT "N NECHETNOE CHISLO"
DO
   INPUT "N = "; n
LOOP UNTIL (n MOD 2 = 1) AND n >= 3
 
FOR i = n TO 3 STEP -2
   S = S - 1 / i
NEXT
 
PRINT "S ="; S
END

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

CLS — команда очистки экрана
PRINT N NECHETNOE CHISLO — вывод сообщения «Введите чётное число»
DO — начало цикла
INPUT N =; n — ввод числа N и присвоение его значения переменной n
LOOP UNTIL (n MOD 2 = 1) AND n >= 3 - условие цикла, которое проверяет, что число N нечётное и больше 3
FOR i = n TO 3 STEP -2 - цикл, который выполняет вычисления для каждого чётного числа от n до 3 с шагом -2
S = S — 1 / i — вычитание из переменной S значения 1/i
NEXT — переход к следующему шагу цикла
PRINT S =; S — вывод значения переменной S
END — конец программы