Menghitung Nilai MAHASISWA Di Delphi 7.0

Aplikasi Sederhana -- Meghitung Nilai MHS
procedure TForm1.Button1C lick(Sender:
TObject);
var n1, n2, n3, n4, na : real;
begin
n1 := StrToFloat(Edit 3.Text);
n2 := StrToFloat(Edit 4.Text);
n3 := StrToFloat(Edit 5.Text);
n4 := StrToFloat(Edit 6.Text);
na := 0.5 * (n1 + n2) / 2 + 0.2 * n3 + 0.3 * n4;
edit7.Text := floatTostr(na);
if na >= 80 then
edit8.Text :='A'
else if na >= 65 then
edit8.Text :='B'
else if na >= 50 then
edit8.Text :='C'
else if na >= 40 then
edit8.Text :='D'
else
Edit8.Text :='E'
end;
procedure TForm1.Button3C lick(Sender:
TObject);
begin
application.Ter minate
end;
procedure TForm1.Button2C lick(Sender:
TObject);
begin
Edit1.text := '';
Edit2.text := '';
Edit3.text := '';
Edit4.text := '';
Edit5.text := '';
Edit6.text := '';
Edit7.text := '';
Edit8.text := '';
edit1.setFocus
end;