Case Of (Algoritma Pascal)

Oke, kali ini saya akan membahas tentang penggunaan dari 'case - of' dalam program Pascal.

Pengertian "Case - of" 

Case - of adalah kode / kata kunci dalam bahasa pemrograman seperti Pascal, fungsinya hampir sama dengan kode 'If - Else' yaitu untuk memilih data mana yang akan kita proses dalam berbagai pilihan.

Cara penggunaan "Case - Of"

example:

program Fotocopy;

uses crt;

var       kode,harga,jumlah:integer;

begin     clrscr;

          writeln('keterangan kode              harga');

          writeln('1=polio                      Rp.150,-');

          writeln('2=hvs                        Rp.100,-');

          writeln('3=hvs berwarna               Rp.200,-');

          writeln('4=hvs glow in the dark       Rp.250,-');

          writeln('kode kertas=');

          read(kode);

          writeln('jumlah kertas=');

          read(jumlah);

          case kode of

                1: harga:= (150*jumlah);

                2: harga:= (100*jumlah);

                3: harga:= (200*jumlah);

                4: harga:= (250*jumlah);

          end;

          writeln('harga=','Rp',harga,',-');

          readkey;

          end.

Nah Ini Contoh Diprogram Pascalnya:

Sekarang Tinggal Tekan menu "Run > Run" atau "Ctrl+F9" 

Dan jika sudah selesai maka akan beginilah hasilnya :

 

SELAMAT MENCOBA :)