Percabangan Case Of di Pemrograman Pascal

AhmadDahlan.NET – Case of di Pemrograman Pascal adalah perintah melaksanakan instruksi percabangan dengan sebuah kondisi. Berbeda dengan Percabangan Conditional if else yang menggunakan epsresi logik boolean, Case of jauh lebih sederhana.

Misalnya dari sisi Pseudocode, If Else memiliki struktur seperti berikut :

IF (kondisi1) THEN
  (kode program 1)
ELSE IF (kondisi2) THEN
  (kode program 2)
ELSE IF (kondisi3) THEN
  (kode program 3)

sedangkan struktur di case of hanya sebagai berikut :

CASE (expression) OF
  kondisi 1 : (kode program 1);
  kondisi 2 : (kode program 2);
  kondisi 3 : (kode program 3);
end;

Expression dalam kasus ini adalah sesuatu yang nilanya akan di periksa oleh program, jika ekpresinya belum sama maka akan diturunkan ke kondisi berikutnya sampai value dari expression sama.

Misalkan kita ingin membuat program menuliskan nama bulan dengan menggunakan Percabangan If Else, maka programnya sebagai berikut :

program latihanbulan;
uses crt;
var
  bulan: integer;
begin
  clrscr;
  write('masukkan bulan dalam angka (1-12): ');
  readln(bulan);
   
  if (bulan = 1) then
     writeln('Januari')
  else if (bulan = 2) then
     writeln('Februari')
  else if (bulan = 3) then
     writeln('Maret')
  else if (bulan = 4) then
     writeln('April')
  else if (bulan = 5) then
     writeln('Mei')
  else if (bulan = 6) then
     writeln('Juni')
  else if (bulan = 7) then
     writeln('Juli')
  else if (bulan = 8) then
     writeln('Agustus')
  else if (bulan = 9) then
     writeln('September')
  else if (bulan = 10) then
     writeln('Oktober')
  else if (bulan = 11) then
     writeln('Novemver')
  else if (bulan = 12) then
     writeln('Desember');    
   
  readln;
end.

Jika program ini di run, maka akan ada perintah untuk memasukkan input bulan mulai dari 1 sampai 12. Setelah itu program akan melakukan print out nama dari bulan tersebut.

Jika program ini disusun dalam case of maka bentuk programnya seperti ini :

program latihanbulan;
uses crt;
var
  bulan: integer;
begin
  clrscr;
  write('Silahkan input angka untuk bulan (1-12): ');
  readln(bulan);
   
  case (bulan) of
     1 : writeln('Januari');
     2 : writeln('Februari');
     3 : writeln('Maret');
     4 : writeln('April');
     5 : writeln('Mei');
     6 : writeln('Juni');
     7 : writeln('Juli');
     8 : writeln('Agustus');
     9 : writeln('September');
     10 : writeln('Oktober');
     11 : writeln('November');
     12 : writeln('Desember');     
  end;
   
  readln;
end.

Nah jika program ke dua ini di run akan menghasilkan program yang sama dari sisi user, namuan dari sisi programmer jauh lebih singkat dan sederhana.

Membuat Program Calculator Sederhana

Misalkan kita ingin membuat program kalkulator dengan dua buah nilai dan satu buah operator yang dipilih.

program struktur_Case; 
var
op1,op2 : integer;
operand : char; 
 
 begin

 write('Pilih operasi (+, -, /, *): ');read(operand); 
 write('Masukan operand pertama: ');read(op1); 
 write('Masukan operand kedua: ');read(op2);

 case (operand) of
 '+' : writeln('Hasil : ',op1+op2 ); 
 '-' : writeln('Hasil : ',op1-op2 ); 
 '/' : writeln('Hasil : ',op1/op2 ); 
 '*' : writeln('Hasil : ',op1*op2 );
 end; 
end.

Tugas : Berilah komentar mengenai struktur program pembuatan program di atas dari bari ke baris mulai dari awal program sampai selesai!