Difference between revisions of "Lucas number/fr"
From Lazarus wiki
Jump to navigationJump to search (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...") |
m (Fixed syntax highlighting) |
||
(One intermediate revision by one other user not shown) | |||
Line 1: | Line 1: | ||
+ | {{Lucas_number}} | ||
+ | |||
= Lucas number = | = Lucas number = | ||
Line 9: | 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 26: | 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 34: | 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;