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