Contoh program pascal Case of

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: baco
Nomor Stambuk : H111 07 052
Nilai Angka : 50
Nilai Huruf : C
Predikat : Kurang

Contoh Case …Of perhitungan berat dan harga barang

Ketentuan soal :
1. Kualitas Barang di masukkan
Kualitas Harga Per Kg
A/a 1000
B/b 750
C/c 500

Uses crt;
Var
Berat,harga,hargaperkg:integer;
Kualitas:char;
Begin
Clrscr;
Write(‘ Massukkan Kualitas Buah [A/B/C] : ‘); readln(kualitas);
Write(‘ Berapa Kg berat yang di beli : ‘ ); readln(berat);
Case kualitas of
‘A’,’a’: hargaperkg:=1000;
‘B’,’b’: hargaperkg:=750;
‘C’,’c’: hargaperkg:=500;
Else
Begin
Hargaperkg:=0;
Writeln(‘Salah Input’);
End;
End;

Harga:=hargaperkg*berat;
Writeln(‘ Harga Per Kg : Rp.’,hargaperkg);
Writeln(‘ Harga Total : Rp.’,harga);
End.