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+!

1 komentar:

Baru denger case of x ini...
Oya, itu untuk logikanya apakah memang sudah ditetapkan dengan rentang 0 s.d 100 ?
Jika lebih dari 100 maka output yg keluar apa ya?

Wah! Orang-orang di sekitar kita telah berkomentar sebanyak lebih dari 850 komentar! Sekarang giliran kalian! Ayo berpendapat!

Habibullah Al Faruq

Portal Situs Edukasi SD, SMP, SMA/SMK dan Perguruan Tinggi di Jaringan Luas Indonesia

 
Admin - FAQ - Kontak Kami - Perjalanan - Privacy Policy - Tentang HabibullahURL
Back To Top