Pert.5 Pascal (Brancing Lanjutan)

Brancing lanjutan membahas tentang statemen case yaitu statemen yang berfungsi untuk membuat pilihan lebih dari satu.

1. Case – of
bu : Case < variabel > of

< konstanta1 > : < pernyataan>

< konstanta2 > : < pernyataan >
……
< konstanta-n > : < pernyataan >
End;

Jika ingin menghasilkan 2 pernyataan atau lebih maka harus diapit dengan begin dan end.2. Case of – else
Bu : case < variabel > of
< konstanta1 > : < pernyataan >
< konstanta2 > : < pernyataan >
Else
< konstanta-n > : < pernyataan >
End ;

Jika ingin menghasilkan 2 pernyataan atau lebih maka harus diapit dengan begin dan end.

Berikut Contoh program sederhana :

pas.jpg

Listing Program : uses crt;
label siti ;
var
  kd,lagi : char;
  nm,bonus,byr,kembali:longint;
  jumbel :integer;
begin
siti :
clrscr;
gotoxy(20,2);writeln(‘Penjualan Elektronik’);
gotoxy(11,6);write(‘Masukan Kode barang [A/B/C] :’);readln(kd);
case kd of
‘A’,’a’ :
  begin
  nm:=’Kulkas 3 pintu’;
  hrg:=2500000;
  end;
‘B’,’b’ :
  begin
  nm:=’Radio MIni Compo’;
  hrg:=1500000;
  end;
‘C’,’c’ :
  begin
  nm:=’Televisi 21 inc’;
  hrg:=2000000;
  end;
end;
gotoxy(11,7);writeln(‘Nama Barang :’,nm);
gotoxy(11,8);writeln(‘Harga Barang :’,hrg);
gotoxy(11,9);write(‘Jumlah Beli :’);readln(jumbel);
total := hrg * jumbel;
if jumbel >=3 then
  bonus :=’Mini Box’
else
  bonus:=’Kalender Cantik’;
gotoxy(11,10);writeln(‘Total Bayar :’,total);
gotoxy(11,11);writeln(‘Bonus :’,bonus);
gotoxy(11,14);write(‘Uang Bayar :’);readln(byr);
kembali := byr – total;
gotoxy(11,15);writeln(‘Uang Kembali :’,kembali);
gotoxy(11,16);write(‘Anda Ingin input lagi [Y/T] ? :’);readln(lagi);
goto siti
else
gotoxy(18,18);textcolor(14);writeln(‘Terima kasih atas Kunjungannya’);
readln;
end.

catatan : Textcolor dapat ditulis menggunakan angka atau huruf.contoh (14) atau (Yelow). Gotoxy merupakan ukuran atau jarak antara baris(y) dengan kolom(x).Selamat mencoba…..

Iklan

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s