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;