Section courante

A propos

Section administrative du site

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 Delphi:

  1. Program FibonacciSamples;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. Uses SysUtils;
  6.      
  7. Function Fibonacci(n:Integer):Integer;
  8. Var
  9.  i,u,v,w:Integer;
  10. Begin
  11.  If n <= 0 Then Begin
  12.   Fibonacci := 0;
  13.   Exit;
  14.  End;
  15.  If n = 1 Then Begin;
  16.   Fibonacci := 1;
  17.   Exit;
  18.  End;
  19.  u := 0;
  20.  v := 1;
  21.  For i := 2 to n do Begin
  22.   w := u + v;
  23.   u := v;
  24.   v := w;
  25.  End;
  26.  Fibonacci:=v;
  27. End;
  28.      
  29. Var
  30.  I:Integer; 
  31.      
  32. BEGIN
  33.  For I := 0 to 10 do Begin
  34.   WriteLn('Fibonacci(',I,')=',Fibonacci(I));
  35.  End;
  36. END.

on obtiendra le résultat suivant :

Fibonacci(0)=0
Fibonacci(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

Science - Mathématique

Dernière mise à jour : Dimanche, le 17 août 2014