MASTER COMPUTER SCIENCE

assalamualaikum wr.wb

kali ini saya akan memposting materi tentang case-of. case-of sendiri merupakan salah satu struktur perintah dari program pascal. Perintah case of sendiri bisanya dipakai dalam permasalahan ganda, dan perintah case of sendiri lebih jelas dan lebih mudah untuk dipahami serta lebih cepat pembuatannya daripada menggunakan pernyataan if.

oke...kali ini saya akan memberikan contoh program pascal yang menggunakan perintah case-of

• pertama buka free pascal IDE atau turbo pascal kemudian ketik script berikut 

program case_of _jenis_dan_harga_kertas;

uses  crt;

var kode,jumlah,harga:integer;

begin

clrscr;

writeln('program case of untuk menentukan jenis dan harga');

writeln('------------------------------------------------');

writeln('created by : Muhammad Ikhsan Maulana Akbar');

writeln('NIM          : J1F113029');

writeln('==========================================');

writeln('keterangan kode,jenis,dan harga kertas');

writeln('01=HVS             Harga = Rp. 150,00');

writeln('02=A4S             Harga = Rp. 100,00');

writeln('03=polio           Harga = Rp. 200,00');

writeln('04=letter          Harga = Rp.  50,00');

writeln('<><><><><><><><><><><><><><><><><><><');

writeln('=====================================');

writeln(' tekan enter untuk memulai program');

readln;

write('kode kertas');

readln(kode);

write('jumlah kertas');

readln(jumlah)

case kode of

01: harga:=(150*jumlah);

02: harga:=(100*jumlah);

03: harga:=(200*jumlah);

04: harga:=(50*jumlah);

end;

writeln('harga=','Rp. ',harga,',00');

writeln('hasil ditemukan');

readln;

end.

script ini merupakan script program pascal untuk menentukan kode,jenis, dan harga kertas, dengan menggunakan pernyataan case-of. berikut screen shot programnya.