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, program pascal transaksi penjualan, free pascal total pembayaran dari sebuah penjualan agen susu kaleng, Pascal program untk menghitung total pembayaran dari sebuah penjualan, struk pascal harga barang, contoh penjualan menggunakan pascal, cara penulisan vascal dalam soal program untuk mencari total bayar dalam suatu belanja di tokoh, buat program pascal transaksi 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

You must be logged in to post a comment.