Даны числовой ряд и некоторое число ε. Найти сумму тех членов ряда, модуль которых больше или равен заданному - QBasic (27249)

Узнай цену своей работы

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

Народ помогите пожалуйста!

Решение задачи: «Даны числовой ряд и некоторое число ε. Найти сумму тех членов ряда, модуль которых больше или равен заданному»

textual
Листинг программы
  1. CLS
  2. CONST eps = .005
  3. a = 1
  4. b = 1
  5.  
  6. DO
  7.    i = i + 1
  8.    b = 2 * b * i
  9.    a = b / i ^ i
  10.    s = s + a
  11. LOOP UNTIL ABS(a) < eps
  12.  
  13. PRINT "S ="; s
  14. END

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

  1. CLS — очистка экрана
  2. CONST eps = .005 — определение константы ε
  3. a = 1 — инициализация переменной a значением 1
  4. b = 1 — инициализация переменной b значением 1
  5. DO — начало цикла
  6. i = i + 1 — увеличение счетчика i на единицу
  7. b = 2 * b * i — обновление значения переменной b
  8. a = b / i ^ i — обновление значения переменной a
  9. s = s + a — обновление значения переменной s
  10. LOOP UNTIL ABS(a) < eps — продолжение цикла до тех пор, пока абсолютное значение переменной a не станет меньше ε
  11. PRINTS =; s — вывод суммы s на экран
  12. END — конец программы

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4.091 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы