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.

Kata Kunci

contoh program pascal penjualan, program penjualan pascal, program pascal penjualan, contoh program pascal kasir, contoh program penjualan pascal, program penjualan, program pascal penjualan barang, Contoh program penjualan pada pascal, program kasir dengan pascal, pascal penjualan.

Related posts:

1. Program Mencari Nilai Mata Uang
2. PERNYATAAN IF DALAM C++
3. ARRAY / LARIK
4. Program Mencari Rata-rata, Nilai Tertinggi dan Terendah
5. Perulangan dengan Repeat Until
6. Menghitung Hambatan
7. Program Data Pegawai
8. Intan Record
9. Program Counter Digital
10. Program Nilai