Pertama buka program C++, kemudian ketikan coding seperti Gambar 1.1. Jika sudah selesai, compile program dengan menekan Alt + F9 secara bersamaan dan pastikan program tidak ada yang error. Kemudian running program dengan cara menekan Ctrl + F9, maka akan tampil output seperti pada Gambar 1.2
- uses crt; ==> sintaks yang diharuskan pada turbo pascal
- var pil : char; ==> untuk memasukan kondisi pada variabel pil berupa alfabet
- var byk : integer; ==> untuk memasukan kondisi pada variabel byk berupa bilangan numerik
- begin ==> untuk mengawali suatu procedure
- clrscr; ==> untuk membersihkan layar pada turbo pascal
- write (‘Pilihan Ukuran (S/M/L) : ‘); ==> untuk menampilkan Pilihan Ukuran (S/M/L) : pada saat program dijalankan
- readln (pil); ==> untuk membaca kondisi pada variabel pil
- write (‘Banyak Barang : ‘); ==> untuk menampilkan Banyak Barang : pada saat program dijalankan
- readln (byk); ==> untuk membaca kondisi pada variabel byk
- case pil of ==> untuk memberikan kasus pada variabel pil
- ‘S’ : write (‘Total = ‘,byk*50000); ==> untuk menampilkan kasus dari pil. Jika S maka Total = Banyak Barang*50000
- ‘M’ : write (‘Total = ‘,byk*65000); ==> untuk menampilkan kasus dari pil. Jika M maka Total = Banyak Barang*65000
- ‘L’ : write (‘Total = ‘,byk*70000); ==> untuk menampilkan kasus dari pil. Jika L maka Total = Banyak Barang*70000
- else ==> lainnya
- writeln (‘Pilihan Tidak Tersedia’); ==> untuk menampilkan Pilihan Tidak Tersedia
- end; ==> untuk mengakhiri suatu procedure
- readln; ==> untuk membaca nilai dari suatu variabel
- end. ==> sebagai tanda selesai pada turbo pascal
Postingan
