Kodlar:
var
i,x,y,z:integer;
begin
x:=1; // ilk sayı 1 olarak atanır
y:=1; // ilk sayı 1 olarak atanır
ListBox1.Items.Add(inttostr(x)); // Bunlar yazdırılır
ListBox1.Items.Add(inttostr(y)); //Bunlar yazdırılır
for i:=1 to 10 do begin
z:=x+y; // 1. ve 2. sayı toplanır ve 3. sayı elde edilir
ListBox1.Items.Add(inttostr(z)); // 3. sayı yazdırılır.
x:=y; // 2. sayi 1. sayıya aktarılır
y:=z; // 3. sayı ise 2. sayıya aktarılır
end;
end;
Kaynak: http://www.tekno-logy.com/delphi-fibonacci-serisi.html
