Contoh Program Predikat Usia pada Pascal

Berikut ini akan saya bagikan source code untuk membuat program predikat usia pada Pascal :

program case_of_age;
uses crt;
var predikat:string;
usia:byte;
begin
clrscr;
write('TULISKAN USIA ANDA= ');
readln(usia);
case usia of
0..1:predikat:='BAYI';
2..11:predikat:='ANAK-ANAK';
12..17:predikat:='REMAJA';
18..23:predikat:='MENUJU DEWASA';
24..39:predikat:='DEWASA';
40..54:predikat:='USIA PERTENGAHAN';
55..64:predikat:='MENUJU PENUAAN';
else
predikat:='TUA';
end;
write('PREDIKAT USIA ANDA ADALAH= ',predikat);
readln;
end.

Sekian dari saya, semoga bermanfaat. :-)

Untuk download programnya, silahkan download (DISINI)