Найти сумму числового ряда (2) - QBasic

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

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

Дан конечный числовой ряд 1/2 + (3 + 4)/(5 + 6) + (7 + 8 + 9)/(10 + 11 + 12) + .... Всего ровно 100 слагаемых. Вот их и надо суммировать. Ответ: 95.65385 Вопросы 1. Существует ли иной способ решения данной задачи? 2. Поможет ли здесь применение массива?
Листинг программы
  1. REM
  2. REM SUMMA = 95.65385
  3. REM
  4. DECLARE FUNCTION f! (n!)
  5. CLS
  6. CLEAR , , 20000
  7. PRINT f(100)
  8. END
  9. FUNCTION f (n)
  10. IF n = 1 THEN
  11. f = .5
  12. ELSE
  13. s1 = 0
  14. s2 = 0
  15. a1 = n * (n - 1) + 1
  16. b1 = n ^ 2
  17. a2 = n ^ 2 + 1
  18. b2 = n * (n + 1)
  19. FOR i = a1 TO b1
  20. s1 = s1 + i
  21. NEXT
  22. FOR i = a2 TO b2
  23. s2 = s2 + i
  24. NEXT
  25. f = f(n - 1) + s1 / s2
  26. END IF
  27. END FUNCTION

Решение задачи: «Найти сумму числового ряда (2)»

textual
Листинг программы
  1. DIM i AS LONG, j AS LONG, s AS DOUBLE
  2. j = 1
  3. FOR i = 1 TO 100
  4.     s = s + (2 * j + i - 1) / (2 * j + 3 * i - 1)
  5.     j = j + i * 2
  6. NEXT i
  7. PRINT s

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


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

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

13   голосов , оценка 3.923 из 5

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

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

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