Lucas number/fr

│ English (en) │ suomi (fi) │ français (fr) │

Lucas number

La suite de Lucas est la suivante :

2, 1, 3, 4, 7, 11, 18, 29, 47, ...

Définie comme la suite de Fibonacci mais les premiers termes sont 2 et 1.

Méthode récursive

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

Emploi du nombre de Fibonacci

function LucasNumber2( n : integer ): integer;
begin
  result := FibonacciNumber( n + 1 ) + FibonacciNumber( n - 1 );
end;