Penggunaan Seleksi Case Pada Pascal

Salam sobat blogger, kondisi untuk mengambil sebuah keputusan pada pascal bisa menggunakan fungsi IF dan Case. Artikel kali ini saya bahas penggunaan seleksi CASE untuk menentukan nilai huruf dari range nilai angka yan ada.  untuk penggunaannya dapat diuraikan di bawah ini.

Berikut contoh program pemakaian seleksi case of pada pascal.

uses crt ;

var

   Matakuliah    : string[30];

   nilai  : byte ;

   ket,Nh    : string[10];

Begin

     clrscr ;

     Write('Mata Kuliah   : '); readln(matakuliah) ;

     Write('Nilai         : '); readln(nilai) ;

     Case nilai of

    80..100: Nh:='A' ;

    70..79 : Nh:='B' ;

    60..69 : Nh:='C' ;

    50..59 : Nh:='D' ;

    0..49  : Nh:='E' ;

    end;

    if nilai >49 then Ket:='lulus' else ket:='Gagal';

     Writeln('Nilai Huruf   : ', Nh);

     Writeln('Keterangan    : ', ket);

     readln;

end.

mudah bukan, untuk permasalahan lainnya script bisa disesuaikan tergantung pada kasusnya. jika ada yang ingin ditanyakan atau saran silahkan dipost di kolom komentar. Sekian dan Terima kasih.

TERIMA KASIH ATAS KUNJUNGAN Sobat
Semoga artikel ini bermanfaat bagi sobat. Jika ingin mengutip, baik itu sebagian atau keseluruhan dari isi artikel ini harap menyertakan link dofollow ke http://tekinfotika.blogspot.com/2017/03/penggunaan-seleksi-case-pada-pascal.html. Terima kasih sudah singgah membaca artikel ini.