QBasic Programming

Display total surface area and volume of cube

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

Display volume of cube (Prev Lesson)
(Next Lesson) Display simple interest
Back to QBasic Programming

No Comments

Post a Reply

Course Curriculum

error: Content is protected !!