Fajarjabrik-Meskipun sekarang udah jam 1 dini hari n waktunya bagi para kalong nglayap, tapi gua masih mantengin leptop buat mosting nih postingan. Maklum sob, punya kuota cuman jatah midight doang....
Oke, sobat-sobat yang cakep, kali ini gua akan ngebahas tentang penggunaan fungsi case of pada pascal. Case of sendiri kalo diartiin satu persatu maksudnya jadi "kasus/ perkara dari..." jadi, kayak semacam pembuatan opsi logika, mirip-mirip sama If Else namun dengan fungsi yang lebih kompleks.
Dibawah ini ada beberapa contoh script pascal yang bisa kalian coba ndiri :
program case_of_umurku;
uses crt;
var predikat:string;
umur:byte;
begin
clrscr;
write('Masukin Usia Kamu = ');
readln(umur);
case umur of
0..1 :predikat:='bayi';
2..11 :predikat:='bocah';
12..17:predikat:='cabe-cabean';
18..23:predikat:='abg';
24..39:predikat:='dewasa';
40..54:predikat:='bapak-bapak';
55..64:predikat:='bangkotan';
else
predikat:='old';
end;
write('Usiamu Bisa Dibilang = ',predikat);
readln;
end.
2. Case of Grade
Program latihancases;
uses crt;
var nilai : char;
begin
write ('Nilai huruf yang didapat?: ');
readln (nilai);
case nilai of
'A': writeln ('Sangat baik');
'B': writeln ('Baik');
'C': writeln ('Cukup');
'D': writeln ('Kurang');
'F': writeln ('Buruk');
End;
readln;
end.
3. Case of Bulan
Program latihancases;
uses crt;
var pilih : integer;
begin
writeln ('silahkan masukan bulan sesuai tanggal lahirmu');
write ('1. Januari ');
write ('2. Februari'); writeln;
write ('3. Maret ');
write ('4. April'); writeln;
write ('5. Mei ');
write ('6. Juni'); writeln;
write ('7. Juli ');
write ('8. Agustus'); writeln;
write ('9. September ');
write ('10. Oktober'); writeln;
write ('11. Novembber ');
write ('12. Desember'); writeln;
readln (pilih);
case pilih of
1: writeln ('Bulan Januari jumlahnya 31 Hari');
2: writeln ('Bulan Februari jumlahnya 28-29 Hari');
3: writeln ('Bulan Maret jumlahnya 31 Hari');
4: writeln ('Bulan April jumlahnya 30 Hari');
5: writeln ('Bulan Mei jumlanhnya 31 Hari');
6: writeln ('Bulan Juni jumlahnya 30 Hari');
7: writeln ('Bulan Juli jumlahnya 31 Hari');
8: writeln ('Bulan Agustus jumlahnya 31 Hari');
9: writeln ('Bulan September jumlahnya 30 Hari');
10: writeln ('Bulan Oktober jumlahnya 30 Hari');
11: writeln ('Bulan November jumlahnya 31 Hari');
12: writeln ('Bulan Desember jumlahnya 30 Hari');
else
writeln ('Maaf Bulan yang anda masukan tidak terdaftar! hanya tersedia 12 bulan !!!');
End;
writeln;
Writeln ('>>>>>>>>>><<<<<<<<<<');
writeln (' By. Fajar Jabrik');
Writeln ('>>>>>>>>>><<<<<<<<<<');
writeln;
writeln ('Tekan Enter untk keluar dari program......');
readln;
end.
Mungkin ini dulu yang bisa gue share malem ini, nih mata udah gak bisa diajak kompromi sob. ntar kalo ada waktu n kesempatan, gue bakal balik lagi n share yang lebih keren dari nih postingan.
See you....
