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