Fungsi Case pada Program Pascal

Case (english) ~ atau dalam bahasa indonesianya "Kasus" merupakan fungsi yang ditulis dalam program Pascal. Jadi, fungsi ini adalah fungsi yang ditulis dalam program yang bertugas membagi kasus dengan pilihan-pilihan yang sudah ditentukan.
Agar lebih mudah dipahami Mari kita liha tutorialnya di bawah ini!

Program: Pascal IDE
1. Buka program Pascal IDE>File>New

2. Buat Program
Buat Program yang ingin kamu buat, Misalnya Program mengenai Penjualan Kertas di tempat percetakan foto copy. Dalam Kasus ini anda akan menemukan banyak macam jenis kertas yang di jual di tempat percetakan fotocopy maka dari itu kita dapat menggunakan perintah Case karena ini lebih sederhana dari if-then-else. untuk contoh format pengetikannya bisa anda lihat di bawah:
================================================
Program Penjualan_Kertas;
Uses Crt;
Var Kode, Jumlah, Harga :INTEGER;

Begin
Clrscr;

Writeln('Kode Kertas');
Writeln('1= Kertas Polio  Rp 150,-);
Writeln('2= Kertas Hvs A4  Rp 200,-);
Writeln('3= Legal F4  Rp 200,-);
Writeln('4= Hvs Warna  Rp 300,-);
Writeln('5= Kertas Karton  Rp 1000,-);

Writeln('Kode Kertas= ');
readln(Kode);
Writeln('Jumlah Kertas= ');
readln(Jumlah);
=================================================
Ket: Nah, Sekarang Kita masukkan Fungsi Case Of nya, Anda dapat menulis format case of seperti di bawah ini:
=================================================
Case Kode of
1: Harga : =(Jumlah*150);
2: Harga : =(Jumlah*200);
3: Harga : =(Jumlah*200);
4: Harga : =(Jumlah*300);
5: Harga : =(Jumlah*1000);
end;
==================================================
Ket: Sekarang Fungsi Case Of nya sudah selesai, tinggal kita selesaikan saja programnya
==================================================
Writeln('Harga= ','Rp ',Harga,',- ');
Readln(Harga);
end.
==================================================
PERHATIAN! untuk keterangan (Ket:) tidak usah ditulis karena itu hanya penjelasannya saja :)
Kalau sudah akan muncul tampilan seperti di bawah:

3. Periksa Program yang anda Buat!
Periksalahkembali program yang barusaja anda buat, dan Perbaikilah kalaunya ada yang salah, anda juga bisa menghiasi dengan menambah sedikit dekorasi sesuai keinginan anda >_<

4. Make
Jika program anda sudah benar maka anda dapat membuat program tersebut dengan perintah "MAKE" dengan menekan Ctrl+F9

Sekian tentang Fungsi Case Of yang saya ketahui, Mudah-Mudahan dapat bermanfaat ^^