REM PROGRAM TO CALCULATE NET SALES
CLS
INPUT “ENTER SALES AMOUNT”; A
INPUT “ENTER COMMISSION RATE”; R
C = R / 100 * A
NS = A - C
PRINT “NET SALES=”; NS
END
USING SUB PROCEDURE
DECLARE SUB SALES(A, R)
CLS
INPUT “ENTER SALES AMOUNT”; A
INPUT “ENTER COMMISSION RATE”; R
CALL SALES (A, R)
END
SUB SALES(A, R)
C = R / 100 * A
NS = A - C
PRINT “NET SALES=”; NS : END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION SALES(A, R)
CLS
INPUT “ENTER SALES AMOUNT”; A
INPUT “ENTER COMMISSION RATE”; R
PRINT “NET SALES=”; SALES (A, R)
END
FUNCTION SALES(A, R)
C = R / 100 * A
NS = A - C
SALES = NS
END FUNCTION
No Comments