Contoh Program Percabangan Case Of Else pada Pascal [Studi Kasus]

Jika sebelumnya anda sudah mengenal percabangan if then else pada pascal, maka sekarang kita akan mempelajari percabangan case of. Namun tahukah anda apa yang dimaksud dengan percabangan case of?

Case Var Of atau biasa disingkat Case Of adalah salah satu fungsi pada pascal yang mirip dengan If, namun untuk penggunaan yang lebih kompleks.


Ketika anda dihadapkan dengan banyak pilihan (lebih dari dua kondisi) maka program percabangan case of sangat cocok untuk anda gunakan.

Sebagai contoh kecil ketika anda ingin menggunakan ATM.

Anda akan dihadapkan dengan banyak pilihan sekaligus, misal: transfer, tarik tunai, cek saldo, dan lain-lain. Maka dibutuhkan program case of untuk mengatasinya.

Struktur logika percabangan dengan case


Pengertian percabangan case of else dalam algoritma

Berikut struktur penulisan percabangan case of else dalam pascal:


case (kondisi) of
   caselabel1 : Statemen;
   caselabel2 : Statemen;
   caselabelN : Statemen;
  
   else
     StatemenDefault;
end;


Jumlah case label dapat disesuaikan dengan kebutuhan anda. Kemudian jika semua kondisi tidak terpenuhi maka StatemenDefaultlah yang akan dijalankan.

Catatan: Jenis variabel (kondisi) yang dipakai Case Of adalah Integer atau Char.

Contoh Percabangan Case Of Else dalam Program


Sebagai studi kasus, berikut program ATM mengguanakan case of else:


program bank;
uses crt;
var
p:integer;
sm:longint;
saldo,setoran,tarikan:longint;
 procedure cek(saldo : longint);
           begin
              writeln('saldo anda sebesar : Rp.',saldo);
           end;

     procedure setor(tunai:longint);
          begin
              writeln('saldo awal anda sebesar : Rp.',saldo);
              writeln('setoran anda sebesar : Rp.',tunai);
              saldo:= saldo - tunai;
              writeln('-------------------------------------- -');
              writeln('saldo akhir anda sebesar : Rp.',saldo);
          end;
 procedure tarik(tt:longint);
         begin
           writeln('saldo awal anda sebesar : Rp.',saldo);
           writeln('tarikan anda sebesar : Rp.',tt);
               if ((saldo-tt) >= sm) then
                 begin
                    saldo:= saldo -tt;
                    writeln('---------------------------- -');
                    writeln('saldo akhir anda sebesar : Rp.',saldo);
                 end
               else
                begin
                     writeln('saldo anda tidak mencukupi');
                end;
         end;

 BEGIN
 clrscr;
 randomize;
 saldo := 1000000;
 sm:= 100000;
 repeat
 writeln('==============BANK TEL-U==============');
 writeln('MENU UTAMA');
 writeln('1. Cek Saldo');
 writeln('2. Setor');
 writeln('3. Tarik Tunai');
 writeln('4. Keluar');
 writeln('silahkan masukan pilihan anda : '); readln(p);
    case p of
 1 : begin
     cek(saldo);
     end;
 2 : begin
      write('Jumlah  setoran : Rp. '); readln(setoran);
      setor(setoran);
     end;
 3 : begin
      write('jumlah tarikan : Rp. '); readln(tarikan);
      tarik(tarikan);
     end;
 4 : begin
      writeln('terima kasih telah menggunakan jasa BANK TEL-U');
     end;
 end;
 writeln('press enter to continou...');
 readln;
 until (p=4);clrscr;
 end.


Mungkin masih ada beberapa program yang masih membingungkan bagi anda, namun yang kita fokuskan adalah bagian case of pada program pascal diatas.

Jika anda ingin memahami program diatas, saya akan menyipkan artikel tersediri:

1. Mengenal Prosedure pada Pascal
2. Mengenal Perulangan Repeat Until pada Pascal

Demikianlah penjelasan mengenai program case of else, semoga bermanfaat bagi anda. Jangan lewatkan seri panduan belajar pascal dari kami.

Materi Referensi:
http://andani17.blogspot.co.id/2015/05/program-atm-di-pascal.html

Artikel Terkait

Contoh Program Percabangan Case Of Else pada Pascal [Studi Kasus]
4/ 5
Oleh