Membuat Program Menghitung Nilai Ujian Dengan Delphi

procedure TForm1.mulaiClick(Sender: TObject);

begin

EDNIM.Enabled:=true;

EDNAMA.Enabled:=true;

EDNTUGAS.Enabled:=true;

EDMID.Enabled:=true;

EDUAS.Enabled:=true;

EDNA.Enabled:=true;

EDNH.Enabled:=true;

EDNIM.Text:='';

EDNAMA.Text:='';

EDNTUGAS.Text:='';

EDMID.Text:='';

EDUAS.Text:='';

EDNH.Text:='';

EDNIM.SetFocus;

end;

procedure TForm1.prosesClick(Sender: TObject);

var

tugas,mid,uas,akhir: real;

begin

tugas:=StrToInt(EDNTUGAS.Text )* 0.2;

mid:=StrToint(edmid.Text )* 0.3;

uas:=StrToInt(eduas.Text )*0.5;

akhir:= tugas + mid + uas;

EDNTUGAS.Text:=FloatToStr(tugas);

edmid.Text:=FloatToStr(mid);

eduas.Text:=FloatToStr(uas);

EDNA.Text:=FloatToStr(akhir);

if (strtofloat(EDNA.Text)>=100) then

EDNH.Text:='A'

else if (strtofloat(EDNA.Text)<80) and (strtofloat(EDNA.Text)>=60) then

EDNH.Text:='B'

else if (strtofloat(EDNA.Text)<60) and (strtofloat(EDNA.Text)>=40) then

EDNH.Text:='C'

else if (strtofloat(EDNA.Text)<40) and (strtofloat(EDNA.Text)>=20) then

EDNH.Text:='D'

else

EDNH.Text:='E'

end;

procedure TForm1.KELUARClick(Sender: TObject);

begin

close;

end;