Contoh program Menggunakan case ….of….

program latihan_bytaufik;
uses crt;
var
npeserta,nkursus:string;
kkursus:char;
biaya:real;
lama:integer;
begin
clrscr;
write(’nama peserta’);readln(npeserta);
write(’nama kursus’);readln(nkursus);
write(’kode kursus(A/B/C/D):’);readln(kkursus);
case kkursus of
‘A’,'a’:begin
nkursus:=’visual basic’;
biaya:=300000;
lama:=26;
end;
‘B’,'b’:begin
nkursus:=’visual foxpro’;
biaya:=250000;
lama:=18;
end;
‘C’,'c’:begin
nkursus:=’java’;
biaya:=350000;
lama:=24;
end;
‘D’:begin
nkursus:=’c++’;
biaya:=200000;
lama:=15;
end;
end;
writeln(’nama peserta:’,npeserta);
writeln(’nama kursus:’,nkursus);
writeln(’kode kursus:’,kkursus);
writeln(’lama :’,lama);
readln;
end.