REM PROGRAM TO CALCULATE SELLING PRICE WHERE PROFIT PERCENTAGE AND COST PRICE IS GIVEN
CLS
INPUT “ENTER COST PRICE”; CP
INPUT “ENTER PROFIT PERCENTAGE”; PP
SP = CP * (100 + PP) / 100
PRINT “SELLING PRICE=”; SP
END
USING SUB PROCEDURE
DECLARE SUB SELLINGP (CP, PP)
CLS
INPUT “ENTER COST PRICE”; CP
INPUT “ENTER PROFIT PERCENTAGE”; PP
CALL SELLINGP(CP, PP)
END
SUB SELLINGP(CP, PP)
SP = CP * (100 + PP) / 100
PRINT “SELLING PRICE=”; SP
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION SELLINGP (CP, PP)
CLS
INPUT “ENTER COST PRICE”; CP
INPUT “ENTER PROFIT PERCENTAGE”; PP
PRINT “SELLING PRICE=”; SELLINGP(CP, PP)
END
FUNCTION SELLINGP(CP, PP)
SP = CP * (100 + PP) / 100
SELLINGP = SP
END FUNCTION
No Comments