Delphi - Penggunaan If Else - Program Menghitung NIlai

Ketentuan persentasi nilainya :

Kehadiran      = 10%

Tugas              = 20%

Kuis                 = 20%

UTS                 = 25%

UAS                 = 25%

  

Button Hitung

procedure TForm3.Button1Click(Sender: TObject);

var kehadiran, tugas, kuis, uts, uas, nAngka:real;

    nHuruf:String;

begin

   kehadiran := StrToFloat(Edit1.Text);

   tugas := StrToFloat(Edit2.Text);

   kuis := StrToFloat(Edit3.Text);

   uts := StrToFloat(Edit4.Text);

   uas := StrToFloat(Edit5.Text);

   nAngka:=(kehadiran*0.1)+(tugas*0.2)+(kuis*0.2)+(uts*0.25)+(uas*0.25);

    If nAngka <20 then

      nHuruf:='E'

    else If nAngka <30 then

      nHuruf:='D'

    else If nAngka <35 then

      nHuruf:='C-'

    else If nAngka <40 then

      nHuruf:='C'

    else If nAngka <50 then

      nHuruf:='C+'

    else If nAngka <60 then

      nHuruf:='B-'

    else If nAngka <70 then

      nHuruf:='B'

    else If nAngka <80 then

      nHuruf:='B+'

    else If nAngka <90 then

      nHuruf:='A-'

    else

      nHuruf:='A';

    Edit6.Text:=FloatToStr(nAngka);

    Edit7.Text:=nHuruf;

end;

end.

Share on Google Plus

About Stevanina

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.