membuat Program Tagihan Rekening Air PDAM menggunakan Qbasic

kodingan skrip nya

CLS

REM daftar rekening air PDAM

INPUT "Nomor Rekening:", NR

INPUT "Nama Pelanggan:", NP$

INPUT "Alamat Rumah:", AR$

INPUT "Kode Konsumen:", KK

INPUT "Besar Pemakaian:", BP

LET T = 1500

tag = T * BP

K = BP - 1000

tagih = BP * T + K

IF BP <= 300 THEN

    PRINT "anda adalah pemakai katagori perumahan dan tagihan anda adalah :"; tag

ELSE IF BP <= 500 THEN

        PRINT "anda adalah pemakai katagori tempat ibadah dan  tagihan anda adalah :"; tag

    ELSE IF BP <= 1000 THEN

            PRINT "anda adalah pemakai katagori badan usaha dan  tagihan anda adalah :"; tag

        ELSE IF BP >= 1000 THEN

                PRINT "anda anda pemakai katagori badan usaha dan telah melebihi limit maksimum Besaran Tagihan dan  tagihan anda adalah :"; tagih

            END IF

        END IF

    END IF

END IF

END