QBASIC PROGRAM TO CALCULATE TOTAL SURFACE AREA AND VOLUME OF A CUBE

WAP TO CALCULATE TOTAL SURFACE AREA / TSA AND VOLUME OF A 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

DECLARE SUB TSAV(L)
 CLS
 INPUT “ENTER LENGTH”; L
 CALL TSAV(L)
 END
 
 SUB TSAV(L)
 A= 6 * L ^ 2
 V = L ^ 3
 PRINT “TOTAL SURFACE AREA OF CUBE “; A
 PRINT “VOLUME OF CUBE ”; V
 END SUB