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, flowchart menentukan harga tiket dengan array, cara membuat harga penjualan dengan turbo pascal, contoh program kasir turbo pascal, contoh flowchart potongan harga, contoh program pascal total harga dan potongan, contoh program turbo pascal harga penjualan berdiskon, contoh programpenjualan menggunakan flowchart.

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