REM PROGRAM TO DISPLAY TOTAL SURFACE AREA AND VOLUME OF CUBE
CLS
INPUT “ENTER LENGTH”; L
A= 6 * L ^ 2
V = L ^ 3
PRINT “TOTAL SURFACE AREA OF CUBE “; A
PRINT “VOLUME OF CUBE ”; V
END
USING SUB PROCEDURE
DECLARE SUB TSAREA (L)
DECLARE SUB VOLUME(L)
CLS
INPUT “ENTER LENGTH”; L
CALL TSAREA(L)
CALL VOLUME(L)
END
SUB TSAREA (L)
A= 6 * L ^ 2
PRINT “TOTAL SURFACE AREA OF CUBE “; A
END SUB
SUB VOLUME (L)
V = L ^ 3
PRINT “VOLUME OF CUBE ”; V
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION TSAREA (L)
DECLARE FUNCTION VOLUME (L)
CLS
INPUT “ENTER LENGTH”; L
PRINT “TOTAL SURFACE AREA OF CUBE ”; TSAREA(L)
PRINT “VOLUME OF CUBE ”; VOLUME(L)
END
FUNCTION TSAREA (L)
TSAREA = 6 * L ^ 2
END FUNCTION
FUNCTION VOLUME (L)
VOLUME = L ^ 3
END FUNCTION
No Comments