NuSinau

Program Penjualan

Program_penjualan ;
uses crt ;
var pembelian,potongan : integer ;
begin
write (‘ total pembelian ‘ ); readln (pembelian);
case pemotongan of
=10000 : potongan := 1000;
=100000 : potongan := 10000;
end;
writeln (‘ jumlah pembelian : ‘ ,pembelian) ;
writeln (‘ potongan : ‘ ,potongan) ;
write ( ‘ jumlah bayar : ‘ ,pembelian – potongan) ;
readln ;
end.

Sahabat

One response to “Program Penjualan”

  1. Maaf mas mau tanya ?
    Untuk membuat progam dengan hasil sebagai berikut, gmn ya mas ?
    Kode Barang : C012
    Nama Barang : Calculator Casio
    Harga /Unit : 150.000
    Jumlah Barang : 1
    Total : Rp 150.000
    Discount : Rp 15.000
    Harus Bayar : Rp. 135.000

    MASIH ADA DATA [Y/T] ?

    Trus jika nilai belanjanya diatas Rp. 100.000,- diberi discout 10% dari nilai belanja dan pengisian data akan berulang bila dijawab “ya” dan berhenti bila dijawab “Tidak”.
    Tolong dijawab ya mas.
    Terimakasih

Leave a Reply