Program Menghitung Nilai Menggunakan If Then Else Pada Delphi

Assalamu'alaikum wr. wb.

Pada kesempatan kali ini saya akan share program delphi menghitung nilai menggunakan if then else. Program ini adalah aplikasi untuk menghitung nilai dengan menginputkan prosentase nilai masing - masing kriteria, untuk desain dan tampilan ada di bawah.

Program Menghitung Nilai

procedure TForm1.Button1Click(Sender: TObject);
Var Kehadiran, Tugas, Kuis, UTS, UAS, Angka:real;
    Huruf:String;
begin
   Kehadiran:=StrToFloat(Edit1.Text);
   Tugas:=StrToFloat(Edit2.Text);
   Kuis:=StrToFloat(Edit3.Text);
   UTS:=StrToFloat(Edit4.Text);
   UAS:=StrToFloat(Edit5.Text);
   Angka:=Kehadiran*0.1+Tugas*0.2+Kuis*0.2+UTS*0.25+UAS*0.25;
    If Angka <20 then
      Huruf:='E'
    else If Angka <30 then
      Huruf:='D'
    else If Angka <35 then
      Huruf:='C-'
    else If Angka <40 then
      Huruf:='C'
    else If Angka <50 then
      Huruf:='C+'
    else If Angka <60 then
      Huruf:='B-'
    else If Angka <70 then
      Huruf:='B'
    else If Angka <80 then
      Huruf:='B+'
    else If Angka <90 then
      Huruf:='A-'
    else
      Huruf:='A';
    Edit6.Text:=FloatToStr(Angka);
    Edit7.Text:=Huruf;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
   Edit1.Text:='';
   Edit2.Text:='';
   Edit3.Text:='';
   Edit4.Text:='';
   Edit5.Text:='';
   Edit6.Text:='';
   Edit7.Text:='';
   Edit1.SetFocus;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Close;
end;
end.

Tampilan:

Demikian yang dapat saya sampaikan tentang program delphi pada kesempatan kali ini, semoga bermanfaat. Wassalamu'alaikum wr.wb.