Friday, November 22, 2013

Program Pascal menghitung Harga Agen Barang

Selamat malam sahabat blogger!!! berhubung postingan ini adalah postingan ke-100 saya, kembali lagi saya akan sedikit membagikan sebuah listing program pascal dan softwarenya yang bisa di download di akhir postingan. 

berikut contoh soalnya
1.       Buatlah sebuah program untuk menghitung pembelian sebuah agen barang.
INPUT
-          Kode Wilayah (1.Makassar, 2.Jakarta, 3.Bandung, 4.Surabaya dan 5.Jogja)
-          Kode Agen
-          Nama Agen
-          Nama Barang( Laptop, Router, Switch, PC, Access Point)
-          Harga Barang
-          Jumlah Barang
Syarat :
·         Selain Wilayah dan Nama Barang tidak boleh ada inputan lain

·         Jika Kode agen (A-01 maka Potongan Sebesar 2%)
·         Jika Kode agen (A-02 maka Potongan Sebesar 4%)
·         Jika Kode agen (A-03 maka Potongan Sebesar 6%)
·         Jika Kode agen (A-04 maka Potongan Sebesar 8%)
·         Jika selain kode di atas potongan sebesar 0%

·         Biaya pengiriman gratis apabila pembelian barang lebih dari 100 buah, jika kurang dari 100 buah maka biaya pengiriman sebagai berikut :
MAKASSAR ( biaya pengiriman 1.250 perbarang)
JAKARTA      ( biaya pengiriman 500 perbarang)
BANDUNG  ( biaya pengiriman 750 perbarang)
SURABAYA  ( biaya pengiriman 100 perbarang)

·         Jika Pembelian 1 buah s/d 25 buah maka pajak barang sebesar 10%
·         Jika Pembelian 26 buah s/d 50 buah maka pajak barang sebesar 7,5%
·         Jika Pembelian 51 buah s/d 100 buah maka pajak barang sebesar 5%
·         Jika Pembelian 101 buah keatas maka pajak barang sebesar 2,5%

OUTPUT
-          Kode Wilayah
-          Nama Wilayah
-          Kode Agen
-          Nama Agen
-          Harga Barang
-          Jumlah Barang
-          Potongan
-          Pajak
-          Harga Total Bayar

KET :
Kerja menggunakan Case Of  dan IF Else








download hasil programnya disini






0 komentar

Post a Comment

komentar anda sangat berharga