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 selasa, 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 masukkan 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.