Contoh Program Case Of pada Pascal

Contoh Program Pemilihan Case-Of Bahasa Pascal

 Berikut ini contoh contoh program yang menggunakan instruksi pemilihan menggunakan instruksi Case-Of menggunakan bahasa pascal dan compiler lazarus

1. Case Of Menentukan Hari

var
hari:integer;
begin
write(‘Hari ke..= ‘);
readln(hari);
case hari of
1:writeln(‘Senin’);
2:writeln(‘Selasa’);
3:writeln(‘Rabu’);
4:writeln(‘Kamis’);
5:writeln(‘Jumat’);
6:writeln(‘Sabtu’);
7:writeln(‘Minggu’);
end;
readln;
end.

2. Case Of Pemilihan Lulus / Tidak

var Nama,Ket:String;
Nilai:Integer;
begin
writeln(‘Instruksi Pemilihan Menggunakan case-of’);
writeln(‘=========================================’);
write(‘Nama : ‘);readln(Nama);
write(‘Nilai : ‘);readln(Nilai);
case Nilai of
41..100 : Ket := ‘Lulus’;
0..40 : Ket :=’Tidak Lulus’;
end;
write(‘Keterangan : ‘,Ket);
readln;
end.