program
hitung_diskon_harga;
uses crt;
var harga,
diskon, total : real;
begin clrscr;
write
('Masukkan Jumlah Harga : Rp ' ); readln (harga);
if harga >
300000 then
begin
writeln('Mendapat
Diskon 40%');
diskon := harga *
0.4; total := harga - diskon; end
else
if (harga>=
150000) and (harga<=300000) then
begin
writeln('Mendapat
Diskon 20%');
diskon := harga *
0.2; total := harga - diskon; end
else
if harga <
150000 then
begin
writeln('Mendapat
Diskon 10%');
diskon := harga *
0.1; total := harga - diskon; end;
write ('Jumlah
diskon : Rp ', diskon:0:0); readln;
write ('Jumlah
Harga Setelah Diskon : Rp ', total :0:0 ); readln;
end.
Tidak ada komentar:
Posting Komentar