REM PROGRAM TO DISPLAY TOTAL SURFACE AREA AND VOLUME OF CUBOID
CLS
INPUT “ENTER LENGTH”; L
INPUT “ENTER BREADTH”; B
INPUT “ENTER HEIGHT”; H
A= 2 * (L * B + B * H + H * L)
V = L * B * H
PRINT “TOTAL SURFACE AREA OF CUBOID “; A
PRINT “VOLUME OF CUBOID ”; V
END
USING SUB PROCEDURE
DECLARE SUB TSAREA (L, B, H)
DECLARE SUB VOLUME(L, B, H)
CLS
INPUT “ENTER LENGTH”; L
INPUT “ENTER BREADTH”; B
INPUT “ENTER HEIGHT”; H
CALL TSAREA(L, B, H)
CALL VOLUME(L, B, H)
END
SUB TSAREA (L, B, H)
A= 2 * (L * B + B * H + H * L)
PRINT “TOTAL SURFACE AREA OF CUBOID “; A
END SUB
SUB VOLUME (L, B, H)
V = L * B * H
PRINT “VOLUME OF CUBOID ”; V
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION TSAREA (L, B, H)
DECLARE FUNCTION VOLUME (L, B, H)
CLS
INPUT “ENTER LENGTH”; L
INPUT “ENTER BREADTH”; B
INPUT “ENTER HEIGHT”; H
PRINT “TOTAL SURFACE AREA OF CUBOID ”; TSAREA(L, B, H)
PRINT “VOLUME OF CUBOID ”; VOLUME(L, B, H)
END
FUNCTION TSAREA (L, B, H)
TSAREA = 2 * (L * B + B * H + H * L)
END FUNCTION
FUNCTION VOLUME (L, B, H)
VOLUME = L * B * H
END FUNCTION
No Comments