QBasic Programming

Ask quantity of pen, copy and pencil and their rate and find out the total amount

CLS
INPUT “ENTER QUANTITY OF PEN”;QP
INPUT “ENTER RATE OF PEN”; RP
INPUT “ENTER QUANTITY OF COPY”; QC
INPUT “ENTER RATE OF COPY”; RC
INPUT “ENTER QUANTITY OF PENCIL”; QPC
INPUT” ENTER RATE OF PENCIL”; RPC
TA = (QP * RP) + (QC * RC) + (QPC * RPC)
PRINT “TOTAL AMOUNT =”; TA
END
USING SUB PROCEDURE
DECLARE SUB TOTAL ()
COMMON SHARED QP, RP, QC, RC, QPC, RPC
CLS
INPUT “ENTER QUANTITY OF PEN”;QP
INPUT “ENTER RATE OF PEN”; RP
INPUT “ENTER QUANTITY OF COPY”; QC
INPUT “ENTER RATE OF COPY”; RC
INPUT “ENTER QUANTITY OF PENCIL”; QPC
INPUT” ENTER RATE OF PENCIL”; RPC
CALL TOTAL
END
SUB TOTAL
TA = (QP * RP) + (QC * RC) + (QPC * RPC)
PRINT “TOTAL AMOUNT =”; TA
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION TOTAL ()
COMMON SHARED QP, RP, QC, RC, QPC, RPC
CLS
INPUT “ENTER QUANTITY OF PEN”;QP
INPUT “ENTER RATE OF PEN”; RP
INPUT “ENTER QUANTITY OF COPY”; QC
INPUT “ENTER RATE OF COPY”; RC
INPUT “ENTER QUANTITY OF PENCIL”; QPC
INPUT” ENTER RATE OF PENCIL”; RPC
PRINT “TOTAL AMOUNT =”; TOTAL
END
FUNCTION  TOTAL
TA = (QP * RP) + (QC * RC) + (QPC * RPC)
TOTAL = TA
END FUNCTION

Calculate potential energy of body. [PE=MGH where G=9.8] (Prev Lesson)
(Next Lesson) Calculate total saving of a man if he earns Rs. 10,000 per month and spends 20% on food, 15% on children’s education, 10% on entertainment and 20% on rent
Back to QBasic Programming

No Comments

Post a Reply

Course Curriculum

error: Content is protected !!