Program Penjualan

Jun 27, 2009 1 Comment by Sahabat

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.

Kata Kunci

contoh program pascal penjualan, program penjualan pascal, program pascal penjualan.

Pascal
Sahabat

Tentang Penulis

Penulis adalah sahabat-sahabat yg menyumbang tulisan di nusinau.com untuk dimuat dengan bijaksana. Silakan kirim tulisannya ke nusinau[at]gmail[dot]com atau ke admin[at]nusinau[dot]com. Butuh diskusi cepat? colek di twitter @nusinau

One Response to “Program Penjualan”

  1. Lenny says:

    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