Soru = Klavyeden girilen 2 sayının arasında toplama, çıkarma, çarpma veya bölme yapan programı prosedürde yapınız.
Şekli:
Kodları:
Procedure topla(a,b:integer; var s:real);
begin
s:=a+b;
end;
Procedure cikar(a,b:integer; var s:real);
begin
s:=a-b;
end;
Procedure carp(a,b:integer; var s:real);
begin
s:=a*b;
end;
Procedure bol(a,b:integer; var s:real);
begin
s:=a/b;
end;
Procedure TForm1.Button1Click(Sender: TObject);
var
x,y:integer;
sonuc:real;
begin
x:=strtoint(edit1.text);
y:=strtoint(edit2.text);
topla(x,y,sonuc);
label4.Caption:=floattostr(sonuc);
end;
Procedure TForm1.Button2Click(Sender: TObject);
var
x,y:integer;
sonuc:real;
begin
x:=strtoint(edit1.text);
y:=strtoint(edit2.text);
cikar(x,y,sonuc);
l abel4.Caption:=floattostr(sonuc);
end;
Procedure TForm1.Button3Click(Sender:TObject);
var
x,y:integer;
sonuc:real;
begin
x:=strtoint(edit1.text);
y:=strtoint(edit2.text);
carp(x,y,sonuc);
label4.Caption:=floattostr(sonuc);
end;
Procedure TForm1.Button4Click(Sender:TObject);
var
x,y:integer;
sonuc:real;
begin
x:=strtoint(edit1.text);
y:=strtoint(edit2.text);
bol(x,y,sonuc);
label4.Caption:=floattostr(sonuc);
end;
Procedure TForm1.Button5Click(Sender:TObject);
begin
edit1.Text:='';
edit1.SetFocus;
edit2.Text:='';
label4.Caption:='';
end;
Procedure TForm1.Button6Click(Sender:TObject);
begin
halt;
end;
Çalışma Şekli :
Topla butonuna bastığımızda iki sayının toplamını verir.
Çıkar butonuna bastığımızda ilk sayının ikinci sayıdan çıkarma sonucunu verir.
Çarp butonuna bastığımızda iki sayının çarpımını verir.
Bölme butonuna bastığımızda ilk sayının ikinci sayıya bölümünün sonucunu verir.
|