Fibonacci-Zahlen (iterativ)

[sharkx]

Zitat von Kamil:

Bei der Fuktion Fehlt ein Ergebnis (result:=x)

Entweder so:

Delphi-Quellcode:

procedure TForm1.fibonit(n:integer);
var
  x,y,z,i:integer;
begin 
  x:=1;
  y:=1;
  listbox1.items.add(inttostr(x));
  listbox1.items.add(inttostr(y));
  i:=0;
  repeat
    i:=i+1;
    z:=x+y;
    listbox1.items.add(inttostr(z));
    y:=x;
    x:=z;
  until i=(n-1);
end; 

procedure TForm1.Button1Click(Sender: TObject);
var
  n: integer;
begin 
  n:=strtoint(edit1.text);
  fibonit(n);
end;

oder so:

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-1);
  result:=z;
end; 

procedure TForm1.Button1Click(Sender: TObject);
var
  n: integer;
begin 
  n:=strtoint(edit1.text);
  listbox1.items.add(inttostr(fibonit(n)));
end;

Delphi-Quellcode:

    
    y:=x;
    x:=z;

Wozu? Warum nich gleich y := z; ?