Delphi ile Fibonacci sayıların bulunması

Selam arkadaşlarfibonacci sayılasrın bölünmesi ile ilgili güzel bir çalışmadır. Delphi dilini ve matematiği seven arkadaşların hoşuna gigeceğini umarım. BİŞAR ÇINAR bisarcinar@gmail.com izmir

KULLANILACAK BİLEŞENLER:
1.BUTTON
1.LİSTBOX VE EDİT
----------------------------------------------------------

procedure TForm1.Button1Click(Sender: TObject);
var
i,a,b,c:integer;
begin

i:=3;
a:=1;
b:=1;
c:=2;
if (i>2)then
repeat
c:=(a+b);
a:=b;
b:=c;
ListBox1.Items.Add(IntToStr(b));
i:=i+1;
until i>=StrToInt(Edit1.Text)
else
ShowMessage(IntToStr(a));
end;

end.

BİŞAR ÇINAR
bisarcinar@gmail.com
izmir

TD Software