Числа Фибоначчи без рекурсии

[hCORe]

Итак, мне поставлена была задача - написать функцию для обсчета чисел Фибоначчи в интервале от 2 до 100.
Кто не знает - число ряда Фибоначчи выражается функцией F(x)=F(x-1)+F(x-2). F(0)=0, F(1)=1.

Написал простейшее решение - через рекурсивную функцию:

Код: Выделить всё

Public Function Fib(Nmb As Long) As Long
    If Nmb = 0 Then Fib = 0: Exit Function
    If Nmb = 1 Then Fib = 1: Exit Function
    Nmb = Fib(Nmb - 1) + Fib(Nmb - 2)
    Fib = Nmb
End Function

Но - при значениях >10 работает ужасно медленно. А мне надо до сотни

Один спец просветил, что здесь лучше использовать циклы, они во много раз быстрее. Но как? Кто подскажет, тому пирожок с полки. Вкусный, его крысы не доели

[GSerg]

Вот тебе универсальная формула...

Fib(n) = (1/sqr(n))*(((1+sqr(5))/2)^n-((1-sqr(5))/2)^n)


Ну и для самых ленивых... http://www.everyday.com.ua/digilet/fibonacci.htm

[hCORe]

А мне больше вот этот вариант понравился. Он и короче, и проще:

Код: Выделить всё

Private Function Fib(Nmb As Long) As Double
    If Nmb = 0 Then Fib = 0: Exit Function
    If Nmb = 1 Then Fib = 1: Exit Function
    Fib = Round((1.6180339 ^ Nmb - 0.6180339 ^ Nmb) / _
    2.236067977, 0)
End Function

[GSerg]

Так это, батенька, оно и есть
Прсто корни уже посчитаны. А я тебе, так сказать, в оригинале

[tyomitch]

Вот цикл, если ещё надо:

Код: Выделить всё

Option Explicit

Sub Main()
Dim i As Long
For i = 1 To 10: Debug.Print i, f(i): Next
End Sub

Function f(ByVal i As Integer) As Long
Dim s0 As Long, s1 As Long, s As Long, j As Integer
If i = 0 Then f = 0: Exit Function
s0 = 1
For j = 1 To i
    s = s1 + s0
    s0 = s1
    s1 = s
Next
f = s
End Function


[MOV]

Или так :

Код: Выделить всё

Dim f(100) As Double
f(1) = 1
For i = 0 To 100
On Error Resume Next
f(i) = f(i - 1) + f(i - 2)
Debug.Print i & " - " & f(i)
Next

Дикое извращение и нерациональное из-за массива, зато быстро и понятно до безобразия , а формулой, кончено, тоже здорово.

[hCORe]

Спасибо за новые решения. Не думал что эта проблема так популярна