andrypein.net : Case pada pascal ini merupakan bahasan terakhir mengenai statemen pemilihan, kali ini adalah yang akan kita gunakan yaitu dengan statemen case.
Baca Juga : Statement IF Pada Pascal Bagian III
Apabila kondisi yang didefinisikan statemen if semakin banyak maka akan menjadi hal yang cukup kompleks, untung saja pascal menyediakan alternatif lain.
berikut adalah gambaran statemen case pada pascal :
case (ekspresi) of
nilai_konstan1:statemen1;
nilai_konstan2:statemen2;
...
else
statemen_default;
end;
Dalam statemen case nilai konstan yang didefinisikan harus bersifat unik dan berasal dari tipe ordinal (char,integer,byte,boolean),nilai tersebut harus berupa nilai konstan (tidak boleh berupa variabel).
Statemen_default diatas yang dibawah else itu bersifat opsional,bisa ditulis bisa ngga.
untuk memahami lebih jelasnya,,ini contoh programnya.
program statemen_case;
uses wincrt;
var
hari:integer;
begin
write('Masukan nomor hari (1..7): ');
readln(hari);
case hari of
1:write('Hari ke-1 adalah hari Minggu');
2:write('Hari ke-2 adalah hari Senin');
3:write('Hari ke-3 adalah hari Selasa');
4:write('Hari ke-4 adalah hari Rabu');
5:write('Hari ke-5 adalah hari Kamis');
6:write('Hari ke-6 adalah hari Jumat');
7:write('Hari ke-7 adalah hari Sabtu');
else
write('Tidak ada hari ke-', hari);
end;
end.
juga satu lagi kalo statemen yang akan kita akan tulis itu banyak, seperti biasa kita hanya menambahkan blok begin..end.
kaya contoh dibawah ini
case bilangan of
0: begin
statemen1;
statemen2;
...
end;
1: begin
statemen1;
statemen2;
...
end;
...
end;
maka berarti penjelesan mengenai statemen case berakhir sampai disini.
logika if dan percabangan case tersebut pada posting selanjutnya akan kita praktekan pada DELPHI.
dan setelah statemen pemilihan, posting pascal selanjutnya akan membahas mengenai Statemen Pengulangan.
