Soru = Klavyeden 3 not girilen ve bu notların ortalamasını alan programı prosedürde yapınız.

Şekli :

Kodları :

Procedure TForm1.Button1Click(Sender: TObject); 
var 
x,y,z:integer;
ort:real;
sonuc:Real;

Procedure ortalama(a,b,c:integer; var ortala:real); 
begin 
Ortala:=(a+b+c)/3;
end; 
begin 
x:=strtoint(edit1.Text);
y:=strtoint(edit2.Text);
z:=strtoint(edit3.Text);
ortalama(x,y,z,ort);
Sonuc:=trunc(ort);
label5.Caption:=floattostr(sonuc);
if ort >=45 then Label6.Caption:='Geçti'
else
Label6.Caption:='Kaldı';
end; 

Procedure TForm1.Button2Click(Sender: TObject);
begin 
edit1.Text:='';
edit1.SetFocus;
edit2.Text:='';
edit3.Text:='';
label5.Caption:='';
label6.Caption:='';
end; 

Procedure TForm1.Button3Click(Sender: TObject); 
begin 
halt;
end; 

Çalışma Şekli : 

Burada ise 3 not giriyoruz ve 3 notun ortalamasına göre Geçti veya Kaldı mesajını veriyoruz. Temizle butonu ise yazdığımız notların editlerin üzerinden silinmesini sağlıyor. Çıkış butonu ise programdan çıkmak için kullanılıyor.