Beranda > Pascal > Pascal Bab : 4 Penyeleksi Kondisi – Case

Pascal Bab : 4 Penyeleksi Kondisi – Case

Pernyataan CASE merupakan alternatif dari pernyataan IF untuk masalah dengan pilihan berganda. Pada masalah tertentu CASE lebih memberikan kejelasan daripada IF. Namun semua persoalan yang dapat ditangani oleh CASE bisa ditangani oleh IF, tetapi sebaliknya. Format pernyataan CASE OF adalah sebagai berikut :

CASE nilai OF

Nilai_1 : pernyataan_1;

Nilai_2 : pernyataan_2;

………….

Nilai_k : pernyataan_k;

END;

Contoh program nilai ujian mahasiswa dalam bentuk A(berarti sangat Baik), B(berarti Baik), C(berarti Cukup), D(berarti Kurang) dan E(berarti Gagal).

                Program contoh_case1;

                Uses crt;

                Var nilai:char;

                Begin

                Clrscr;

                        Write(‘Tulislah nilai huruf yang di dapat dengan huruf kapital :’);readln(nilai);

                Case nilai of

                         ‘A’ : writeln(‘Sangat Baik’);

                         ‘B’ : writeln(‘Baik’);

                         ‘C’ : writeln(‘Cukup’);

                         ‘D’ : writeln(‘Kurang’);

                         ‘E’ : writeln(‘Gagal’);

               End;readln;

End.

Struktur CASE OF…..ELSE merupakan pengembangan dari struktur CASE OF. Pada struktur CASE OF apabila ada kondisi yang tidak terpenuhi berarti tidak ada pernyataan di dalam lingkungan CASE OF yang diproses. Struktur CASE OF…..ELSE, bila ada kondisi tidak terpenuhi maka pernyataan yang akan diproses adalah pernyataan yang ada di ELSE.

Contoh penggunaan CASE OF…..ELSE adalah sebagai berikut :

                 Program contoh_case2;

                Uses crt;

                Var nilai:char;

                Begin

                Clrscr;

                          Write(‘Pilihlah angka[1,2,3] :’);readln(nilai);

              Case nilai of

                      1 : writeln(‘Dapat Kulkas’);

                      2 : writeln(‘Dapat TV’);

                      3 : writeln(‘Dapat Mobil’);

                                 Else

                                         Writeln(‘Pilihan Salah’);

               End;readln;

End.

Kategori:Pascal
  1. Belum ada komentar.
  1. No trackbacks yet.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: