Contoh Program Case

Contoh Program Case|


Struktur CASE
untuk masalah dengan dua kasus atau lebih stuktur CASE dapat menyerdahanakan penulisan IF-THEN -ELSE yang bertingkat-tingkat, namun tidak semua bahasa pemograman menyediakan struktur CASE.



Instuksi CASE
Intruksi CASE digunakan untuk instruksi pemilihan dimana aksi yang akan dilakukan hanya bergantung pada nilai dari satu macam variable. Dengan kata lain, yang menentukan nilai ini mengkin banyak macam nilai dan setiap nilanya berkaitan dengan satu macam aksi.


Program Pesan_Tiket_Online;
uses wincrt;

var
total,bayar,harga,jumlahtiket,hargabayar,jumlah:longint;
jurusan,minat:integer;


begin
writeln ('-----------------------------------------') ;
write ('|'); writeln ('PESAN TIKET ONLINE, KERETA KELAS BISNIS  ');
write ('|'); write (' JURUSAN'); write ('     HARGA'); writeln ('     DISKON ');          
write ('|');write   ('1.  Jakarta') ;  write('   275.000') ;writeln ('  10% ');        
write ('|');writeln ('2.  Surabaya', '  100.000',  '   - ');                                  
write ('|');writeln ('3.  Bandung',  '   150.000',  '  5%  '  );              
writeln ('---------------------------------------- -');

gotoXY (10,12); write ('Pilih nomer jurusan (1-3) yang akan di pesan : ');read (jurusan);
gotoXY (10,15); write ('Jumlah tiket :') ; read (jumlahtiket);
ClrScr;
case jurusan of
1:begin
harga := ((275000*(jumlahtiket* 10) div 100));
writeln ('Jurusan Jakarta cukup membayar : ',harga);
end;
2:begin
harga:= 100000*jumlahtiket;
writeln (' Jurusan Surabaya cukup membayar: ',harga);
end;
3:begin
harga:=((150000*5) div (100*jumlahtiket));
writeln ('Jurusan Bandung cukup membayar :',harga);
end;
end;
ClrScr;
writeln ('Apakah anda juga memesan oleh-oleh?');
writeln ('1. ketik iya');
writeln ('2. ketik tidak ');
writeln ('pilih nomer sesuai dengan minat anda :'); readln (minat);

case minat of
1:begin
write ('berapa yang anda butuhkan'); read (jumlah);
bayar := jumlah *100000;

end;
2:begin

end;

end;
writeln ('pembayaran jurusan',harga);
writeln ('pembayaran oleh-oleh',bayar);
total:=bayar+harga;
writeln ('Jadi total pembayaran',total);

writeln ('-->Terima kasih atas pesanan anda, semoga selamat sampai tujuan<--')


end.


Oke semoga bermanfaat.