Soal & Solusi Menggunakan QUICK BASIC

KASUS SOAL  < Q Basic > :                                                            

Untuk keperluan pendapatan daerah, ditetapkan bahwa truk pengangkut barang yang menuju ke luar kota harus ditimbang.

Biaya penimbangan Rp.200,-

Pajak per kg berat truk Rp.0,20, minimal dihitung 5 ton berat. Truk yang lebih   dari 5 ton dikenakan tambahan Rp.0,10 per kg kelebihan dan lebih dari 7 ton tambahan Rp.0,20 per kg tambahan.

Buatlah diagram alur yang mencetak laporan truk yang ditimbang, memuat nomor kendaraan, nama truk/perusahaan, berat, serta besarnya biaya.

SOLUSI  < Q Basic> :

# KETERANGAN #

I.                   KETENTUAN

1.      Biaya penimbangan Rp.200,-

2.      Pajak per kg berat truck Rp.0,20

3.      Pajak minimal dihitung 5 ton berat yaitu 5000 kg berat.

(1 ton = 1000 kg)

4.      Bagi muatan truck yang lebih dari :

a.       5 ton dikenakan tambahan                        Rp.0,10

b.      7 ton dikenakan tambahan                        Rp.0,20

II.                VARIABEL YANG DIGUNAKAN

      BP       = biaya penimbangan

      PK       = pajak per kg

      P          = pajak setelah ton diubah menjadi kg

      NK$    = nomor kendaraan

      N$       = nama truck

      B         = berat

      Bi        = biaya

      N         = nomor

# FLOWCHART #

# PROGRAM #

CLS

INPUT "Nomor Kendaraan :"; NK$
INPUT "Nama Truck$ :"; N$

INPUT "Berat :"; B
CLS
PRINT "                                   "; "LAPORAN TRUCK YANG DITIMBANG"
PRINT
PRINT "-----------------------------------------------------------------------------------------------------------"
PRINT "No"; " "; "Nomor Kendaraan", "Nama Truck", “Berat (ton)”, "Biaya"
PRINT "-----------------------------------------------------------------------------------------------------------"
BP = 200
PK = 0.20
P = B * 1000
N = 0

IF B < = 5 THEN
Bi = BP + ( 5000 * PK )
ELSEIF B > 5 AND B < = 7 THEN
Bi = BP + ( P * PK ) + ( P – 5000 ) * 0.10
ELSE
Bi = BP +  (P * PK ) + ( P – 5000 ) * 0.20
N = N + 1
PRINT N; "      "; NK$, , N$, B, Bi
PRINT "-----------------------------------------------------------------------------------------------------------"
END