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>
 
 
 
 
[[Category:Mathematics]]
 

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;