PENYELEKSIAN KONDISI CASE STATEMENT
STRUKTUR CASE (CASE STATEMENT)
Sama seperti Struktur IF, tetapi struktur Case bentuknya lebih sederhana dan mudah
1. Pernyataan Case...Of
Perberdaan dengan struktur If adalah bila pernyataan If menyeleksi suatu kondisi yang terpenuhi, setelah memproses pernyataan dalam lingkungan yang terpenuhi tersebut, proses penyeleksian masih dilakukan terhadap pernyataan If berikutnya yang lain. Sedang pada struktur Case—Of bila salah satu kondisi terpenuhi dan pernyataan tersebut telah diproses, selanjutnya pernyataan-pernyataan yang lainnya dalam lingkungan Case tidak akan diseleksi lagi.
Bentuk dari struktor Case—Of adalah:
Case ungkapan Of
daftar case-label1:pernyataan1;
daftar case-label2:pernyataan2;
daftar case-label3:pernyataan3;
daftar case-label4:pernyataan4;
daftar case-labeln:pernyataann;
End;
Daftar case label (label permasalahan) dapat berupa konstanta, atau range (himpunan) dari konstanta yang bukan bertipe real.
Contoh:
Nilai ujian yang diberikan dalam bentuk huruf A, B, C, D, E mempunyai arti sebagai berikut.
Nilai ‘A’ berarti sangat baik.
Nilai ‘B’ berarti baik.
Nilai ‘C’ berarti cukup.
Nilai ‘D’ berarti kurang.
Nilai ‘E’ berarti kurang sekali.
Nilai ‘F’ berarti gagal.
Maka bentuk Programnya adalah
Var
Nilai:Char;
Begin
Writeln(‘Nilai huruf yang didapat = ‘);
Readln(Nilai);
Case Nilai of
‘A’:Writeln(‘Sangat Baik’);
‘B’:writeln(‘Baik’);
‘C’:Writeln(‘Cukup’);
‘D’:Writeln(‘Kurang’);
‘E’:Writeln(‘Gaga’);
End;
End.
2. Pernyataan Case...Of...Else
Permyataan Case—Of…Else merupakan pengembangan dari struktur Case—Of dan juga merupakan pengembangan dari standar Pascal. Pada struktur Case—Of bila tidak ada kondisi yang terpenuhi berarti tidak ada pernyataan di lingkungan Case—Of yang diproses. Dengan struktur Case—Of…Else, bila tidaka da kondisi yang terpenuhi, maka pernyataan yang akan diproses di dalam lingkungan Case—Of adalah pernyataan yanga da di Else.
Contoh
Pembelian yang mencapai nilai tertentu akan medapatkan potongan pembelian yang besarnya disesuaikan dengan tabel berikut ini.
Total Pembelian (Rp)
|
Potongan Rp
|
0-1000
|
100
|
1001-5000
|
200
|
>5000
|
500
|
Akan dihitung besarnya potongan dan nilai yang harus dibayat untuk masing-masing penjualan. Programnya adalah:
Var
Bersih,Beli,potong:Integer;
Begin
Writeln(‘Total Pembelian = ‘); Readln(beli);
Case Beli of
0..1000:potong:=100;
1001..5000:potong:=200;
Else potong:=500;
End;
Bersih:=beli-ptong;
Writeln(‘Potongan = ‘, potongan);
Writeln(‘Jumlah Bersih = ‘, Bersih);
End.
PENYELEKSIAN KONDISI CASE STATEMENT
PENYELEKSIAN KONDISI CASE STATEMENT
10out of 10 based on 25 ratings. 35 user reviews.
|
0 comments:
Post a Comment