contoh program pascal case of

program pascal dengan menggunakan case of.... bisa dilihat dan di modifikasi sendiri

program nilai_ujian;
uses crt;
var nama :string[25];
nim :string[20];
nilai_angka:integer;
nilai_huruf:char;
predikat :string[30];
begin
clrscr;
writeln(' Program Pemberian Nilai');
writeln;
write('Masukkan Nama Mahasiswa: ');readln(nama);
write('Masukkan Nim : ');readln(nim);
write('Masukkan Nilai Angka : ');readln(nilai_angka);
writeln;
case nilai_angka of
0..59 :nilai_huruf:='C';
60..79 :nilai_huruf:='B';
80..100:nilai_huruf:='A';
end;
case nilai_huruf of
'C' : predikat:='Kurang';
'B' : predikat:='memuaskan';
'A' : predikat:='Bagus Sekali';
end;
writeln('------------------------------');
writeln('Nama Mahasiswa: ',nama);
writeln('Nomor Stambuk : ',nim);
writeln('Nilai Angka : ',nilai_angka);
writeln('Nilai Huruf : ',nilai_huruf);
writeln('Predikat : ',predikat);
readln;
end.


HASIL EKSEKUSI:
Program Pemberian Nilai

Masukkan Nama Mahasiswa: baco'....
Masukkan Nim : H111 07 052
Masukkan Nilai Angka : 50

------------------------------
Nama Mahasiswa: bari
Nomor Stambuk : H111 07 052
Nilai Angka : 50
Nilai Huruf : C
Predikat : Kurang