Latihan kode program bahasa Pascal kali ini akan membahas cara membuat dan menghitung diskon potongan harga.
Soal ini umumnya dipakai untuk menguji pemahaman seputar konsep variabel, operator perbandingan, dan kondisi if else.
Soal Diskon Potongan Harga
Buatlah program yang meminta data inputan berupa total belanja. Program kemudian menghitung berapa diskon yang bisa diperoleh dengan ketentuan sebagai berikut:
- Jika total belanja kurang dari Rp. 100.000, tidak mendapat diskon.
- Jika total belanja antara Rp. 100.000 – Rp. 500.000, mendapat diskon 10%.
- Jika total belanja antara Rp. 500.000 – Rp. 1.000.000, mendapat diskon 20%.
- Jika total belanja diatas Rp.1.000.000, mendapat diskon 30%.
Kode program kemudian menampilkan harga yang harus dibayar setelah dikurangi diskon.
Berikut contoh tampilan akhir yang diinginkan (1) :
## Program Pascal Diskon Potongan Harga ## ============================================ Total Belanja: Rp.175000 Selamat, anda mendapat diskon 10% Total bayar: Rp.157500.00
Berikut contoh tampilan akhir yang diinginkan (2) :
## Program Pascal Diskon Potongan Harga ## ============================================ Total Belanja: Rp.950000 Selamat, anda mendapat diskon 20% Total bayar: Rp.760000.00
Berikut contoh tampilan akhir yang diinginkan (3) :
## Program Pascal Diskon Potongan Harga ## ============================================ Total Belanja: Rp.3525000 Selamat, anda mendapat diskon 30% Total bayar: Rp.2467500.00
Berikut contoh tampilan akhir yang diinginkan (4) :
## Program Pascal Diskon Potongan Harga ## ============================================ Total Belanja: Rp.10000 Total bayar: Rp.10000
Tips Membuat Kode Program Diskon Potongan Harga
Karena terdapat beberapa kondisi, kode program ini butuh struktur if else. Setiap kondisi punya syarat gabungan, sehingga juga harus paham operator perbandingan dan operator logika di bahasa Pascal. Terakhir, butuh sedikit operasi aritmatika untuk menghitung diskon serta total jumlah akhir yang harus dibayar.
Berikut tutorial pendahuluan yang bisa diikuti:
- Pengertian Variabel dalam Bahasa Pascal
- Cara Penggunaan Perintah Read dan Readln
- Operator Aritmatika Pascal
- Operator Logika Pascal
- Percabangan Kondisi IF THEN ELSE dalam Pascal
Kode Program Bahasa Pascal Menghitung Diskon Potongan Harga
Berikut salah satu solusi dari soal menghitung diskon potongan harga menggunakan bahasa pemrograman Pascal:
program diskon_potongan_harga;
uses crt;
var
total_belanja, harga_akhir: real;
begin
clrscr;
writeln('## Program Pascal Diskon Potongan Harga ##');
writeln('============================================');
writeln;
write('Total Belanja: Rp.');
readln(total_belanja);
if ((total_belanja >= 100000) and (total_belanja < 500000)) then
begin
harga_akhir := total_belanja - (0.1*total_belanja);
writeln('Selamat, anda mendapat diskon 10%');
end
else if ((total_belanja >= 500000) and (total_belanja < 1000000)) then
begin
harga_akhir := total_belanja - (0.2*total_belanja);
writeln('Selamat, anda mendapat diskon 20%');
end
else if (total_belanja >= 1000000) then
begin
harga_akhir := total_belanja - (0.3*total_belanja);
writeln('Selamat, anda mendapat diskon 30%');
end
else
harga_akhir := total_belanja;
writeln('Total bayar: Rp.',harga_akhir:4:2);
readln;
end.
Di baris 4 terdapat perintah untuk deklarasi 2 variabel real, yakni total_belanja dan harga_akhir.
Variabel total_belanja dipakai untuk menampung nilai input total belanja user. Ini diperoleh dari perintah readln(total_belanja) di baris 13.
Selanjutnya terdapat 4 pemeriksaan kondisi if else antara baris 15-31. Urutan pemeriksaan ini harus mulai dari terkecil ke terbesar agar sesuai dengan logika program.
Sebagai contoh, kondisi if di baris 15 akan dijalankan jika total belanja sama atau lebih besar dari 100.000, dan kurang dari 500.000. Jika ini bernilai true, maka hitung harga_akhir dengan mengurangkan isi variabel total_belanja – (0.1*total_belanja). Sebagai info tambahan, terdapat perintah writeln yang berisi teks "Selamat, anda mendapat diskon 10%".
Untuk kondisi if di baris 20, akan dijalankan jika total belanja sama atau lebih besar dari 500.000, dan kurang dari 1.000.000. Jika ini bernilai true, maka hitung harga_akhir dengan mengurangkan isi variabel total_belanja – (0.2*total_belanja). Sebagai info tambahan, terdapat perintah writeln yang berisi teks "Selamat, anda mendapat diskon 20%".
Untuk kondisi if di baris 25, akan dijalankan jika total belanja sama sama atau lebih besar dari 1.000.000. Jika ini bernilai true, maka hitung harga_akhir dengan mengurangkan isi variabel total_belanja – (0.3*total_belanja). Sebagai info tambahan, terdapat perintah writeln yang berisi teks "Selamat, anda mendapat diskon 30%".
Terakhir, blok else di baris 30 akan dijalankan jika tidak memenuhi ketiga syarat diatas, yakni jika total_belanja kurang dari 100.000. Jika ini bernilai true, harga_akhir akan sama dengan total_belanja karena tidak mendapat diskon.
Total bayar kemudian ditampilkan di baris 33.
Demikian kode program latihan membuat diskon potongan harga dalam bahasa pemrograman Pascal. Soal seperti ini cukup sering ditemukan dengan beberapa variasi harga diskon dan syarat tambahan.