Home > Pascal > Program Penjualan

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.

Bookmark and Share
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. Perhitungan Gaji
  10. Program Counter Digital
Categories: Pascal Tags:
  1. No comments yet.
  1. No trackbacks yet.