Fungsi Case of Pascal

Assalamualaikum Sahabat Afif apakabar, pada kali ini kita akan belajar tentang Pascal terlebih dalam Fungsi Cas Of,  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 Sederhana:
------------------------------------------------------------
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.

------------------------------------------------------------

Berikut ini adalah contoh program Pascal yang menggunakan Case Of Bercabang

program Diskon_Afif;

uses crt;
var wb,ub:string;
    hb,jb,jby,d,tb,di:real;

begin clrscr;
writeln('UTS PASCAL:');
writeln('Dosen Pengampu : Ayu Nuriana Sebayang, S.Kom, M.Kom ');
writeln('======================================');

writeln('PROGRAMMER BY:');
writeln('Afif Maruf Yulfriza');
writeln('STMIK & AMIK LOGIKA');
writeln('201603071/1D Teknik Informatika');
writeln('======================================');

writeln('WELCOME TO AFIF FASHION STORE');
writeln('======================================');
writeln(' ');
write('Warna baju                 : ');
readln(wb);
write('jumlah baju                : ');
readln(jb);
write('ukuran baju                : ');
readln(ub);
write('harga satu baju            : ');
readln(hb);
write('% Diskon                   : ');
readln(di);


jby:=hb*jb;
write('Harga sebelum Diskon       :',jby:0:0);
begin
d:=jby*(di/100);
tb:=jby-d;
end;
writeln;
writeln('Potongan diskon            :',d:0:0);
tb:=jby-d;
writeln('Total Harga Belanja anda   :',tb:0:0);

writeln('======================================');
writeln('Terima Kasih');
readln;
end.

------------------------------------------------------------

Sekian dan trimakasih Semoga dapat membantu, jangan lupa di Like dan Share