Nombre de Fibonacci

La suite de Fibonacci est la suivante : 0, 1, 1, 2, 3, 5, 8, 13, 21, ...
Chaque nombre est la somme de ses deux prédécesseurs, les deux premiers termes sont 0 et 1.

Méthode récursive

function FibonacciNumber( n : integer ): integer;
begin
  if n > 1 then result := ( FibonacciNumber( n - 1 ) + FibonacciNumber( n - 2 ) )
    else
      if n = 0 then result := 0
        else result := 1;
end;

Méthode itérative

Celle-ci est préférable.

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;
  Result := v;
End;

Voir aussi

• Suite de Fibonacci
• Some assembly routine which uses the C calling convention that calculates the nth Fibonacci number
• Solution de Tao Yue au problème de la suite de Fibonacci

From the Free Pascal wiki, page "Fibonacci number/fr", as it stood on 2020-02-14 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's Licensing page. If you have concerns about this material, message the admin.