PERNYATAAN CASE OF

Selain struktur kendali If, pascal juga menyediakan suatu struktur Case, yang akan menjalankan pernyataan berdasarkan range tertentu (Pernyataannya berjumlah banyak), tetapi penulisan syntaxnya menjadi lebih simpel daripada menggunakan pernyataan IF, meskipun fungsinya sama saja. Tapi pernyataan Case ini cocok untuk pernyataan yang banyak.

adapun syntaxnya adalah sebagai berikut :

Bentuk dari struktur 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: misalnya kita ingin membuat nilai berdasarkan huruf,

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.

Syntaxnya :

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(‘Gagal’);

End;

Readln;

End.

screen shootnya : 

 

 

 

Ada terdapat bentuk lain dari struktur Case Of yaitu 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

tidak ada kondisi yang terpenuhi, maka pernyataan yang akan diproses di dalam lingkungan Case—Of adalah pernyataan yang ada di Else.

Contoh:

Pembelian yang mencapai nilai tertentu akan medapatkan potongan pembelian

yang besarnya disesuaikan dengan ketentuan berikut ini.

Total Pembelian (Rp)	Potongan Rp
0-10000	1000
10001-50000	5000
>50000	9000

Akan dihitung besarnya potongan dan nilai yang harus dibayar untuk masing-masing

penjualan. syntaxnya adalah:

Var

Bersih,pembelian,potongan:longint;

Begin

Clrscr;

Writeln(‘Total Pembelian = ‘); Readln(pembelian);

Case pembelian of

0..10000:potongan:=1000;

10001..50000:potongan:=5000;

Else potongan:=9000;

End;

Bersih:=pembelian-potongan;

Writeln(‘Potongan = ‘, potongan);

Writeln(‘Jumlah Pembayaran Bersih = ‘, Bersih);

Readln;

End.

screen shootnya : 

 

Dan berikut ini ialah contoh program Pascal yang menggunakan pernyataan CASE OF yang saya kerjakan untuk tugas pelajaran ALGORITMA DAN PEMROGRAMAN 1 Tanggal 1 oktober 2013  oleh Dosen Pa Irwan Budiman di ruang Merie Curie kelas Ganjil prodi Ilmu Komputer Universitas Lambung Mangkurat.

Program pascal yang menggunakan pernyataan CASE OF yaitu pembayaran fotokopi kertas yang apabila ukuran kertas beda,maka pembayarannya pun berbeda setelah dikalikan dengan jumlah lembar fotocopy .

Syntax nya ialah :

program fotokopi;

uses crt;

var jumlah,bayar,kode : integer;

begin

clrscr;

writeln ('        Jumlah Bayar fotokopi berdasarkan ukuran kertas');

writeln ('kode 1 ------> kertas polio @150');

writeln ('kode 2 ------> kertas HVS @100');

writeln ('kode 3 ------> kertas A3 @300');

writeln ('kode 4 ------> kertas Warna @500');

writeln ('kode 5 ------> kertas ukuran Legal @200');

write ('masukan kode = '); readln (kode);

write ('masukan jumlah = '); readln (jumlah);

case kode of

1 : bayar := 150*jumlah;

2 : bayar := 100*jumlah;

3 : bayar := 300*jumlah;

4 : bayar := 500*jumlah;

5 : bayar := 200*jumlah;

end;

write ('jumlah yang harus dibayar = ' ,bayar);

readln;

end.

 

screen shootnya :

 

 

 

Demikian sedikit penjelasan dari saya, semoga bermanfaat dan apabila ada kesalahan saya mohon maaf karena segala kesempurnaan hanya milik Allah SWT. Terimakasih.