Fibonacci-Folge iterativ erzeugen

Sprache: VB

Im Vergleich zur rekursiven Methode, dessen Aufwand exponentiell mit jeder Zahl steigt, [u]verläuft die iterative Weise linear, und ist somit um einiges Schneller.[/u] http://de.wikipedia.org/wiki/Fibonacci-Folge

Function fib(ByVal n As Integer) As Integer
    Dim f1 As Integer = 1, f2 As Integer = 0

    For i As Integer = 1 To n
        n = f1 + f2
        f1 = f2
        f2 = n
    Next

    Return n
End Function

Function fib(ByVal n As Integer) As Integer
    Dim f1 As Integer = 1, f2 As Integer = 0

    For i As Integer = 1 To n
        n = f1 + f2
        f1 = f2
        f2 = n
    Next

    Return n
End Function

Abgelegt unter fibonacci folge Iteration iterativ Mathe Moivre Rekursion rekursiv Zahl

Alte URL: /snippet/fibonacci-folge-iterativ-erzeugen/1349