CONTOH SYNTAX PASCAL CASE OF

oke pada kesempatan kali ini saya akan mempost mengenai struktur data atau yang lebih inti na membahas tentang pascal.

Program Pascal adalah salah satu bahasa pemrograman pada komputeryang paling mendasar dan sangat penting untuk dipelajari terutama untuk para pecinta program.

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.

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