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.

NAMA : MUHAMMAD IKHSAN MAULANA AKBAR

NIM      : J1F113029

TUGAS : PROGRAM PASCAL PENCARI SISI MIRING SEGITIGA SIKU - SIKU

NAMA : SEGITIGA SIKU - SIKU

KELILING : ALAS (x) + TINGGI (y) + SISI MIRING (r)

LUAS : 1/2 ALAS * TINGGI

Keterangan :

1. Segitiga merupakan bangun geometri yang dibentuk oleh 3 buah garis saling bertemu dan membentuk 3 buah titik sudut.
2. Bangun segitiga dilambangkan dengan ∆.
3. Jumlah sudut pada segitiga besarnya 180⁰.
4. mempunyai 2 sisi yang saling tegak lurus.
5. mempunyai 1 sisi miring.
6. salah satu sudutnya adalah sudut siku-siku yaitu 90⁰.
7. tidak mempunyai simetri lipat dan 1 simetri putar

• pertama - tama buka software pembuat pascalnya ( turbo pascal,atau free pascal ide ) di sini saya menggunakan free pascal ide

•  kemudian masukan script programnya

program phytagoras_sisi_miring;

uses crt;

var x,y,r:real;

begin

clrscr;

writeln('Program Pencari Sisi Miring Segitiga Siku-Siku');

writeln('______________________________________________');

writeln('Oleh :<<<<<MUHAMMAD IKHSAN MAULANA AKBAR>>>>>>');

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

writeln('NIM  : <<<<<<<<<<<<<< J1F113029 >>>>>>>>>>>>>>');

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

writeln('^_^ tekan enter untuk  memulai^_^')

readln;

write('masukan nilai alas (x)=');

readln(x);

write('masukan nilai tinggi (y)=');

readln(y)

r:=sqrt(sqr(x)+sqr(y));

writeln('maka panjang sisi miringnya adalah =',r:2:2,'cm');

writeln('>>>>>>>>>>>>> hasil didapatkan <<<<<<<<<<<<<<<<');

writeln('>>>>>>>>>>>> ^_^ terima kasih^_^ <<<<<<<<<<<<<<');

readln;

end.

•  kemudian tekan Ctrl + F9. maka programnya akan berjalan seperti screen dibawah ini.

• tekan enter untuk memulai program, masukan kan nilai (x) dan nilai (y). misalnya (x) = 8 dan (y) = 6, kemudian tekan enter, maka akan muncul hasil yang dibuat programnya. seperti screen berikut :

kita akan membuktikannya dengan menghitung secara manual dengan dengan menggunakan rumus r²=x²+y²

apakah hasilnya benar atau tidak.

diketahui :

panjang alas (x) = 8 cm

panjang tinggi (y) = 6 cm

ditanyakan : sisi miring (r) ?

 jawab :

r²=x²+y²

r=√x²+y²

r=√8²+6²

r=√64+36

r=√100

r=10 cm