"Case Of" - Algoritma Pascal

Dalam pembahasan kali ini saya akan membahas tentang penggunaan dari 'case - of' dalam program Pascal. Cekidot ....

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'

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.

Beginilah contoh dalam program Pascal :

Tekan Menu "Run > Run" atau "Ctrl+F9"

Jika Terjadi Syntax Eror maka cek lagi penulisan script di atas,

Dan jika sudah selesai maka akan beginilah hasilnya :

Terima kasih sudah mampir di blog saya, sampai jumpa.