Hello sobat Programmer, sebelumnya kita telah mencoba membuat Program Menampilkan Nilai Huruf Menggunakan Bahasa C, nah kali ini sobat bisa mencoba nya dengan Bahasa Pascal, sekaligus sobat dapat mencoba menganalisa perbedaan keduanya.

yuk mari dicoba,

Uses Crt;
Var
   Na :byte;
   Nh :char;

Begin
     Clrscr;
     Writeln('Mencari Nilai Huruf');
     Writeln('-------------------------');
     Write  ('Inputkan Nilai Angka:'); Readln(na);
     Case na of
          80..100  :Nh:='A';
          70..79   :Nh:='B';
          60..69   :Nh:='C';
          50..59   :Nh:='D';
          0..49    :Nh:='E';
     End;
     Writeln('Nilai Huruf :', Nh);
     Readln;
End.