Question

Buatlah program pascal untuk menghitung besaran diskon dari sebuah benda yang dijual jika diketahui harga sebelum dan sesudah didiskon

Answer 1

Program menghitung_diskon;
uses crt;
var n_blmdisk,n_sudahdisk,diskon,potongan : real;
begin
clrscr;
writeln('Mencari nilai Diskon');
write('Harga sebelum di Diskon: Rp. ');
read(n_blmdisk);
write('Harga sesudah di Diskon: Rp. ');
read(n_sudahdisk);
potongan := (n_blmdisk-n_sudahdisk);
writeln('-------------------------');
writeln('Potongan : Rp.',potongan:4:2);
diskon := (potongan/n_blmdisk)*100;
write('Diskon : ',diskon:4:2);write('%');
readln;
readln;
end.