PT. Diamon Computer mengadakan bonus bagi pelanggan yang membeli produk Laptop HP NX9040, harga per unit adalah Rp. 3.000.000,-
Ketentuan untuk mendapatkan bonus adalah sebagai berikut :
- Jika membeli laptop diatas 2 maka dapat bonus Rp. 100.000,-
- Jika membeli laptop diatas 5 maka dapat bonus Rp. 300.000,-
- Jika membeli laptop diatas 10 maka dapat bonus Rp. 1.000.000,-
program penjualan_laptop;
uses wincrt;
var merek,type_laptop :string;
harga,bonus,total,total_bonus,jumlah :integer;
begin
write ('Input Merek : ');readln(merek);
write ('Input Type Laptop : ');readln(type_laptop);
write ('Input Harga : ');readln(harga);
write ('Input Jumlah Beli : ')readln(jumlah);
total:=harga*jumlah;
if jumlah >2 then
begin
Bonus :=100000;
end
else
if jumlah >5 then
begin
Bonus :=300000;
end
else
if jumlah >10 then
begin
bonus :=1000000;
end
else
begin
Bonus :=0;
end;
total_bonus:total-bonus;
writeln ('total : ',total);
writeln ('Bonus : ',bonus);
writeln ('Total Bersih : ',total_bonus);
end.
0 komentar:
Posting Komentar