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
No Comments