Soru = Klavyeden girilen bir otomobilin yaşı ve alış fiyatı verildiğinde alım-satım vergisini hesaplayan programı procedürde yapınız. 

Otomobilin Yaşı                    Vergi Oranı

  10 ve üstü                %5

    6 - 9                   %15

    4 - 5                   %15

          1 - 3                                              %40

Şekli :

Kodlar :

Procedure TForm1.Button1Click(Sender: TObject);
var
yas:byte;
af:longint;
vo:real;

Procedure hesap(y:byte;alisf:longint; 
                var vergi:real);
begin
     if y>=10 then vergi:=(alisf*(5/100))
else if (y>=6) and (y<=9) then 
                  vergi:=(alisf*(15/100)) 
else if (y>=4) and (y<=5) then 
                  vergi:=(alisf*(18/100))
else if (y>=1) and (y<=3) then 
                  vergi:=(alisf*(40/100));
end;

begin
yas:=strtoint(edit1.text);
af:=strtoint(edit2.text);
hesap(yas,af,vo);
label4.Caption:= floattostr(vo)+ ''+'YTL';
end; 

Procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
label4.Caption:='';
end;

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

Bu soruda ise otomobilin yaşını giriyoruz. Yaşa göre alım-satım vergisi şekilleniyor ve otomobilin alış fiyatını giriyoruz. Hesapla butonuna bastığımızda bize direk olarak hesaplama sonucunu veriyor. Temizle butonu ise editlerde ve sonucun yazdırıldığı yerleri sıfırlar. Çıkış ise programdan çıkmaya yarar.