Berikut adalah contoh selanjutnya dari penggunaan case pada pemrograman pascal yang di aplikasikan pada aplikasi cek harga barang.
 |
| Gambar oleh Goumbik dari Pixabay |
Contoh Program Case Pada Aplikasi Cek Harga Barang Pemrograman Pascal - Berikut adalah contoh selanjutnya dari penggunaan case pada pemrograman pascal yang di aplikasikan pada aplikasi cek harga barang.
Cara menggunakan aplikasi cek harga barang ini adalah dengan memasukkan salah satu angka pada daftar barang yang tampil. Kemudian aplikasi akan memprosesnya dan menampilkan berapa harga dari barang yang telah user pilih tersebut.
Contohnya user memasukkan angka 2 maka hasil yang akan ditampilkan pada layar adalah "harga Rp 2.000". Jika user salah memasukkan angka atau angka yang dimasukkan tidak terdapat pada layar yang ditampilkan maka pesan yang akan tampil adalah "maaf anda salah memasukkan pilihan".
Program
case_sederhana1;
uses crt;
Var pil : integer;
Begin
Clrscr;
Writeln ('1 :
pensil');
Writeln ('2 :
buku');
Writeln ('3 :
mistar ');
Writeln ('4 :
penghapus');
Writeln ('5 :
tas');
Writeln ('6 :
sepatu');
Writeln ('7 :
pulpen');
Writeln ('8 :
peraut pensil');
Writeln ('9 :
dasi');
Writeln ('10 :
topi');
write('masukan angka : ');
Readln
(pil) ;
Case pil of
1:
writeln ('harga Rp 2.500');
2:
writeln('harga Rp 2.000');
3:
writeln ('harga Rp 1.500');
4:
writeln ('harga Rp 500');
5:
writeln ('harga Rp 55.500');
6:
writeln ('harga Rp 75.500');
7:
writeln ('harga Rp 1.500');
8:
writeln ('harga Rp 1.000');
9:
writeln ('harga Rp 5.500');
10:
writeln ('harga Rp 6.500');
Else
writeln (' maaf
anda salah memasukan pilihan ');
End;
Readln;
End.
KOMENTAR