Siswa Master

Berbagi Mata Pelajaran Sekolah, Tips Belajar dan Info Menarik Lainnya | Lengkap dan Terpercaya

4 November 2015

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.

Belajar Pascal : Contoh Syntax Pascal CASE X 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.
program pascal Menentukan tuntas tidaknya suatu nilai
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.
program pascal Menentukan nilai besar atau kecil dalam suatu bilangan
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.
Program pascal Menentukan bilangan genap atau ganjil dalam angka-angka dadu

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.
program pascal Menentukan Kriteria nilai amat baik, baik, kurang, dan sangat kurang
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...

Ayo budayakan komentar setelah membaca artikel ! (Jangan SPAM ya)

 
Back To Top