Найти сумму числового ряда (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
                        