program kategori_umur; uses crt; var umur:integer; kategori:string; begin clrscr; write('masukkan umur: '); readln(umur); case umur of 0..5 : kategori :='balita'; 6..12: kategori :='anak-anak'; 13..17:kategori :='abg'; 18..24:kategori :='dewasa muda'; 25..50:kategori :='dewasa'; else kategori :='manula'; end; writeln('anda termasuk kategori usia: ',kategori); readln; end.
 |
| Gambar oleh Gerd Altmann dari Pixabay |
Contoh Program Case Pada Aplikasi Kategori Usia Pemograman Pascal - Berikut adalah contoh penggunaan case pada aplikasi penentuan kategori usia pada pemograman pascal. Cara menggunakan aplikasi kategori usia pemograman pascal ini adalah dengan cara memasukkan umur user kemudian setelah menekan tombol enter, nanti akan langsung keluar hasilnya. Contohnya user memasukkan umur 6 maka umur user termasuk ke dalam kategori anak-anak.
program kategori_umur;
uses crt;
var umur:integer;
kategori:string;
begin
clrscr;
write('masukkan
umur: ');
readln(umur);
case umur of
0..5
: kategori :='balita';
6..12:
kategori :='anak-anak';
13..17:kategori :='abg';
18..24:kategori :='dewasa muda';
25..50:kategori :='dewasa';
else kategori :='manula';
end;
writeln('anda termasuk kategori usia: ',kategori);
readln;
end.
Baca juga Program Case 5
KOMENTAR