Portal Situs Edukasi SD, SMP dan SMA/SMK Berbasis Internet di Jaringan Luas Nomor #1 di Indonesia

8 Nov 2015

Contoh Syntax Case Of X pada Pascal

Contoh Syntax Case Of X pada Pascal - Setelah sebelumnya membahas pada Syntax Program Pascal Menghitung Luas dan Keliling Persegi, maka saat ini akan membahas mengenai Case Of X pada Pascal.

Cara ini sama mudahnya dengan praktik yang lalu masih dalam Pascal.

Oh ya, jangan sampai ada yang terlewat entah itu titik koma atau apapun, jika ada yang terlewat, program tidak akan berjalan.

Case of

program Nilai;
uses WinCrt;
var x : integer;

begin
write('Masukkan nilai 0 - 100 : ');
read(x);
case of x then
90..100:writeln('Sangat Baik');
75..89:writeln('Baik');
50..74:writeln('Kurang');
0..49:writeln('Sangat Kurang');
end.

Silakan dicoba dan sudah dites bahwa syntax tersebut 100% bekerja!
“Jika seseorang meninggal dunia, maka terputuslah amalannya kecuali tiga perkara yaitu: sedekah jariyah, ilmu yang dimanfaatkan, atau do’a anak yang sholeh.” (HR. Muslim no. 1631) - YUK SHARE DI FACEBOOK, TWITTER dan GOOGLE+!
 
Back To Top