program pesan barang

PROGRAM MEMESAN SUATU BARANG

Program ini memakai bahasa pemograman basiq, program ini saya buat untuk kelengkapan tugas akhir mata kuliah algoritma dan pemograman I..bahasa program basic adalah bahasa pemograman tingkat tinggi seperti halnya bahasa program pascal, dll.

dengan menginput nomor pembelian,tanggal,dan kode barang.

ouput/hasilnya memakai tabel.

Berikut gambar hasil program dan kode programnya;

 

CLS

INPUT "MASUKAN NO BELI                         : ", NO

INPUT "MASUKAN TANGGAL                         : ", TGL

INPUT "MASUKAN KODE BARANG[B001/B002/B003/B004]: ", KDB$

INPUT "MASUKAN QTY                             : ", QTY

PRINT ""

IF KDB$ = "B001" THEN

        JENIS$ = "KOMPUTER 1 UNIT"

         H = 4000000

ELSEIF KDB$ = "B002" THEN

        JENIS$ = "LAPTOP"

         H = 5000000

ELSEIF KDB$ = "B003" THEN

        JENIS$ = "TELEVISI"

        H = 1200000

ELSEIF KDB$ = "B004" THEN

        JENIS$ = "CAMERA"

        H = 1500000

END IF

IF QTY > 2 THEN

  D = (QTY * H) * 10 / 100

ELSE

 D = 0

END IF

'HITUNG TOTAL

 TOTAL = H - D * QTY

PRINT "NO BELI :", NO

PRINT "TANGGAL :", TGL

PRINT "___________________________________________|"

PRINT "| KODE BARANG |  JENIS      |  HARGA       |"

PRINT "-------------------------------------------|"

PRINT "|"; KDB$, "|"; JENIS$, "|"; H, ""; "|"

PRINT "___________________________________________|"

PRINT "| QTY         |  DISCOUNT   |  TOTAL BAYAR |"

PRINT "-------------------------------------------|"

PRINT "|"; QTY, "|"; D, "|"; TOTAL, "|"; ""; ""

PRINT "-------------------------------------------|"