sekian sibuknya hari-hari saya untuk mengerjakan tugas kuliah ternyata akhirnya membuahkan hasil juga. pada kesempatan kali ini saya mau berbagi ilmu tentang turbo pascal tentang case-of. berhari-hari untuk mengerti tentang penggunaan case of tersebut dalam turbo pascal lumayan melelahkan, tetapi akhirnya saya berhasil membuat program rumus-rumus luas dan keliling kubus, persegi panjang, lingkaran dan segitiga menjadi sebuah program tunggal yang rapih.

jika ingin lebih mengerti, alangkah baiknya langsung aja di praktekan dan coba-coba oke…🙂 tenang aja ga akan rusak ko komputer kita. saya pribadi juga termasuk orang yang coba-coba, karena berani mencoba itu lebih baik daripada yang diam sunyi.😀

langsung aja masuk ke penjelasannya…

Pernyataan CASE-OF biasanya dipakai pada permasalahan ganda. Karena pada pernyataan CASE-OF lebih jelas dan lebih mudah untuk dipahami serta lebih cepat pembuatannya daripada menggunakan pernyataan IF-THEN-ELSE.
Bentuk umumnya adalah:
CASE nilai OF
    Daftar_nilai1: pernyataan_1;
    Daftar_nilai2: pernyataan_2;
    … … … …
    Daftar_nilaim: pernyataan_m;
ELSE
    Pernyataan_n
END

contoh programnya :

Gambar

hasilnya

Gambar

contoh di atas juga sudah menggunakan goto, namun untuk masalah goto akan dibahas di postingan selanjutnya.

sekian postingan hari ini. jangan khawatir, contoh di atas sudah benar…

terima kasih sudah berkunjung. mohon di komentari.😀

sumber:

http://afrizulkarnain.blogspot.com/2012/12/penggunaan-pernyataan-case-of-pada.html

http://belajar-program.ueuo.com/?p=112