Vous vous souvenez de la célèbre suite de nombre du mathématicien italien Leonardo Pisano (1170 à 1250) pour calculer à l'origine la croissance de la population de lapin. Selon le spirale suivant :
Voici un programme permettant de calculer le Fibonacci de nombre entier en Free Pascal :
- Program FibonacciSamples;
-
- Function Fibonacci(n:Integer):Integer;
- Var
- i,u,v,w:Integer;
- Begin
- If n <= 0 Then Exit(0);
- If n = 1 Then Exit(1);
- u := 0;
- v := 1;
- For i := 2 to n do Begin
- w := u + v;
- u := v;
- v := w;
- End;
- Fibonacci:=v;
- End;
-
- Var
- I:Integer;
-
- BEGIN
- For I := 0 to 10 do Begin
- WriteLn('Fibonacci(',I,')=',Fibonacci(I));
- End;
- END.
on obtiendra le résultat suivant :
Fibonacci(0)=0Fibonacci(1)=1
Fibonacci(2)=1
Fibonacci(3)=2
Fibonacci(4)=3
Fibonacci(5)=5
Fibonacci(6)=8
Fibonacci(7)=13
Fibonacci(8)=21
Fibonacci(9)=34
Fibonacci(10)=55
Voir également
Dernière mise à jour : Jeudi, le 29 décembre 2011