Penggunaan CASE OF Pada Pascal

kadang sejumlah statement if dapat membuat para pemula khususnya, merasa membingungkan dan sangat panjang ,
jadi dalam pascal , selain IF juga ada penggunaan CASE OF yang mempunyai fungsi yang sama dengan IF namun penulisan di pascal lebih efektif. 

Dibawah ini akan di sajikan Contoh dari Case OF terimakasih

 

Sambungannya

 

 Lalu masukan salah satu input "Misal Q dan jumlah pembelian 12"

maka akan menghasilkan seperti gambar dibawah ini

 

TERIMAKASIH