Вычисление последовательностей (Часть 2) - QBasic

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

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

Здравствуйте, помогите мне вычислить последовательность в QBasic. Задача. Даны числовой ряд и некоторое число ε. Найти сумму тех членов ряда, модуль которых больше или равен заданному ε. Общий член ряда имеет вид:

Решение задачи: «Вычисление последовательностей (Часть 2)»

textual
Листинг программы
CLS
eps = .0001
b = 1 / 3
 
DO
   i = i + 1
   b = b * i
   a = b / i ^ i
   s = s + a
LOOP UNTIL ABS(a) < eps
 
PRINT "S ="; s
END

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

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

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

15   голосов , оценка 4.067 из 5
Похожие ответы