Difference between revisions of "Lucas number"
From Free Pascal wiki
Jump to navigationJump to search (→Recursive way: indentation) |
m |
||
Line 1: | Line 1: | ||
+ | {{Lucas_number}} | ||
+ | |||
= Lucas number = | = Lucas number = | ||
Line 34: | Line 36: | ||
</syntaxhighlight> | </syntaxhighlight> | ||
− | + | <br> | |
− | |||
− | |||
− |
Revision as of 07:58, 24 November 2016
│
English (en) │
suomi (fi) │
français (fr) │
Lucas number
The Lucas Sequence is the series of numbers:
2, 1, 3, 4, 7, 11, 18, 29, 47, ...
Recursive way
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;
Making use of Fibonacci numbers
function LucasNumber2( n : integer ): integer;
begin
result := FibonacciNumber( n + 1 ) + FibonacciNumber( n - 1 );
end;