Fibonacci-Zahlen

[glkgereon]

hi

hier ein function die einem die Index'te Fibonacci-Zahl liefert.

Delphi-Quellcode:

function Fibonacci1(Index: Integer):Int64;
var i:Integer;
    Last, New: Int64;
begin
  Result:=1;
  Last:=0;
  New:=1;
  for i:=2 to Index do
    begin
    Last:=Result;
    Result:=New;
    New:=Result + Last;
    end;
end;

Edit: ich hatte ne alte Version genommen
wieso merk ich das jetzt erst????