Delphi Vize-final hesapla

Delphi de Delphi Vize-final hesapla programını yapacağız. Öğrenciye ait vize ve final notlarının ortalamasını hesaplayın.Bunun sonucunda geçip ya da kaldığını ekrana yazdıran programın kodu.

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TForm1.Button1Click(Sender: TObject); var vize1,final:integer; ortalama:real; begin vize1:=Strtoint(Inputbox('Vize Notunuzu Giriniz','Vize Notu',' ')); final:=Strtoint(inputbox('Final notunuzu giriniz','Final Notu ','')); ortalama:=vize1*0.3+final*0.7; if ortalama>=50 then ShowMessage('Tebrikler Sınıfı Geçtiniz') else ShowMessage('Malesef Sınıfta Kaldınız'); end; end.