Lucas number/fr
From Free Pascal wiki
Revision as of 08:57, 24 November 2016 by E-ric (talk | contribs) (Created page with "= 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 term...")
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;