REM PROGRAM TO DISPLAY PERIMETER OF SQUARE
CLS
INPUT “ENTER LENGTH”; L
P = 4 * L
PRINT “PERIMETER OF SQUARE ”; P
END
USING SUB PROCEDURE
DECLARE SUB PERIMETER (L)
CLS
INPUT “ENTER LENGTH”; L
CALL PERIMETER (L)
END
SUB PERIMETER (L)
P = 4 * L
PRINT “PERIMETER OF SQUARE”; P
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION PERIMETER (L)
CLS
INPUT “ENTER LENGTH”; L
PR = PERIMETER (L)
PRINT “PERIMETER OF SQUARE ”; PR
END
FUNCTION PERIMETER (L)
P = 4 * L
PERIMETER = P
END FUNCTION
No Comments