Catatan: Blog ini sekarang pindah ke www.kodedasar.com

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

Damas Amirul Karim - Last Updated 23 April 2018
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
    Tunggu, sedang memuat. . .