Új hozzászólás Aktív témák

• #53404 Mutt senior tag #77257183 #53400

  Új Válasz 2024-10-11 22:05:13 #53404

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Mutt

  senior tag

  válasz #77257183 #53400 üzenetére

  Szia,

  Itt az én makrós változatom.

  Option Explicit
Dim fibonacci(1000) As Variant  'megtalált fibonacci számok listája

  Sub Valaszt()
    Dim c As Long
    Dim r As Double
    Dim pozicio As Long
    'Rnd() függvénynek kell, különben nem lesz igazán véletlenszám
    Randomize
        
    '1-es poziciótól indulunk
    pozicio = 1
        
    With ActiveSheet
        'fejléc a füzetre
        .Range("A1") = "Lépés"
        .Range("B1") = "Pozíció"
        .Range("C1") = "Véletlen szám"
        .Range("D1") = "Fibonacci szám"
        
        '100 lépéses ciklus
        For c = 1 To 100
            r = Rnd()
    
            'fel-le lépkedünk a listában
            If r < 0.5 Then
                pozicio = pozicio + 1
            Else
                If pozicio > 2 Then
                    pozicio = pozicio - 2
                Else
                    pozicio = 1
                End If
            End If
        
        'kiírtajuk a kapott eredeményeket
        .Cells(c + 1, "A") = c
        .Cells(c + 1, "B") = pozicio
        .Cells(c + 1, "C") = r
        .Cells(c + 1, "D") = FibonacciNum(pozicio)
        
        Next c
    End With
End Sub
'rekurzív fibonacci szám generátor
Function FibonacciNum(n As Long)
    
    If Not IsEmpty(fibonacci(n)) Then
        FibonacciNum = fibonacci(n)
        Exit Function
    End If
    
    If n = 0 Then
        FibonacciNum = 0
        fibonacci(0) = 0
        Exit Function
    End If
    
    If n = 1 Then
        FibonacciNum = 1
        fibonacci(1) = 1
        Exit Function
    End If
    
    FibonacciNum = FibonacciNum(n - 1) + FibonacciNum(n - 2)
    fibonacci(n) = FibonacciNum
End Function

  üdv

Új hozzászólás Aktív témák