Kullanıcı tarafından girilen iki sayının toplamı (Delphi)
Bunun için öncelikle iki adet edit kutusu ve bir tanede buton lazım bize.
procedure TForm1.Button2Click(Sender: TObject);
var
a,b,c:integer;
begin
a:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
c:=a+b;
label3.Caption:=inttostr(c);
{
burada c:=a+b; yerine c:=a-b; c:=a*b; yazılarak diğer matematiksel
işlemler yapılabilir. c:=a/b; işlemi için c değişkeni mutlaka ondalıklı
sayı olmalı yani c: extended; olarak tanımlanmalıdır. bilindiği gibi
extended integer veri tipini kapsar. Dolayısıyla extended olarak
tanımlanan a,b,c değişkenleri ile tüm işlemler yapılabilir.
}
end;
Yorumlar
Yorum Gönder