CASE OF DALAM PEMOGRAMAN

Dalam fungsi yang berkaitan dengan logika adalah fungsi if, selain fungsi isi terdapat fungsi case of yaitu suatu ungkapan logika yang disebut selector dan sejumlah statemen yang diawali dengan suatu label permasalahan (case label) yang mempunyai tipe sama dengan selector.
Statement yang mempunyai case label yang bernmilai sama dengan case label yang bernilai sama dengan nilai selector akan diproses sedang statemen yang lainnya tidak.
Bentuk struktur case of :

Case Variabel Kondisi Of
  case-labe 1 : Statement 1;
  case-label 2: tatement 2;
  case-label 3: Statement 3;
  case-label 4: Statement 4;
  .....
  ...
  Case-label : Statement n ;
end;   {end dari case}


Daftar case label dapat berupa konstanta, range dari konstanta yang bukan bertipe real.

Contoh Program;

program nilaihuruf;
uses crt;
var  nilai : char;
begin
clrscr;
write ('Masukkan Nilai Huruf : ');
readln(nilai);
case nilai of
'A': Writeln('sangan Baik');
'B': Writeln('Baik');
'C': Writeln('Kurang);
'D': Writeln('Sangat kurang');
'E': Writeln('Buruk Sekali');
end;
Readln;
end.



----------------,------------------------------------------------------
Program Fotokopi ,
Program ini untuk memenuhi tugas Algoritma dan pemrograman,
cara kerja program fotokopi ini yaitu kita harus menginput kode kertas, yaitu H untuk HVS, Q untuk Quarto, dan P untuk polio,
setelah kita masukkan kode kertas dan kita tekan enter maka akan keluar lah jenis kertas dan juga harganya perlembar, kemudian masukkan jumlah yang difotokopi , setelah diinput maka tekan entek maka keluarlah jumlah yang harus dibayar.

kode : ____________________________________________________


Program Fotokopi
uses crt;
var
    kode : char;
    kertas : string;
    harga,jumlah,bayar : integer;
begin
clrscr;
writeln ('program fotokopi');
Write ('Masukkan Kode Kertas : ');
readln(kode);
case kode of
'H':begin
 kertas:='HVS';
 harga:=125;
 end;
'Q':begin
 kertas:='Quarto';
 harga:=150;
 end;
'P':begin
 kertas:='Polio';
 harga:=175;
 end;
else
kertas:='Tidak ada'
end;
Writeln('Menggunakan kertas : ',kertas);
Writeln('Harga perlembar : ',harga);
Write('Jumlah Yang difotokopi : ');
readln(jumlah);
bayar:=jumlah*harga;
Writeln('Yang Harus dibayar : ',bayar);
readkey;
end.

ketika di jalankan