Даны числовой ряд и некоторое число ε. Найти сумму тех членов ряда, модуль которых больше или равен заданному - QBasic (27249)
Формулировка задачи:
Народ помогите пожалуйста!
Решение задачи: «Даны числовой ряд и некоторое число ε. Найти сумму тех членов ряда, модуль которых больше или равен заданному»
textual
Листинг программы
- CLS
- CONST eps = .005
- a = 1
- b = 1
- DO
- i = i + 1
- b = 2 * b * i
- a = b / i ^ i
- s = s + a
- LOOP UNTIL ABS(a) < eps
- PRINT "S ="; s
- END
Объяснение кода листинга программы
CLS
— очистка экранаCONST eps = .005
— определение константы εa = 1
— инициализация переменной a значением 1b = 1
— инициализация переменной b значением 1DO
— начало циклаi = i + 1
— увеличение счетчика i на единицуb = 2 * b * i
— обновление значения переменной ba = b / i ^ i
— обновление значения переменной as = s + a
— обновление значения переменной sLOOP UNTIL ABS(a) < eps
— продолжение цикла до тех пор, пока абсолютное значение переменной a не станет меньше εPRINT
S =; s
— вывод суммы s на экранEND
— конец программы
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д