QUIZ ONLINE (PASCAL)

MENGHITUNG NILAI AKHIR MAHASISWA

 
Uses Crt ;
Var
         npm : integer ;
         nm, ket : string ;
         na : byte ;
         nh : char ;
Begin
        Clrscr ;
        Writeln ('Menghitung Nilai Akhir') ;
        Writeln ('-----------------------') ;
        Write ('NPM                   :') ;
        Readln (npm) ;
        if npm = 1 then
              nm := 'Hendro'
        else if npm = 2 then
              nm := 'Dian'
        else if npm = 3 then
              nm := 'Jhoni' ;
        Writeln ('Nama Mahasiswa              :',nm) ;
        Write ('Masukkan Nilai Angka        :') ;
        Readln (na) ;
        if na >= 50 then
              Writeln ('Keterangan              : LULUS')
        else
              Writeln ('Keterangan              : GAGAL') ;
        if na >= 80 then
              nh := 'A'
        else if na >= 70 then
              nh := 'B'
        else if na >= 60 then
              nh := 'C'
        else if na >= 50 then
              nh := 'D'
        else if na <= 49 then
              nh := 'E' ;
        Writeln ('Nilai Huruf              :',nh);
        Readln ;
End