La suite de Fibonacci

[MetalOS]

En mathématiques, la suite de Fibonacci est une suite d'entiers dans laquelle chaque terme est la somme des deux termes qui le précèdent.

Notée ( F n ) (F_{n}), elle est définie par F 0 = 0 , F 1 = 1 {\displaystyle F_{0}=0,\quad F_{1}=1}, et F n = F n − 1 + F n − 2 {\displaystyle F_{n}=F_{n-1}+F_{n-2}} pour n ⩾ 2 {\displaystyle n\geqslant 2}.

Les termes de cette suite sont appelés nombres de Fibonacci et forment la suite A000045 de l'OEIS :

Bref je me suis amusé à écrire un petit code qui génère cette suite. Ca ne sert à rien mais ça m'a amusé à le faire.

Code : Tout sélectionner

; Programme PureBasic pour générer la suite de Fibonacci

; Définition des variables
n1 = 0
n2 = 1
n3 = 0
nombre_termes = 100 ; nombre de termes à générer

; Boucle pour générer les termes
For i = 1 To nombre_termes
  Debug n3
  n1 = n2
  n2 = n3
  n3 = n1 + n2
Next

[threedslider]

Cool ! Merci MetalOS pour le partage

Pour ceux qui veulent pour la fonction de Fibonacci, c'est ici :

Code : Tout sélectionner

Procedure fibo(num.i)
  If num = 0
    num = 0
    ProcedureReturn num
  ElseIf num = 1
    num = 1
    ProcedureReturn num
  Else
    ProcedureReturn fibo(num-1) + fibo(num-2)
  EndIf    
EndProcedure

For i = 0 To 30
  Debug fibo(i)
Next

Voilà