Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Algorytm Fobonacieg:(
anonim




Typ: Nie zarejestrowany
Algorytm Fobonacieg:(

Wiecie Cos moze o Algorytmie Fibonacieg;( mozecie mi POmoc na jutro musze go napisac w VBA a nie mam popjecia jak z gory dziekuje

04-03-2004 20:13
  
Jelcyn
Admin forum




Typ: admin
Postów: 895
Zarejestrowany: Apr 2002

Nie wiem czy jest dobrze, przetłumaczyłem to z pascala na VB

Function fibn(n As Integer) As Integer
    Dim i As Integer, f1 As Integer, f2 As Integer, f3 As Integer

    If n < 3 Then
        fibn = 1
    Else
        f1 = 1
        f2 = 1
        For i = 3 To n
          f3 = f1 + f2
          f1 = f2
          f2 = f3
        Next i
    fibn = f3
    End If
End Function


_____________________________________________
Jelcyn
vb4all(małpka)canpol.pl
http://www.coderscity.pl/no-vb4all * http://www.jelcyn.com

04-03-2004 23:05
Pokaż profil Jelcyn  Wyślij email do Jelcyn   Odwiedź stronę Jelcyn       270849979    6237704
Wszystkich odpowiedzi: 1 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1