29. Qbasic Program to calculate the area and volume of the box.

29.      Write a program to create a procedure using SUB...END SUB to input the value of length, breadth and height of a box. The program should calculate the area and volume of the box.   

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