program discount;
uses crt;
var harga,diskon,total:real;
begin
clrscr;
write('masukkan harga:');
read(harga);
if harga>=1000000 then
begin
writeln('diskon 15%');
diskon:=harga*15/100;
total :=harga-diskon;
writeln(total:2:2);
end
else
if (harga<1000000) and (harga>500000) then
begin
writeln('diskon 10%');
diskon:=harga*10/100;
total:=harga-diskon;
writeln(total:2:2);
end
else
if (harga<500000) and (harga>100000) then
begin
writeln('diskon 5%');
diskon:=harga*5/100;
total:=harga-diskon;
writeln(total:2:2)
end
else
if (harga>100000) and (harga<50000) then
begin
writeln('diskon 5%');
diskon:=harga*5/100;
total:=harga-diskon;
writeln(total:2:2);
end
else
if harga<500000 then
writeln('tidak dapat diskon');
readln;
readln;
end.
Tidak ada komentar:
Posting Komentar