Question: Write a QBASIC program to input item, quantity and price of the item, then calculate amount.

Hi there. In this blog, you can get the source codes of the normal program, programing using sub-procedure, and the program using function-procedure, along with the output for the above-mentioned question.

Normal Program

CLS
INPUT "ENTER THE NAME OF THE ITEM"; ITEM_NAME$
INPUT "ENTER THE QUANTITY OF THE ITEM"; QUANTITY
INPUT "ENTER THE PRICE OF THE ITEM"; PRICE
AMOUNT = QUANTITY * PRICE
PRINT ITEM_NAME$, QUANTITY; " * "; PRICE; " = "; AMOUNT
END


SUB Procedure

DECLARE SUB TOTAL_AMOUNT (ITEM_NAME$, QUANTITY, PRICE)
CLS
INPUT "ENTER THE NAME OF THE ITEM"; ITEM_NAME$
INPUT "ENTER THE QUANTITY OF THE ITEM"; QUANTITY
INPUT "ENTER THE PRICE OF THE ITEM"; PRICE
CALL TOTAL_AMOUNT(ITEM_NAME$, QUANTITY, PRICE)
END
SUB TOTAL_AMOUNT (ITEM_NAME$, QUANTITY, PRICE)
AMOUNT = QUANTITY * PRICE
PRINT ITEM_NAME$, QUANTITY; " * "; PRICE; " = "; AMOUNT
END SUB


FUNCTION Procedure

DECLARE FUNCTION TOTAL_AMOUNT(ITEM_NAME$, QUANTITY, PRICE)
CLS
INPUT "ENTER THE NAME OF THE ITEM"; ITEM_NAME$
INPUT "ENTER THE QUANTITY OF THE ITEM"; QUANTITY
INPUT "ENTER THE PRICE OF THE ITEM"; PRICE
PRINT ITEM_NAME$, QUANTITY; " * "; PRICE; " = "; TOTAL_AMOUNT(ITEM_NAME$, QUANTITY, PRICE)
END
FUNCTION TOTAL_AMOUNT (ITEM_NAME$, QUANTITY, PRICE)
SUM = QUANTITY * PRICE
TOTAL_AMOUNT = SUM
END FUNCTION

Output

ENTER THE NAME OF THE ITEM? BALL
ENTER THE QUANTITY OF THE ITEM? 12
ENTER THE PRICE OF THE ITEM? 1200
BALL 12 * 1200 = 14400

#SciPiPupil