Soru = Girilen 3 sayıdan en büyüğünü bulan programı prosedürde yapınız.
Şekli :
Kodlar :
Procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,eb:integer;
Procedure buyuk(x,y,z:integer; var enbyk:integer);
begin
if x>y then enbyk:=x
else enbyk:=y;
if z>enbyk then enbyk:=z;
end;
begin
a:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
c:=strtoint(edit3.Text);
buyuk(a,b,c,eb);
label5.Caption:='En büyük sayı =' + ' ' + inttostr(eb);
end;
Procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
label5.Caption:='';
end;
Procedure TForm1.Button3Click(Sender: TObject);
begin
halt;
end;
Çalışma Şekli :
 
Burda ise klavyeden 3 sayı giriyoruz ve bu sayılar arasından “En Büyük Sayıyı Bul” butonuna tıklayarak en büyük sayıyı göstermiş oluruz. Temizle butonu ise editlerde ve sonucun yazdırıldığı labeli sıfırlar.Çıkış ise programdan çıkmak için kullanılır.
|
