Belajar Pascal : Contoh Syntax Pascal CASE OF

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

Nah sekian artikel tentang pembuatan program pascal, semoga dapat memperkaya ilmu akan dunia pemrograman khususnya bahasa pascal. Jika ada yang ingin ditanyakan silahkan bertanya di kolom komentar.

Baca juga : Syntax Pascal Membuat Program Kasir Sederhana

Terimakasih...

Tweet

Subscribe to receive free email updates: