Contoh Program Diskon/Bonus Belanja

1.       Perhatikan soal cerita berikut :

Ahmad membeli bahan makanan pokok di sebuah mini market, jika ahmad berbelanja dengan total pembelian diatas Rp.200.000; maka ahmad akan mendapatkan potongan harga sebesar 10%, jika pembelian diatas Rp. 100.000 maka ahmad akan mendapatkan sebuah piring, dan jika ahmad berbelanja diatas Rp. 50. 000 maka ahmad akan mendapatkan sebuah Gelas. Jika ahmad berbelanja dengan total pembelian dibawah Rp.50.000 maka ahmad tidak akan mendaptkan bonus apa-apa.

Buatlah sebuah program if dengan menggunakan variabel2 yang sesuai dengan soal.

Program Bonus;

uses crt;

var totalpembelian : real;

begin

   clrscr;

   write('Total Pembelian :');

   readln(totalpembelian);

   if totalpembelian >= 200000 then

      writeln('Diskon sebesar 10%')

   else if totalpembelian >=100000 then

           writeln('Bonus : 1 Piring')

        else if totalpembelian >= 50000 then

              writeln('Bonus : 1 Gelas')

             else writeln('Tidak Dapat Bonus');

   readkey

end.