Найти сумму ряда - QBasic (27261)
Формулировка задачи:
Помогите пожалуйста решить две задачи в qbasic
Решение задачи: «Найти сумму ряда»
textual
Листинг программы
CLS INPUT "X = "; x s = x a = x x2 = x ^ 2 FOR i = 2 TO 12 STEP 2 a = -a * x2 / (i * (i + 1)) s = s + a NEXT i PRINT "S ="; s END
Объяснение кода листинга программы
CLS— очистка экранаINPUTX =; x— ввод значения переменной X с помощью функцииINPUTs = x— присваивание значения X переменной sa = x— присваивание значения X переменной ax2 = x ^ 2— присваивание значения X в квадрате переменной x2FOR i = 2 TO 12 STEP 2— начало цикла, который выполняется 12 раз с шагом 2a = -a * x2 / (i * (i + 1))— вычисление значения переменной a по формулеs = s + a— прибавление значения переменной a к переменной sNEXT i— переход к следующей итерации циклаPRINTS =; s— вывод значения переменной s с помощью функцииPRINTEND— конец программы