Belajar pascal : Contoh syntax pascal case of – Dalam beberapa pembuatan program pascal, terdapat beberapa metode diantaranya adalah metode bertingkat, metode bersarang dan case of. Nah untuk kesempatan kali ini, kita akan membahas dan mempelajari metode case of.
Berikut adalah contoh syntax pascal menggunakan metode case of beserta soalnya...
Sudah terbukti bekerja 100% di dalam aplikasi Turbo Pascal
Menentukan tuntas tidaknya suatu nilai
Soalnya sebagai berikut :
Buatlah syntax pascal dengan ketentuan nilai di atas 70 (TUNTAS) dan selain itu (TIDAK TUNTAS). Buatlah dengan menggunakan metode case of secara singkat namun tepat !
Jawab :
uses wincrt ;
var x : integer ;
begin
writeln ('masukkan nilai : ');
readln (x);
case x of
70..100 : writeln ('Nilai TUNTAS') ;
else
writeln ('Nilai TIDAK TUNTAS') ;
end;
end.
 |
| Output |
Menentukan nilai besar atau kecil dalam suatu bilangan
Soalnya sebagai berikut :Buatlah syntax pascal untuk menentukan nilai kecil atau besar dalam angka-angka dadu. Dan selain angka 1-6 maka ditulis bukan termasuk angka dadu. Buatlah dengan menggunakan metode case x of dengan baik dan benar !
Jawab :
uses wincrt ;
var x : integer ;
begin
writeln ('masukkan angka dadu (1-6) : ');
readln (x);
case x of
4..6 : writeln ('nilai besar') ;
2..3 : writeln ('nilai kecil') ;
1 : writeln (' nilai satu') ;
else
writeln('bukan termasuk angka dadu')
end;
end.
 |
| Output |
Menentukan bilangan genap atau ganjil dalam angka-angka dadu
Soalnya sebagai berikut :
Buatlah syntax pascal untuk menentukan bilangan genap atau ganjil antara 1 sampai 20. Buatlah dengan menggunakan metode case x of dengan baik dan benar !
Jawab :
uses wincrt ;
var x : integer ;
begin
writeln ('masukkan angka antara 1 sampai 20 : ');
readln (x);
case x of
1,3,5,7,9,11,13,15,17,19 : writeln ('bilangan ganjil') ;
2,4,6,8,10,12,14,16,18,20 : writeln (' bilangan genap') ;
end;
end.
Menentukan Kriteria nilai amat baik, baik, kurang, dan sangat kurang
Soalnya sebagai berikut :
Buatlah syntax pascal dengan ketentuan nilai di atas 90 (amat baik), nilai di atas 75 (baik), nilai di atas 50 (kurang), dan selain itu sangat kurang. Buatlah dengan menggunakan metode case x of !
Jawab :
uses wincrt ;
var x : integer ;
begin
writeln ('masukkan nilai : ');
readln (x);
case x of
90..100 : writeln ('amat baik') ;
75..89 : writeln (' baik') ;
50..74 : writeln ('kurang') ;
else
writeln ('sangat kurang') ;
end;
end.
 |
| Output |
Baca juga : Syntax Pascal Membuat Program Kasir Sederhana
Terimakasih...