Delphi – İki Sayı Arasındaki Sayıları Toplatma

Merhaba arkadaşlar,

Sizlere delphi ile iki sayı arasındaki sayıları toplatmayı göstereceğim.

Bu işlemimiz için delphi ile açmış olduğumuz formumuzu 2 adet edit, 1 adet label ve 1 adet buton koyuyoruz.

Koymuş olduğumuz bileşenlerden butonun içine yani click olayına aşağıdaki kodları yazıyoruz.


procedure TForm1.Button1Click(Sender: TObject);
var
top,ilk,son:integer;
I: Integer;
begin
ilk:=strtoint(edit1.Text);
son:=strtoint(edit2.Text);
top:=0;

for I := ilk to son do top := top+ I;
label1.caption:=inttostr(top);
end;

Kodlarımızı yazdıktan sonra artık iki sayı arası toplama işlemini yapabileceğiz.

Şimdi bu kodların çalışma mantığına gelecek olursak, sırasıyla şu işlemleri yaptırdık.

İlk önce ilk sayı, son sayı, toplam ve arttırdığımız sayıları hafızaya almak için I değişkenini tanımladık. Daha sonra ilk sayı ve son sayıyı nereden alacağını belirterek editlerden gelen bilgiyi karakterselden sayısala çevirdik. Toplamı ise başlangıç olarak 0 atadık.

Sayılarımızın nerelerden geleceğini belirledikten sonra for döngüsüne sokarak toplamı 1 arttırarak hafızaya alınmasını sağladık ve sonuç değişkenini labelde gösterdik.

Ekran çıktımız ise aşağıdaki gibi oldu.

 

 

 

 

Sosyal Medyada Paylaş Facebook Twitter Google+

Etiketler: , , , , , , , , , , ,
Eklenme Tarihi: 23 Ocak 2017

Konu hakkında yorumunuzu yazın