Menghitung Diskon Pembelian

Buatlah program untuk menghitung diskon pembelian barang berdasarkan total harga dengan ketentuan sebagai berikut:
Rp 100.000 – Rp 200.000,- –> 10%
> Rp 200.000,- –> 20%
> Rp 300.000,- –> 30%
> Rp 400.000,- –> 40%
> Rp 500.000,- –> 50%
Input berupa total harga awal, sedang output berupa jumlah diskon dan total harga setelah dikurangi diskon pembelian. Format input dan output bebas.

Jawaban:

Soal ini merupakan pengembangan dari kasus menentukan nilai huruf dari hasil ujian. Seperti contoh sebelumnya, ada banyak variasi solusi untuk kasus ini. Salah satunya dapat dilihat di bawah ini.

program Project1;

var
  diskon          : integer;
  t1, t2, tdiskon : longint;

begin
  write('Masukkan total pembelian (Rp) = ');
  readln(t1);
  if (t1 >= 100000) and (t1 <= 200000) then diskon := 10
  else if (t1 >= 200001) and (t1 <= 300000) then diskon := 20
  else if (t1 >= 300001) and (t1 <= 400000) then diskon := 30
  else if (t1 >= 400001) and (t1 <= 500000) then diskon := 40
  else if (t1 >= 500000) then diskon := 50;
  tdiskon := (t1 * diskon) div 100;
  t2 := t1 - tdiskon;
  writeln('Total Pembelian  = ', t1);
  writeln('Diskon ', diskon, '%       = ', tdiskon);
  writeln('Total Pembayaran = ', t2);
  readln;
end.