Percabangan CASE-OF

Setelah menyelesaikan modul ini, mahasiswa diharapkan mampu:

1. Menjelaskan konsep seleksi berbasis nilai ordinal dan posisinya sebagai alternatif if.
2. Menulis struktur case-of dengan daftar nilai konstanta.
3. Menggunakan klausa else pada case untuk menangani nilai di luar daftar.
4. Menggunakan rentang nilai seperti 1..10 dalam case.
5. Mengidentifikasi tipe data yang sah untuk ekspresi penyeleksi case.
6. Membandingkan efisiensi dan keterbacaan case dengan rantai if-else-if.
7. Menuliskan blok pernyataan dengan begin...end pada setiap cabang case.
8. Menggambar flowchart untuk struktur case.
9. Menghindari kesalahan umum seperti duplikasi label dan label di luar rentang tipe.
10. Memecahkan masalah nyata dengan case secara tepat.

Capaian Pembelajaran Mata Kuliah

Mahasiswa mampu memilih struktur seleksi yang tepat antara if dan case berdasarkan karakteristik masalah, serta menulis case-of dengan benar dan efisien.

Indikator Ketercapaian Modul

3.1 Konsep Seleksi Berbasis Nilai Ordinal

Rantai if-else-if bekerja baik untuk kondisi apa pun, termasuk rentang dan kombinasi beberapa variabel. Namun ketika masalahnya adalah memilih satu dari beberapa nilai diskrit dari satu variabel, rantai if menjadi panjang dan berulang.

Pascal menyediakan struktur case-of untuk situasi seperti ini. Ekspresi penyeleksi dievaluasi satu kali, lalu hasilnya dibandingkan dengan daftar label. Bila cocok, blok pernyataan yang sesuai dieksekusi.

3.2 Sintaks Dasar CASE-OF

case ekspresi of
  label_1 : pernyataan_1;
  label_2 : pernyataan_2;
  label_n : pernyataan_n;
else
  pernyataan_default;
end;

Sintaks Pascal:

case pilihan of
  1 : writeln('Anda memilih menu satu');
  2 : writeln('Anda memilih menu dua');
  3 : writeln('Anda memilih menu tiga');
else
  writeln('Pilihan tidak dikenali');
end;

Perhatikan bahwa pada akhir case digunakan end; dengan titik koma. Berbeda dengan begin...end, end pada case tidak diikuti titik.

3.3 Tipe Data yang Sah untuk Ekspresi Penyeleksi

Ekspresi penyeleksi case harus bertipe ordinal, yaitu tipe yang nilainya dapat diurutkan dan memiliki representasi integer.

3.4 Label Case: Nilai Tunggal

Bentuk paling sederhana: satu label untuk satu nilai.

case hari of
  1 : writeln('Senin');
  2 : writeln('Selasa');
  3 : writeln('Rabu');
  4 : writeln('Kamis');
  5 : writeln('Jumat');
  6 : writeln('Sabtu');
  7 : writeln('Minggu');
else
  writeln('Nomor hari tidak valid');
end;

3.5 Label Case: Beberapa Nilai dalam Satu Baris

Beberapa nilai dapat dikelompokkan dalam satu label, dipisahkan dengan koma. Semua nilai tersebut akan mengeksekusi blok pernyataan yang sama.

case huruf of
  'a', 'e', 'i', 'o', 'u' : writeln('Huruf vokal');
  'b', 'c', 'd', 'f', 'g',
  'h', 'j', 'k', 'l', 'm',
  'n', 'p', 'q', 'r', 's',
  't', 'v', 'w', 'x', 'y', 'z' : writeln('Huruf konsonan');
else
  writeln('Bukan huruf');
end;

3.6 Label Case: Rentang Nilai

Rentang nilai dapat dituliskan dengan sintaks nilai_awal..nilai_akhir. Ini sangat berguna untuk klasifikasi nilai.

case nilai of
  85..100 : writeln('Nilai A');
  70..84  : writeln('Nilai B');
  60..69  : writeln('Nilai C');
  50..59  : writeln('Nilai D');
  0..49   : writeln('Nilai E');
else
  writeln('Nilai di luar rentang');
end;

3.7 Kombinasi Nilai Tunggal dan Rentang

Anda dapat mencampur nilai tunggal dan rentang dalam satu struktur case.

case kode of
  0       : writeln('Nol');
  1..5    : writeln('Antara 1 dan 5');
  6, 8, 10: writeln('Bilangan genap spesifik');
  7, 9    : writeln('Bilangan ganjil spesifik');
else
  writeln('Kode lain');
end;

3.8 Blok Pernyataan pada Case

Bila satu label memerlukan lebih dari satu pernyataan, gunakan begin...end seperti pada if.

case pilihan of
  1 : begin
        writeln('Anda memilih opsi 1');
        totalOpsi1 := totalOpsi1 + 1;
        writeln('Total opsi 1: ', totalOpsi1);
      end;
  2 : begin
        writeln('Anda memilih opsi 2');
        totalOpsi2 := totalOpsi2 + 1;
      end;
else
  begin
    writeln('Pilihan tidak dikenali');
    totalError := totalError + 1;
  end;
end;

3.9 Klausa ELSE pada Case

Klausa else dieksekusi bila tidak ada label yang cocok. Klausa ini bersifat opsional. Bila dihilangkan dan tidak ada label yang cocok, program akan melanjutkan ke pernyataan setelah end tanpa melakukan apa-apa.

3.10 Perbandingan CASE dengan IF

Kapan Menggunakan CASE

• Ketika pilihan berbasis satu variabel ordinal.
• Ketika jumlah alternatif lebih dari empat atau lima.
• Ketika banyak label adalah rentang nilai (misalnya klasifikasi nilai).
• Ketika mengimplementasikan menu berbasis karakter atau integer.
• Ketika state machine sederhana sedang dibuat.

Kapan Menggunakan IF

• Ketika kondisi melibatkan lebih dari satu variabel.
• Ketika kondisi melibatkan tipe non-ordinal (real, string, record).
• Ketika hanya ada dua atau tiga alternatif.
• Ketika kondisi berbasis kombinasi boolean yang kompleks.

3.11 Case Bersarang

case dapat bersarang, meskipun penggunaannya jarang diperlukan dan sebaiknya dihindari bila bisa disederhanakan.

case kategori of
  'A' : case subKategori of
          1 : writeln('A-1');
          2 : writeln('A-2');
        else
          writeln('A-lain');
        end;
  'B' : writeln('Kategori B');
else
  writeln('Kategori tidak dikenali');
end;

3.12 Kesalahan Umum pada CASE

1. Label duplikat. Dua label dengan nilai yang sama akan ditolak kompiler.
2. Label di luar rentang tipe. Misalnya case b of 300 : ... bila b bertipe byte yang hanya sampai 255.
3. Menggunakan real sebagai ekspresi penyeleksi. Tidak sah, harus ordinal.
4. Lupa titik koma setelah blok begin...end. Diperlukan sebelum label berikutnya.
5. Menuliskan rentang dengan urutan terbalik. 10..1 bukan rentang yang sah.
6. Menggunakan variabel pada label. Label harus berupa konstanta atau literal.
7. Lupa end; di akhir case. Menyebabkan kesalahan sintaks.
8. Menghilangkan else tanpa menyadari. Nilai yang tidak cocok akan diabaikan tanpa peringatan.

3.13 Perbedaan Free Pascal dan Turbo Pascal

4.1 Flowchart Struktur Case dengan Nilai Tunggal

flowchart TD
    A(["Mulai"]) --> B[/"Baca pilihan"/]
    B --> C{"pilihan = 1?"}
    C -- "Ya" --> D[/"Proses opsi 1"/]
    C -- "Tidak" --> E{"pilihan = 2?"}
    E -- "Ya" --> F[/"Proses opsi 2"/]
    E -- "Tidak" --> G{"pilihan = 3?"}
    G -- "Ya" --> H[/"Proses opsi 3"/]
    G -- "Tidak" --> I[/"Proses default else"/]
    D --> J(["Selesai"])
    F --> J
    H --> J
    I --> J
      

4.2 Flowchart Konversi Nilai ke Huruf Mutu dengan Rentang

flowchart TD
    A(["Mulai"]) --> B[/"Baca nilai"/]
    B --> C{"85 <= nilai <= 100?"}
    C -- "Ya" --> D["huruf = 'A'"]
    C -- "Tidak" --> E{"70 <= nilai <= 84?"}
    E -- "Ya" --> F["huruf = 'B'"]
    E -- "Tidak" --> G{"60 <= nilai <= 69?"}
    G -- "Ya" --> H["huruf = 'C'"]
    G -- "Tidak" --> I{"50 <= nilai <= 59?"}
    I -- "Ya" --> J["huruf = 'D'"]
    I -- "Tidak" --> K{"0 <= nilai <= 49?"}
    K -- "Ya" --> L["huruf = 'E'"]
    K -- "Tidak" --> M["huruf = 'X' (tidak valid)"]
    D --> N[/"Tampilkan huruf"/]
    F --> N
    H --> N
    J --> N
    L --> N
    M --> N
    N --> O(["Selesai"])
      

4.3 Flowchart Menu Interaktif

flowchart TD
    A(["Mulai"]) --> B[/"Tampilkan menu"/]
    B --> C[/"Baca pilihan"/]
    C --> D{"Pilihan valid?"}
    D -- "1" --> E[/"Tampilkan data"/]
    D -- "2" --> F[/"Tambah data"/]
    D -- "3" --> G[/"Hapus data"/]
    D -- "4" --> H[/"Keluar dari menu"/]
    D -- "Lainnya" --> I[/"Tampilkan pesan kesalahan"/]
    E --> J(["Selesai"])
    F --> J
    G --> J
    H --> J
    I --> J
      

5.1 Pseudocode Konversi Nilai ke Huruf Mutu

PROGRAM KonversiNilaiHuruf
{ Mengkonversi nilai numerik ke huruf mutu menggunakan case }

DEKLARASI
  nilai : integer
  huruf : char

ALGORITMA
  write("Masukkan nilai ujian (0-100): ")
  read(nilai)

  kasus nilai dari
    85 sampai 100 : huruf <- 'A'
    70 sampai 84  : huruf <- 'B'
    60 sampai 69  : huruf <- 'C'
    50 sampai 59  : huruf <- 'D'
    0 sampai 49   : huruf <- 'E'
    selain itu
      huruf <- 'X'
  akhir kasus

  write("Nilai: ", nilai)
  write("Huruf mutu: ", huruf)
END

5.2 Pseudocode Menu Interaktif

PROGRAM MenuInteraktif
{ Menampilkan menu dan memproses pilihan pengguna }

DEKLARASI
  pilihan : char

ALGORITMA
  write("========================================")
  write("           MENU UTAMA")
  write("========================================")
  write("1. Tampilkan data")
  write("2. Tambah data")
  write("3. Hapus data")
  write("4. Keluar")
  write("========================================")
  write("Pilihan Anda (1-4): ")
  read(pilihan)

  kasus pilihan dari
    '1' : write("Menampilkan data...")
    '2' : write("Menambah data...")
    '3' : write("Menghapus data...")
    '4' : write("Keluar dari program")
    selain itu
      write("Pilihan tidak valid")
  akhir kasus
END

5.3 Pseudocode Kalkulator Berbasis Kode Operasi

PROGRAM KalkulatorKode
{ Kalkulator dengan kode operasi numerik }

DEKLARASI
  a, b    : real
  kode    : integer
  hasil   : real

ALGORITMA
  write("Bilangan pertama: ")
  read(a)
  write("Bilangan kedua  : ")
  read(b)

  write("Kode operasi:")
  write("1 = tambah, 2 = kurang, 3 = kali, 4 = bagi")
  write("Kode: ")
  read(kode)

  kasus kode dari
    1 : hasil <- a + b
    2 : hasil <- a - b
    3 : hasil <- a * b
    4 :
      jika b = 0 maka
        write("Kesalahan: pembagian dengan nol")
        hasil <- 0
      selain itu
        hasil <- a / b
      akhir jika
    selain itu
      write("Kode operasi tidak valid")
      hasil <- 0
  akhir kasus

  write("Hasil: ", hasil)
END

6.1 Program Nama Hari dengan Case Nilai Tunggal

program NamaHari;
{ Menampilkan nama hari berdasarkan nomor 1-7 }

var
  nomor: integer;

begin
  write('Masukkan nomor hari (1-7): ');
  readln(nomor);

  case nomor of
    1 : writeln('Senin');
    2 : writeln('Selasa');
    3 : writeln('Rabu');
    4 : writeln('Kamis');
    5 : writeln('Jumat');
    6 : writeln('Sabtu');
    7 : writeln('Minggu');
  else
    writeln('Nomor hari tidak valid');
  end;
end.

Contoh sesi interaksi:

Masukkan nomor hari (1-7): 3
Rabu

6.2 Program Konversi Nilai ke Huruf Mutu dengan Rentang

program HurufMutuCase;
{ Konversi nilai ke huruf mutu menggunakan case }

var
  nama: string;
  nilai: integer;
  huruf: char;

begin
  write('Nama mahasiswa : ');
  readln(nama);

  write('Nilai ujian    : ');
  readln(nilai);

  case nilai of
    85..100 : huruf := 'A';
    70..84  : huruf := 'B';
    60..69  : huruf := 'C';
    50..59  : huruf := 'D';
    0..49   : huruf := 'E';
  else
    huruf := 'X';
  end;

  writeln;
  writeln('Nama       : ', nama);
  writeln('Nilai      : ', nilai);

  if huruf = 'X' then
    writeln('Status     : Nilai di luar rentang yang sah')
  else
    writeln('Huruf mutu : ', huruf);
end.

6.3 Program Deteksi Huruf Vokal dan Konsonan

program VokalKonsonan;
{ Mendeteksi apakah karakter adalah vokal, konsonan, atau bukan huruf }

uses
  crt;

var
  huruf: char;

begin
  write('Masukkan satu huruf: ');
  readln(huruf);

  huruf := UpCase(huruf);

  case huruf of
    'A', 'E', 'I', 'O', 'U' :
      writeln(huruf, ' adalah huruf vokal');

    'B'..'D', 'F'..'H', 'J'..'N', 'P'..'T', 'V'..'Z' :
      writeln(huruf, ' adalah huruf konsonan');
  else
    writeln(huruf, ' bukan huruf alfabet');
  end;
end.

Contoh keluaran:

Masukkan satu huruf: e
E adalah huruf vokal

6.4 Program Menu Interaktif Sederhana

program MenuCase;
{ Menu interaktif sederhana dengan case }

uses
  crt;

var
  pilihan: char;

begin
  ClrScr;

  writeln('========================================');
  writeln('           MENU UTAMA');
  writeln('========================================');
  writeln('1. Tampilkan data mahasiswa');
  writeln('2. Tambah data mahasiswa');
  writeln('3. Hapus data mahasiswa');
  writeln('4. Keluar');
  writeln('========================================');
  write('Pilihan Anda (1-4): ');

  pilihan := ReadKey;
  writeln(pilihan);

  writeln;
  case pilihan of
    '1' : begin
            writeln('Anda memilih: Tampilkan data');
            writeln('Menampilkan 10 data mahasiswa...');
          end;
    '2' : begin
            writeln('Anda memilih: Tambah data');
            writeln('Formulir penambahan data dibuka.');
          end;
    '3' : begin
            writeln('Anda memilih: Hapus data');
            writeln('Konfirmasi penghapusan diperlukan.');
          end;
    '4' : writeln('Anda memilih: Keluar');
  else
    writeln('Pilihan tidak valid');
  end;

  writeln;
  writeln('Tekan tombol apa saja untuk keluar...');
  ReadKey;
end.

6.5 Program Kalkulator Sederhana dengan Kode Operasi

program KalkulatorKode;
{ Kalkulator dengan kode operasi numerik }

var
  a, b: real;
  kode: integer;
  hasil: real;

begin
  write('Bilangan pertama: ');  readln(a);
  write('Bilangan kedua  : ');  readln(b);

  writeln;
  writeln('Kode operasi:');
  writeln('  1 = tambah');
  writeln('  2 = kurang');
  writeln('  3 = kali');
  writeln('  4 = bagi');
  write('Kode: ');
  readln(kode);

  case kode of
    1 : hasil := a + b;
    2 : hasil := a - b;
    3 : hasil := a * b;
    4 : if b = 0 then
        begin
          writeln('Kesalahan: pembagian dengan nol');
          hasil := 0;
        end
        else
          hasil := a / b;
  else
    begin
      writeln('Kode operasi tidak valid');
      hasil := 0;
    end;
  end;

  writeln;
  writeln('Hasil: ', hasil:0:4);
end.

Contoh sesi interaksi:

Bilangan pertama: 12
Bilangan kedua  : 5

Kode operasi:
  1 = tambah
  2 = kurang
  3 = kali
  4 = bagi
Kode: 3

Hasil: 60.0000

7.1 Program HurufMutuCase

7.2 Program VokalKonsonan

7.3 Jejak Eksekusi HurufMutuCase untuk nilai = 78

Hasil akhir: huruf = 'B'. Bila nilai 78 dimasukkan, program menampilkan "Huruf mutu : B".

9.1 Deskripsi Masalah

Bioskop "Layar Emas" menerapkan tarif tiket yang berbeda berdasarkan jenis hari dan kategori penonton. Program menerima jenis hari (weekday/weekend/holiday) sebagai kode karakter dan kategori penonton (anak/dewasa/lansia) sebagai kode karakter, kemudian menghitung harga tiket yang harus dibayar.

9.2 Aturan Tarif

9.3 Flowchart Studi Kasus

flowchart TD
    A(["Mulai"]) --> B[/"Baca jenisHari, kategori, jumlahTiket"/]
    B --> C{"Jenis hari
valid?"}
    C -- "Tidak" --> D["Tampilkan error
Jenis hari tidak valid"]
    C -- "Ya" --> E{"Kategori
penonton?"}
    E -- "A (Anak)" --> F["Tentukan harga anak"]
    E -- "D (Dewasa)" --> G["Tentukan harga dewasa"]
    E -- "L (Lansia)" --> H["Tentukan harga lansia"]
    E -- "Lainnya" --> I["Tampilkan error
Kategori tidak valid"]
    F --> J["totalBayar = harga * jumlahTiket"]
    G --> J
    H --> J
    I --> K(["Selesai"])
    J --> L[/"Tampilkan total bayar"/]
    L --> K
    D --> K
      

9.4 Pseudocode Studi Kasus

PROGRAM TiketBioskop
{ Menghitung harga tiket berdasarkan jenis hari dan kategori penonton }

KONSTANTA
  GARIS_GANDA   = "=========================================="
  GARIS_TUNGGAL = "------------------------------------------"

DEKLARASI
  jenisHari   : char
  kategori    : char
  jumlahTiket : integer
  hargaTiket  : currency
  totalBayar  : currency
  namaHari    : string
  namaKategori: string
  valid       : boolean

ALGORITMA
  write("Jenis hari (W=weekday, E=weekend, H=holiday): ")
  read(jenisHari)
  write("Kategori (A=anak, D=dewasa, L=lansia)     : ")
  read(kategori)
  write("Jumlah tiket                              : ")
  read(jumlahTiket)

  jenisHari <- UpCase(jenisHari)
  kategori  <- UpCase(kategori)

  valid <- true
  hargaTiket <- 0

  kasus jenisHari dari
    'W' :
      namaHari <- "Weekday"
      kasus kategori dari
        'A' : hargaTiket <- 30000
        'D' : hargaTiket <- 45000
        'L' : hargaTiket <- 35000
        selain itu
          valid <- false
      akhir kasus
    'E' :
      namaHari <- "Weekend"
      kasus kategori dari
        'A' : hargaTiket <- 40000
        'D' : hargaTiket <- 60000
        'L' : hargaTiket <- 45000
        selain itu
          valid <- false
      akhir kasus
    'H' :
      namaHari <- "Holiday"
      kasus kategori dari
        'A' : hargaTiket <- 50000
        'D' : hargaTiket <- 75000
        'L' : hargaTiket <- 55000
        selain itu
          valid <- false
      akhir kasus
    selain itu
      valid <- false
  akhir kasus

  jika valid = false maka
    write("Kesalahan: kombinasi jenis hari dan kategori tidak valid")
  selain itu
    kasus kategori dari
      'A' : namaKategori <- "Anak"
      'D' : namaKategori <- "Dewasa"
      'L' : namaKategori <- "Lansia"
    akhir kasus

    totalBayar <- hargaTiket * jumlahTiket

    write(GARIS_GANDA)
    write("BIOSKOP LAYAR EMAS")
    write("Struk Pemesanan Tiket")
    write(GARIS_GANDA)
    write("Jenis Hari    : ", namaHari)
    write("Kategori      : ", namaKategori)
    write("Jumlah Tiket  : ", jumlahTiket)
    write("Harga Satuan  : Rp ", hargaTiket)
    write(GARIS_TUNGGAL)
    write("Total Bayar   : Rp ", totalBayar)
    write(GARIS_GANDA)
  akhir jika
END

9.5 Implementasi dalam Pascal

program TiketBioskop;
{ Studi Kasus Modul 7 - Perhitungan tiket bioskop dengan case bersarang }

uses
  crt;

const
  GARIS_GANDA   = '==========================================';
  GARIS_TUNGGAL = '------------------------------------------';

var
  jenisHari   : char;
  kategori    : char;
  jumlahTiket : integer;
  hargaTiket  : currency;
  totalBayar  : currency;
  namaHari    : string[15];
  namaKategori: string[15];
  valid       : boolean;

begin
  writeln('Formulir Pemesanan Tiket Bioskop Layar Emas');
  writeln(GARIS_TUNGGAL);
  writeln;

  write('Jenis hari (W/E/H) : ');  readln(jenisHari);
  write('Kategori (A/D/L)   : ');  readln(kategori);
  write('Jumlah tiket       : ');  readln(jumlahTiket);

  jenisHari := UpCase(jenisHari);
  kategori  := UpCase(kategori);

  valid := true;
  hargaTiket := 0;

  case jenisHari of
    'W' :
      begin
        namaHari := 'Weekday';
        case kategori of
          'A' : hargaTiket := 30000;
          'D' : hargaTiket := 45000;
          'L' : hargaTiket := 35000;
        else
          valid := false;
        end;
      end;
    'E' :
      begin
        namaHari := 'Weekend';
        case kategori of
          'A' : hargaTiket := 40000;
          'D' : hargaTiket := 60000;
          'L' : hargaTiket := 45000;
        else
          valid := false;
        end;
      end;
    'H' :
      begin
        namaHari := 'Holiday';
        case kategori of
          'A' : hargaTiket := 50000;
          'D' : hargaTiket := 75000;
          'L' : hargaTiket := 55000;
        else
          valid := false;
        end;
      end;
  else
    valid := false;
  end;

  if not valid then
  begin
    writeln;
    writeln('Kesalahan: kombinasi jenis hari dan kategori tidak valid.');
    writeln('Periksa kembali pilihan Anda.');
  end
  else
  begin
    case kategori of
      'A' : namaKategori := 'Anak';
      'D' : namaKategori := 'Dewasa';
      'L' : namaKategori := 'Lansia';
    end;

    totalBayar := hargaTiket * jumlahTiket;

    writeln;
    writeln(GARIS_GANDA);
    writeln('BIOSKOP LAYAR EMAS');
    writeln('Struk Pemesanan Tiket');
    writeln(GARIS_GANDA);
    writeln('Jenis Hari    : ', namaHari);
    writeln('Kategori      : ', namaKategori);
    writeln('Jumlah Tiket  : ', jumlahTiket, ' lembar');
    writeln('Harga Satuan  : Rp ', hargaTiket:0:0);
    writeln(GARIS_TUNGGAL);
    writeln('Total Bayar   : Rp ', totalBayar:0:0);
    writeln(GARIS_GANDA);
  end;
end.

9.6 Contoh Keluaran

Formulir Pemesanan Tiket Bioskop Layar Emas
------------------------------------------

Jenis hari (W/E/H) : E
Kategori (A/D/L)   : D
Jumlah tiket       : 3

==========================================
BIOSKOP LAYAR EMAS
Struk Pemesanan Tiket
==========================================
Jenis Hari    : Weekend
Kategori      : Dewasa
Jumlah Tiket  : 3 lembar
Harga Satuan  : Rp 60000
------------------------------------------
Total Bayar   : Rp 180000
==========================================

9.7 Pembahasan

Beberapa keputusan perancangan penting pada program ini.

1. Case bersarang untuk dua dimensi. Kita memiliki dua variabel penyeleksi: jenis hari dan kategori. Pendekatan ini menggunakan case luar untuk jenis hari dan case dalam untuk kategori. Hasilnya jauh lebih ringkas daripada 3 × 3 = 9 kondisi if.
2. Konversi UpCase sebelum penyeleksian. Dengan mengubah huruf kecil menjadi huruf besar sebelum case, kita cukup menangani satu varian saja. Ini menyederhanakan daftar label.
3. Variabel valid sebagai penanda. Bila kombinasi jenis hari dan kategori tidak valid, valid menjadi false. Setelah blok case selesai, kita memeriksa apakah perlu menampilkan pesan kesalahan.
4. Blok begin...end untuk case bersarang. Setiap cabang case luar memerlukan blok karena memuat lebih dari satu pernyataan (penetapan nama hari dan case dalam).
5. Case kecil tanpa else pada akhir program. Case terakhir untuk mengisi nama kategori tidak memiliki else karena kita sudah memastikan kategori valid di tahap sebelumnya.

9.8 Pengembangan Selanjutnya

1. case-of adalah struktur seleksi berbasis nilai ordinal dari satu variabel.
2. Ekspresi penyeleksi harus bertipe ordinal: integer, char, boolean, enumerasi, atau subrange. Real dan string tidak diperbolehkan.
3. Label case dapat berupa nilai tunggal (1 :), beberapa nilai dipisahkan koma ('a', 'e', 'i' :), rentang (70..84 :), atau kombinasi keduanya.
4. Klausa else menangani nilai yang tidak cocok dengan label mana pun. Selalu sertakan else untuk input dari pengguna.
5. Blok begin...end diperlukan bila satu cabang memuat lebih dari satu pernyataan. Titik koma setelah end blok di dalam case wajib, berbeda dengan aturan pada if.
6. Struktur case diakhiri dengan end; bukan end..
7. case lebih ringkas daripada rantai if ketika alternatifnya banyak dan berbasis satu variabel.
8. if tetap diperlukan ketika kondisi melibatkan beberapa variabel atau tipe non-ordinal.
9. Kesalahan umum termasuk label duplikat, label di luar rentang tipe, lupa titik koma setelah blok, dan lupa end;.
10. Case bersarang memungkinkan penyeleksian dua dimensi, tetapi gunakan secara bijak. Bila bersarang terlalu dalam, pertimbangkan memindahkan ke prosedur atau fungsi terpisah.

Buku Teks

1. Jensen, K., & Wirth, N. (1991). Pascal User Manual and Report (4th ed.). Springer-Verlag. Bab 9 membahas pernyataan case secara lengkap.
2. Cantu, M. (2020). Object Pascal Handbook. Marco Cantu. Bab tentang struktur kontrol dan pernyataan case.
3. Cooper, D., & Clancy, M. (1982). Oh! Pascal! W. W. Norton & Company. Bab tentang pemilihan berdasarkan nilai.
4. Grogono, P. (1995). Programming with Pascal. Addison-Wesley. Bab 6 membahas struktur seleksi.

Dokumentasi Resmi

1. Free Pascal Team. Free Pascal Reference Guide. Bab tentang pernyataan case. Tersedia di freepascal.org/docs.html.
2. Free Pascal Team. Free Pascal Programmer's Guide. Bab tentang tipe ordinal dan ekspresi penyeleksi.
3. Lazarus IDE Documentation. Panduan penggunaan struktur case pada aplikasi.

Artikel dan Sumber Daring

1. IEEE Computer Society. (1990). IEEE Standard for Pascal (IEEE Std 770-1983). Bab tentang pernyataan case.
2. Wirth, N. (1971). "The Programming Language Pascal." Acta Informatica, 1(1), 35-63. Bab tentang struktur kontrol.
3. Free Pascal Community Forum. Diskusi tentang optimasi case dan perbandingan performa dengan rantai if.