Найти сумму числового ряда (2) - QBasic
Формулировка задачи:
Дан конечный числовой ряд
1/2 + (3 + 4)/(5 + 6) + (7 + 8 + 9)/(10 + 11 + 12) + ....
Всего ровно 100 слагаемых. Вот их и надо суммировать.
Ответ: 95.65385
Вопросы
1. Существует ли иной способ решения данной задачи?
2. Поможет ли здесь применение массива?
Листинг программы
- REM
- REM SUMMA = 95.65385
- REM
- DECLARE FUNCTION f! (n!)
- CLS
- CLEAR , , 20000
- PRINT f(100)
- END
- FUNCTION f (n)
- IF n = 1 THEN
- f = .5
- ELSE
- s1 = 0
- s2 = 0
- a1 = n * (n - 1) + 1
- b1 = n ^ 2
- a2 = n ^ 2 + 1
- b2 = n * (n + 1)
- FOR i = a1 TO b1
- s1 = s1 + i
- NEXT
- FOR i = a2 TO b2
- s2 = s2 + i
- NEXT
- f = f(n - 1) + s1 / s2
- END IF
- END FUNCTION
Решение задачи: «Найти сумму числового ряда (2)»
textual
Листинг программы
- DIM i AS LONG, j AS LONG, s AS DOUBLE
- j = 1
- FOR i = 1 TO 100
- s = s + (2 * j + i - 1) / (2 * j + 3 * i - 1)
- j = j + i * 2
- NEXT i
- PRINT s
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д