Kode barang
Nama barang
Jenis barang
Harga satuan
Jumlah barang
Jumlah harga
Diskon
Pajak
Total harga
Ketentuan proses:
1.
Kode barang di input terdiri dari B1,B2, dan B3
2.
Nama barang dan harga satuan tentukan sendiri
berdasarkan kode barang :
Jika B1 nama barang= …? harga satuan=…?
Jika B2 nama barang= …? harga
satuan=…?
Jika B3 nama barang= …? harga
satuan=…?
3.
Jenis barang di input terdiri dari LOKAL dan IMPORT
4.
Jumlah barang di input
5.
Jumlah harga = jumlah barang * harga satuan
6.
Diskon diberikan 10% dari jumlah harga jika jumlah
barang >10
7.
Pajak ditentukan dari jenis barang, jika IMPORT
dikenakan pajak 5% dari jumlah harga
8.
Total harga = jumlah harga + pajak – diskon
Listing program nya ==>>>
SET TALK OFF
CLEAR
@02,15 SAY "Penjualan Barang"
@03,15 SAY "================"
KDBRG=SPACE(2)
NMBRG=SPACE(15)
JNSBRG=SPACE(6)
HRGSATUAN=0
JMLBRG=0
DISKON=0
PAJAK=0
TOTHRG=0
@05,10 SAY "Kode Barang [B1/B2/B3] :" GET KDBRG PICT "@!"
@06,10 SAY "Jenis Barang [LOKAL/IMPORT] :" GET JNSBRG PICT "@!"
@07,10 SAY "Jumlah Barang :" GET JMLBRG PICT "9999"
READ
DO CASE
CASE KDBRG="B1"
NMBRG="Baju"
HRGSATUAN=50000
CASE KDBRG="B2"
NMBRG="Topi"
HRGSATUAN=20000
CASE KDBRG="B3"
NMBRG="Celana"
HRGSATUAN=40000
ENDCASE
JMLHRG=JMLBRG*HRGSATUAN
IF JMLBRG>10
DISKON=0.1*JMLHRG
ELSE
DISKON=0
ENDIF
IF JNSBRG="IMPORT"
PAJAK=0.05*JMLHRG
ELSE
PAJAK=0
ENDIF
TOTHRG=JMLHRG+PAJAK-DISKON
@08,10 SAY "Nama Barang :" GET NMBRG PICT "@!"
@09,10 SAY "Harga Satuan :" GET HRGSATUAN PICT "9999999"
@10,10 SAY "Jumlah Harga :" GET JMLHRG PICT "9999999"
@11,10 SAY "DISKON :" GET DISKON PICT "9999999"
@12,10 SAY "PAJAK :" GET PAJAK PICT "9999999"
@13,10 SAY "Total Harga :" GET TOTHRG PICT "9999999"
READ
CLEAR
@02,15 SAY "Penjualan Barang"
@03,15 SAY "================"
KDBRG=SPACE(2)
NMBRG=SPACE(15)
JNSBRG=SPACE(6)
HRGSATUAN=0
JMLBRG=0
DISKON=0
PAJAK=0
TOTHRG=0
@05,10 SAY "Kode Barang [B1/B2/B3] :" GET KDBRG PICT "@!"
@06,10 SAY "Jenis Barang [LOKAL/IMPORT] :" GET JNSBRG PICT "@!"
@07,10 SAY "Jumlah Barang :" GET JMLBRG PICT "9999"
READ
DO CASE
CASE KDBRG="B1"
NMBRG="Baju"
HRGSATUAN=50000
CASE KDBRG="B2"
NMBRG="Topi"
HRGSATUAN=20000
CASE KDBRG="B3"
NMBRG="Celana"
HRGSATUAN=40000
ENDCASE
JMLHRG=JMLBRG*HRGSATUAN
IF JMLBRG>10
DISKON=0.1*JMLHRG
ELSE
DISKON=0
ENDIF
IF JNSBRG="IMPORT"
PAJAK=0.05*JMLHRG
ELSE
PAJAK=0
ENDIF
TOTHRG=JMLHRG+PAJAK-DISKON
@08,10 SAY "Nama Barang :" GET NMBRG PICT "@!"
@09,10 SAY "Harga Satuan :" GET HRGSATUAN PICT "9999999"
@10,10 SAY "Jumlah Harga :" GET JMLHRG PICT "9999999"
@11,10 SAY "DISKON :" GET DISKON PICT "9999999"
@12,10 SAY "PAJAK :" GET PAJAK PICT "9999999"
@13,10 SAY "Total Harga :" GET TOTHRG PICT "9999999"
READ