Seleksi Case pada Pascal

Bahasa pemrograman PASCAL menyediakan 2 jenis seleksi dalam pemroses suatu data, yaitu IF dan CASE. Pada artikel ini akan dibahas pemakaian seleksi case of pada PASCAL.

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.

Selamat Mencoba.

Sumber : Berbagi Ilmu itu Bijaksana

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/02/bahasa-pemrograman-pascal-menyediakan-2.html. Terima kasih sudah singgah membaca artikel ini.