Program nilai mahasiswa

Posted by Afit MIranto On 4:06 PM No comments

Program nilai_mahasiswa;
uses wincrt;
Var
Nilai : Real ;
Grade : Char ;
nama : string ;
Begin
write('NAMA: ',nama);
read(nama);
Write('NILAI ANDA : ');
Read(Nilai);

If Nilai > 85 Then
Grade := 'A'
else
If Nilai>65 Then
Grade := 'B'
Else
If Nilai > 55 Then
Grade := 'C'
Else
If Nilai > 40 Then
Grade := 'D'
Else
Grade := 'E' ;
Writeln(nama,' KETERANGANNYA : ',grade) ;
readln;
End.

Categories:

0 comments:

Post a Comment

Site search