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.

 

 

Kali ini, materi yang saya posting adalah tentang perintah "if then else". Perintah if sendiri merupakan alah satu perintah struktur pengambilan keputusan dalam algoritma. perhatikan script dibawah ini :

If condition Then statement;

script di atas merupakan script dari perintah if, di mana condition adalah sesuatu yang bernilai True atau False, dan statement adalah perintah yang akan dijalankan.

sebagai contoh kita akan membuat sebuah program pascal berdasarkan perintah "if then else".

kali ini kita akan membuat program sederhana yang dapat menentukan curam atau landainya suatu segitiga.

oke kita mulai....

• pertama - tama buka program free pascal IDE atau turbo pascal

• kemudian ketiklah script berikut

 program landai_curam_segitiga;

 uses crt;

 var A,B:real;

 begin

 clrscr;

 writeln('program menentukan curam landai segitiga');

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

 writeln('created by : muhammad ikhsan maulana akbar');

 writeln('nim           : J1F113029');

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

 writeln('press enter to start program');

 write('masukan A =');

 readln(A);

 write('masukan B =');

 readln(B);

 if A>B then

 keterangan:='landai'

 else

 keterangan:='curam';

 writeln('keterangan:',keterangan);

 readln;

 end.

 berikut screen shot program pascalnya:

 dan berikut screen shot saat program dijalankan

saat A yang merupakan alas segitiga mempunyai nilai yang lebih rendah dari pada B yang merupakan tinggi segitiga yang lebih tinggi dari segitiga maka segitiga itu curam. Dan sebaliknya jika A lebih besar dari B maka segitiganya landai.

nah demikian lah sedikit peenjelasan dan contoh dari program pascal dengan menggunakan perintah "if ", semoga bermanfaat bagi kalian semua yang belajar pascal.