Pemakaian Seleksi Case of 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.



Syntax :

    Case nmvariabel of
    nilai1...nilai2  : perintah ;
    nilai3          : perintah ;
    ....
    ....
    ....
    end;


Berikut contoh program pemakaian seleksi case of pada pascal.

uses crt ;
var
   mtk    : string[30];
   nilai  : byte ;
   ket    : string[10];
Begin
     clrscr ;
     Write('Mata Kuliah   : '); readln(mtk) ;
     Write('Nilai         : '); readln(nilai) ;
     Case nilai of
    80..100: ket:='Lulus' ;
         70..79 : ket:='Lulus' ;
         60..69 : ket:='Lulus' ;
         50..59 : ket:='Lulus' ;
         0..49  : ket:='Gagal' ;
     end;

     Write('Keterangan    : ', ket);
     readln;
end.

Demikianlah artikel pemakaian seleksi case of pada pascal . Semoga bermanfaat dan anda semakin menyukai belajar bahasa pemrograman


Sumber : Mesran.Net