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, contoh program penjualan pascal, contoh program kasir turbo pascal, contoh pascal penjualan, rumus turbo pascal buat harga barang, flowchart menentukan harga tiket dengan array, cara membuat harga penjualan dengan turbo pascal, contoh program pascal penjualan sederhana.

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