Difference between revisions of "Lucas number/fr"
From Lazarus wiki
Jump to navigationJump to searchm |
m (Fixed syntax highlighting) |
||
Line 11: | Line 11: | ||
== Méthode récursive == | == Méthode récursive == | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
function LucasNumber( n : integer ): integer; | function LucasNumber( n : integer ): integer; | ||
Line 28: | Line 28: | ||
== Emploi du [[Fibonacci number/fr|nombre de Fibonacci]] == | == Emploi du [[Fibonacci number/fr|nombre de Fibonacci]] == | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
function LucasNumber2( n : integer ): integer; | function LucasNumber2( n : integer ): integer; | ||
Line 36: | Line 36: | ||
</syntaxhighlight> | </syntaxhighlight> | ||
− |
Latest revision as of 06:56, 19 February 2020
│
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;