Program Pascal Untuk Mencari Nilai Huruf

Berikut program pascal untuk mencari nilai huruf dari nilai akhir yang di inputkan.


Bila di ketahui kasus seperti ini :

Nilai	Nilai Huruf
80 .. 100	A
70 .. 79	B
60 .. 69	C
50 .. 59	D
0 .. 49	E

Berikut penyelesaian dari kasus diatas :
Menggunakan Program PASCAL
uses crt ;
var
   nilai : byte ;
   nhuruf: char ;
begin
     clrscr ;
     writeln ('Menghitung Nilai Akhir');
     writeln ('---------------------------');
     write   ('Nilai Semester : '); readln(nilai) ;
     if (nilai>=80) and (nilai<=100) then
        nhuruf := 'A'
     else if (nilai>=70) and (nilai<=79) then
        nhuruf := 'B'
     else if (nilai>=60) and (nilai<=69) then
        nhuruf := 'C'
     else if (nilai>=50) and (nilai<=59) then
        nhuruf := 'D'
     else if (nilai>=0) and (nilai<=49) then
        nhuruf := 'E'
     else
        nhuruf := '-';

     writeln ('Nilai Huruf    : ', nhuruf );
     readln;
end.