PENGGUNAAN PERNYATAAN CASE OF PADA PASCAL

Pernyataan CASE-OF biasanya digunakan untuk sebuah permasalahan ganda. Karena pada pernyataan CASE-OF lebih jelas dan lebih mudah untuk dipahami serta lebih cepat pembuatannya daripada menggunakan pernyataan IF-THEN-ELSE.

CASE ekspresi OF

Nilai1 : aksi 1;

Nilai1 ; aksi 2;

....

else

      aksi_default;

end;

 Pada bentuk umum pernyataan CASE OF diatas : Aksi dapat berupa tipe "char, integre, string".

Contoh sebuah bahasa pemograman mencari nilai siswa :

Program Mencari_Nilai;

Uses crt;

var

    nilai : integer;

    nilai_huruf: char;

    ket : string;

    jwb : char;

begin

clrscr;

    writeln('BELAJAR CASE DUA BAGIAN');

    writeln('========================');

    write('nilai');

    readln(nilai);

Case nilai Of

0..40 : nil_huruf:='E';

41..50 : nil_huruf:='D';

51..60 : nil_huruf:='C';

61..79 : nil_huruf:='B';

80..99 : nil_huruf:='A';

end;

begin

Case nil_huruf Of

'E' : Ket :='GAGAL';

'D' : Ket :='KURANG';

'C' : Ket :='CUKUP';

'B' : Ket :='BAIK';

'A' : Ket :='SANGAT BAIK';

end;

writeln('Grade= ',nil_huruf);

writeln('Keterangan= ',ket);

readln;

end;

end.

Diatas contoh sebuah bahasa pemograman CASE OF untuk mencari nilai siswa.

Selamat Mencoba..