Описать функцию вычисляющую числа Фибоначчи - VB

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

Описать функцию Fib(N) целого типа,вычислающий N-й элемент последовательности чисел Фибоначчи F(k), которая описывается следующими формулами: F1=1, F2=1, F(k)=F(k-2)+F(k-1), K=3,4... . Использую функцию Fib, найти 5 чисел Фибоначчи с данными номерами N1,N2,...N5.

Решение задачи: «Описать функцию вычисляющую числа Фибоначчи»

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

                            Function Fib(n As Integer, Optional c As Long = 1, Optional p As Long = 0) As Long
         If (n = 1) Then
            Fib = c
         Else
            Fib = Fib(n - 1, c + p, c)
         End If
End Function
 
 
Sub Test()
    For i% = 1 To 30
        Debug.Print Fib(i%)
    Next i%
End Sub
                        

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

14 голосов , оценка 3.857 из 5

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