Difference between revisions of "Fibonacci number/de"
From Lazarus wiki
Jump to navigationJump to searchm (→Fibonacci-Zahlen: Komma gesetzt) |
(→Siehe auch: ... hinzugefügt) |
||
| Line 54: | Line 54: | ||
</syntaxhighlight> | </syntaxhighlight> | ||
| − | == Siehe auch == | + | == Siehe auch ... == |
* [http://www.freepascal.org/docs-html/prog/progsu151.html Some assembly routine which uses the C calling convention that calculates the nth Fibonacci number] | * [http://www.freepascal.org/docs-html/prog/progsu151.html Some assembly routine which uses the C calling convention that calculates the nth Fibonacci number] | ||
Revision as of 13:51, 12 May 2017
Fibonacci-Zahlen
Die Fibonacci-Zahlen-Folge ist eine Reihe von Zahlen:
0, 1, 1, 2, 3, 5, 8, 13, 21, ...
Die Idee dahinter ist, die zwei vorhergehenden Zahlen zu addieren um die nächste zu erhalten.
Sie benannt nach Leonardo Fibonacci einem Rechengelehrten (heute würde man sagen Mathematiker) aus Pisa. Bekannt war die Folge lt. Wikipedia aber schon in der Antike bei den Griechen und Indern[1].
rekursive Art
function FibonacciNumber( n : integer ): integer;
begin
if n > 1 then
result := ( FibonacciNumber( n - 1 ) + FibonacciNumber( n - 2 ) )
else if n = 0 then
result := 0
else
result := 1;
end;iterative Art
Diese ist vorzuziehen.
function Fibonacci(n: Integer): Integer;
var
i, u, v, w: Integer;
Begin
if n <= 0 then
Result := 0
else if n = 1 then
Result := 1
else
begin
u := 0;
v := 1;
for i := 2 to n do
begin
w := u + v;
u := v;
v := w;
end;
Result := v;
end;
End;