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
