Tutorial Belajar Pascal Part 39: Struktur Percabangan CASE dalam Pascal

Posted on

Melanjutkan panduan belajar pascal di Source Code Program, kali ini kita akan membahas mengenai struktur percabangan CASE dalam bahasa pemrograman Pascal.


Pengertian Struktur Percabangan CASE di Pascal

Secara sederhana, struktur percabangan CASE mirip seperti struktur IF THEN ELSE yang berulang. Apabila di di IF THEN ELSE kita mempunyai format penulisan seperti berikut:

Karenanya di struktur CASE, format penulisannya seperti ini:

Expression yaitu ‘sesuatu’ yang akan di periksa nilainya. Apabila nilai dari expression ini sama dengan kondisi 1, karenanya yang dijalankan yaitu (kode program 1), bila sesuai dengan kondisi 2, karenanya yang akan dijalankan yaitu (kode program 2), dst.

Penjelasan ini akan lebih gampang bila menggunakan contoh kode program.


Contoh Kode Program Pascal untuk Struktur IF THEN ELSE

Saya ingin menyusun program yang bila seseorang menginput angka 1, akan tampil teks “Januari”, yakni bulan pertama-tama di 1 tahun. Apabila diinput angka 2, akan tampil teks “Februari”. Demikian seterusnya hingga angka ke 12 yang akan menampilkan teks “Desember”. Bagaimana cara menyusun program seperti ini?

Berikut kode program Pascal yang saya gunakan:

Kode program diatas lumayan panjang. Namun bila rekan-rekan telah memahami struktur logika IF THEN ELSE, hakekatnya lumayan sederhana.

Di awal kode program, saya mendefenisikan sebuah variabel bulan dengan tipe data integer. Artinya variabel bulan hanya dapat diisi dengan angka bulat, seperti 1, 2, 7, dst. Kemudian saya meminta user mengisi variabel ini, yakni dengan pedoman:

Kini, apapun angka yang diinput oleh user akan disimpan ke di variabel bulan.

Saya dapat mengecek nilai variabel angka menggunakan struktur IF THEN ELSE, dimana if (bulan = 1) karenanya jalankan writeln(‘Januari’). Apabila variabel bulan bukan berisi angka 1, lanjut ke kondisi berikutnya, yakni else if (bulan = 2) then writeln(‘Februari’), demikian seterusnya hingga Desember.

 Disini saya tak menggunakan blok program begin dan end; untuk setiap kondisi if, semata-mata agar kode programnya menjadi lebih singkat. Penulisan yang disarankan yaitu seperti ini:

Apabila ditulis tanpa blok ini, kita tak boleh menempatkan tanda titik koma di baris sebelum pedoman ELSE. Selaku contoh, kode program berikut akan menghasilkan error:

Karena tanda titik koma di writeln(‘Januari’); tak boleh ditulis, jadi mesti ditulis seperti ini:


Contoh Kode Program Pascal untuk Struktur CASE

Kode program IF THEN ELSE sebelumnya tak salah dan berjalan sesuai dengan keinginan saya. Namun untuk program yang kondisi logikanya lumayan sederhana (seperti perbandingan angka tersebut), kita dapat menggunakan alternatif penulisan dengan struktur CASE.

Berikut contoh kode programnya:

Terlihat lebih rapi dan lebih singkat. Mari kita bahas!

Di 8 baris pertama-tama kode program, sama persis dengan sebelumnya. Dimana saya menyusun variabel bulan, kemudian meminta inputan dari pengguna.

Dibaris ke 10, terdapat pedoman case (bulan) of, inilah awal dari blok CASE. Perhatikan di baris ke 23 terdapat pedoman end; yang menandakan ahir dari blok CASE.

Command case (bulan) of artinya saya ingin memeriksa apakah nilai dari dari variabel bulan sesuai dengan beberapa kondisi. Kondisi ini ditulis sepanjang blok CASE, dengan format:

Karena saya ingin memeriksa nilai bulan dari 1 – 12, karenanya penulisannya selaku berikut:

Apabila nilai variabel bulan berisi angka 9, karenanya jalankan pedoman writeln(‘September’), bila nilai variabel bulan yaitu 12, karenanya jalankan pedoman writeln(‘Desember’).

Ketika dijalankan, kode program CASE ini sama persis seperti contoh IF THEN ELSE sebelumnya.


Di panduan kali ini kita telah mempelajari pengertian serta contoh pemakaian struktur CASE di dalam bahasa pemrograman PASCAL. Namun struktur CASE ini sendiri masih mempunyai beberapa fitur tambahan, seperti CASE ELSE, atau memeriksa beberapa kondisi sekaligus. Inilah yang akan kita bahas di panduan berikutnya: Struktur Percabangan CASE ELSE dalam Pascal.


Sumber https://www.duniailkom.com/