Дана непустая последовательность натуральных чисел, за которой следует 0. Вычислить сумму тех из них, порядковые номера которых - числа Фибоначчи. - VB

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

, не могли бы вы помочь. Нужно срочно решить задачу в visual basic, но совершенно ничего не получается. Условие

: Дана непустая последовательность натуральных чисел, за которой следует 0. Вычислить сумму тех из них, порядковые номера которых - числа Фибоначчи. -,

помогите, если вам не сложно.

Решение задачи: «Дана непустая последовательность натуральных чисел, за которой следует 0. Вычислить сумму тех из них, порядковые номера которых - числа Фибоначчи.»

textual
                            Листинг программы 
                        

                            Function SumSeq(X() As Integer) As Integer
    SumSeq = X(1)
    n% = UBound(X, 1)
    pPrev% = 1
    pNext% = 2
    Do
      If pNext% > n% Then Exit Function
      SumSeq = SumSeq + X(pNext%)
      k% = pNext%
      pNext% = pNext% + pPrev%
      pPrev% = k%
    Loop
End Function
 
Sub Test()
Dim X(1 To 10) As Integer
    X(1) = 11
    X(2) = 22
    X(3) = 33
    X(4) = 44
    X(5) = 55
    X(6) = 66
    X(7) = 77
    X(8) = 88
    X(9) = 99
    X(10) = 111
    Debug.Print SumSeq(X)  ' Печать 209 - верно
End Sub
                        

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

7 голосов , оценка 3.286 из 5

Похожие ответы