# QBASIC, Computers question 2

posted by on .

Why do I keep getting a Type Mismatch error on this line? Also, when i click "View" to view my output screen its blank, so nothing is printing.... can so please help me resolve this?

PRINT USING D\$; NAM\$; VehicleType\$; DaysHeld; Miles; Charge

My Code:

'************************************
'* THIS PROGRAM IS TO CALCULATE CAR RENTAL REVENUE GENERATED *
'*************************************
'VARIABLE USED:
'T1\$, H1\$, H2\$, D1\$
'NAM\$ Customer Name
'VehicleType\$ Vehicle Type
'MILAGE Miles Traveled
'RATE Vehicle Rate
'DaysHeld Days Held
'TOTAL Total Revenue Generated Per Account
'Charge Charge for the car rental

'*************************************
'* PROGRAM MAINLINE *
'*************************************
CLS
GOSUB InitializeVariables
GOSUB CalculateTotal
END

'*************************************
'* INITILIZE VARIABLES *
'*************************************

InitializeVariables:
LET T\$ = " CAR RENTAL "
LET H\$ = " Customer Vehicle Days Miles Total Cost"
LET H\$ = " Name Type Held Traveled For Rental"
LET D\$ = "/ / ## #### ######"

'*************************************
'* PRINT HEADINGS *
'*************************************
PRINT
PRINT T1\$ 'Print Title Line
PRINT
PRINT H1\$ 'Print Column Heading, Line 1
PRINT H2\$ 'Print Column Heading, Line 2
PRINT
RETURN

' ********************************
' Calculate Total
' ********************************

CalculateTotal:
DO UNTIL NAM\$ = "END"
IF VehicleType\$ = "Compact" THEN
LET Cost = 10
LET Rate = .15
ELSEIF VehicleType\$ = "Intermediate" THEN
LET Cost = 20
LET Rate = .18
ELSE
LET Cost = 30
LET Rate = .22
END IF
LET Charge = Cost * DaysHeld + Rate * Miles
PRINT USING D\$; NAM\$; VehicleType\$; DaysHeld; Miles; Charge
LOOP
RETURN

'*************************************
'* READ DATA *
'*************************************

READ NAM\$, VehicleType\$, DaysHeld, MilesTraveled
DATA "Jones","Large",6,500
DATA "Smith","Compact",17,3000
DATA "Baker","Intermediate",8,250
DATA "Williams","Intermediate",4,1000
DATA "Winston","Large",3,500
DATA "END"
RETURN

'*************************************
'* END OF PROGRAM *
'*************************************

### Answer This Question

 First Name: School Subject: Answer:

### Related Questions

More Related Questions

Post a New Question