Page 116 - Pemrograman Dasar kelas X

112 Pemrograman Dasar SMK Kelas X Sem 2

end;
2: begin

Pernyataan2a;
Pernyataan2b;
end;

3:begin
Pernyataan 3a;

Pernyataan 3b;
End;
Else

Begin
PernyataanElse1;
PernyataanElse2;

End;
End; {ini akhir dari struktur case of}

Selain kondisi berupa data tunggal, struktur case of juga dapat diterapkan pada interval
data ordinal, emisalkan sebagai berikut. Dalam algoritma penghitungan bonus karyawan

berdasarkan omset jual di atas. Agar dapat diterapkan struktur case of, maka besar omset jual
dituliskan sebagai variabel dengan tipe integer (pembulatan) di mana nilainya dalam satuan juta.
Shingga jika variabel omset_jual= 125 artinya 125 juta, sehingga bonusnya dihitung

(1.5/100)*omset_jual*1000000. Sekali lagi, ini adalah salah satu bentuk strategi untuk
memecahkan masalah. Dengan demikian kita bisa memberikan alternatif solusi kondisi
percabangan adalah sebagai berikut:

readln(omset_jual); {dalam juta}
case (omset_jual) of

0..49 : bonus:=0;
50..100 :bonus:=(1/100)*omset_jual*1000000;
else

bonus:=(1.5/100)*omset_jual*1000000;
end;

Struktur di atas meberikan gambaran bahwa struktur case of dapat diterapkan pada rentang nilai

dari suatu data ordinal. Bisa juga dengan mengggunakan tipe data karakter seperti berikut.
case (karakter) of
'a'..'j' : pernyataan1;