QBasic Programming

calculate profit percentage

REM PROGRAM TO CALCULATE PROFIT PERCENTAGE
CLS
INPUT “ENTER COST PRICE”; CP
INPUT “ENTER SELLING PRICE”; SP
PP = ((SP – CP) / CP) * 100
PRINT “PROFIT PERCENTAGE=”; PP
END

USING SUB PROCEDURE

DECLARE SUB PROFITP (CP, SP)
CLS
INPUT “ENTER COST PRICE”; CP
INPUT “ENTER SELLING PRICE”; SP
CALL PROFITP(CP, SP)
END

SUB PROFITP (CP, SP)
PP = ((SP – CP) / CP) * 100
PRINT “PROFIT PERCENTAGE=”; PP
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION PROFITP (CP, SP)
CLS
INPUT “ENTER COST PRICE”; CP
INPUT “ENTER SELLING PRICE”; SP
PRINT “PROFIT PERCENTAGE=”; PROFITP(CP, SP)
END

FUNCTION PROFITP(CP, SP)
PP = ((SP – CP) / CP) * 100
PROFIT = PP
END FUNCTION

calculate loss (Prev Lesson)
(Next Lesson) calculate loss percentage
Back to QBasic Programming

No Comments

Post a Reply

Course Curriculum

error: Content is protected !!