Case Pada Aplikasi Kategori Usia Pemograman Pascal

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