PENGGUNAAN FUNGSI CASE OF PADA PASCAL

Assalamu'alaikum...udah jam 00.30 dini hari masih di depan laptop. Masih asik baca tutorial di internet, eh...jadi kepingin entry postingan lagi deh...

Para pembaca yang budiman, kali ini saya akan mencoba membahas tentang penggunaan fungsi case of di pascal. Sebenarnya fungsi case of hampir sama dengan if then else, hanya saja dengan menggunakan case of, listing program akan semakin singkat dan efisien. Bisa dibayangkan seandainya kita menggunakan permisalan dengan fungsi if, pasti akan sangat panjang sekali. Tetapi dengan menggunakan ada fungsi case of akan lebih singkat pekerjaan kita.

Berikut kasus dimana kita diminta untuk membuat predikat pada umur. Ada beberapa rentang umur dengan predikat tertentu. Untuk lebih jelasnya, silahkan anda lihat listing program di bawah ini :

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:='baby';
            2..11 :predikat:='kid';
            12..17:predikat:='teenager';
            18..23:predikat:='young adult';
            24..39:predikat:='an adult';
            40..54:predikat:='middle age';
            55..64:predikat:='middle old';
       else
           predikat:='old';
       end;
           write('PREDIKAT USIA ANDA ADALAH = ',predikat);
           readln;
end.

Demikian tadi bahasan kita tentang penggunaan fungsi case of. Semoga bermanfaat dan sampai ketemu lagi di bahasan berikutnya.