Effiziente Algorithmen

[EdAdvokat]

wie wäre es denn mit den Fibronacci-Zahlen?

Delphi-Quellcode:

function TForm1.fibonit(n:integer): integer;
var
  x,y,z,i:integer;
begin
  x:=1;
  y:=1;
  i:=0;
  repeat
    i:=i+1;
    z:=x+y;
    y:=x;
    x:=z;
  until i=(n-2);
  result:=z;
end;

mit dem Algorithmus "Neu=Uralt+Alt"
erscheint doch recht einfach und übersichtlich