Anasayfa > Kodlar > Delphi ile Fibonacci sayıların bulunması

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


  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: