Penggunaan Pernyataan CASE OF Pada Turbo Pascal

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

Bentuk umumnya adalah:

CASE nilai OF     Daftar_nilai1: pernyataan_1;     Daftar_nilai2: pernyataan_2;     … … … ...     Daftar_nilaim: pernyataan_m; ELSE     Pernyataan_n END

           

Pada bentuk umum pernyataan CASE-OF diatas:

·         Nilai dapat berupa tipe  char, byte dan Boolean.

·         Daftar_nilai dapat berupa satu atau beberapa konstanta.

Contoh programnya adalah:

a)      Algoritma:

Algoritma menu makanan harian

DEKLARASI

            Hari     : integer

DESKRIPSI

            Read (hari)

            CASE hari  OF

                        Hari = senin     : write(‘menu ayam bakar’)

                        Hari = selasa    : write(‘menu ikan goreng’)

                        Hari = rabu      : write(‘menu dendeng’)

                        Hari = kamis    : write(‘menu gulai kambing’)

                        Hari = jumat    : write(‘menu ayam gulai’)

                        Hari = sabtu    : write(‘menu sup buntut’)

                        Hari = minggu : write(‘menu gado-gado’)

                              Otherwise write (‘nama hari yang anda masukan salah’)

                        ENDCASE

b)     Kode Program:

program menu_makanan_harian;

var

    hari        : integer;

begin

     writeln('masukan kode hari'); readln(hari);

      case hari of

           1  : write ('hari senin,menu ayam bakar');

           2  : write ('hari seelasa,menu ikan goreng');

           3  : write ('hari rabu,menu dendeng');

           4  : write ('hari kamis,menu gulai kambing');

           5  : write ('hari jumat,menu ayam gulai');

           6  : write ('hari sabtu,menu sup buntut');

           7  : write ('hari minggu,menu gado-gado');

      else

          write ('kode hari yang anda masukan salah')

      end;

     readln;

end.

Hasil Program:

        

Cara kerjanya adalah:

Pengujian akan dilakukan mulai dari atas (kode hari 1) jika pengujian tidak cocok maka akan dilanjutkan ke kode hari berikutnya. Kalau ada yang cocok pernyataan sesudahnya akan di lewatkankan dan eksekusi dilanjutkan ke END.

            Tetapi jika kode hari tidak ada yang cocok, maka bagian ELSE lah yang akan dikerjakan atau di eksekusi.

Selamat Mencoba,, semoga berhasil... ^_^