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

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

Задан ряд 1 + 2/(3*4) + (5*6)/(7*8*9) + (10*11*12)/(13*14*15*16) + ... Всего 25 слагаемых (625 натуральных чисел) Алгоритм ряда очевиден. Найти сумму этого ряда Для решения задачи была использована формула 1 + 3 + 5 + ... (2n-1) = n2Вопросы 1. Есть ли иное решение? 2. Я ходил около рекурсивного решения, но не нашел? 3. Изначально я хотел для этого ряда задать число натуральных чисел, из которых он состоит, но эта задача оказалась сложнее. И я решил задавать число слагаемых. Может это не так сложно, как я думаю? примечание Очевидно, что если слагаемых N, то число натуральных чисел N2
REM
REM  1 + 2/(3*4) + (5*6)/(7*8*9) + ...
REM
REM   OTBET: 1.333347
REM
 
DECLARE FUNCTION f! (n!)
 
CLS
S = 1
 
FOR i = 2 TO 25
   S = S + f(i ^ 2)
NEXT
PRINT S
END
 
FUNCTION f (n)
   h = SQR(n) - 1
   h1 = h ^ 2 + 1
   h2 = h1 + h - 1
   p = 1
 
   FOR i = h1 TO h2
      p = p * i / (i + h)
   NEXT
 
   f = p / n
END FUNCTION

Код к задаче: «Найти сумму числового ряда - QBasic»

textual
DIM s AS DOUBLE, m AS DOUBLE, i AS LONG, j AS LONG, k AS LONG
s = 1
k = 1
FOR i = 1 TO 24
    m = 1
    FOR j = 1 TO i
        k = k + 1
        m = m * k / (k + i)
    NEXT j
    k = k + j
    m = m / k
    s = s + m
NEXT i
PRINT s

8   голосов, оценка 3.875 из 5


СОХРАНИТЬ ССЫЛКУ