WRITE A QBASIC PROGRAM DISPLAY TOTAL SURFACE AREA OF SPHERE.

QBASIC PROGRAM DISPLAY TOTAL SURFACE AREA OF SPHERE.

Solution:

Display the total surface area of the sphere.

REM PROGRAM TO DISPLAY TOTAL SURFACE AREA OF SPHERE.

CLS

INPUT “ENTER RADIUS ”; R

A= 4 * 3.14 * R ^ 2

PRINT “TOTAL SURFACE AREA OF SPHERE “; A

END

TOTAL SURFACE AREA OF SPHERE USING SUB PROCEDURE

DECLARE SUB TSAREA (R)

CLS

INPUT “ENTER RADIUS”; R

CALL TSAREA(R)

END

SUB TSAREA (R)

A= 4 * 3.14 * R ^ 2

PRINT “TOTAL SURFACE AREA OF SPHERE “; A

END SUB

TOTAL SURFACE AREA OF SPHERE USING FUNCTION PROCEDURE

DECLARE FUNCTION TSAREA (R)

CLS

INPUT “ENTER RADIUS”; R

PRINT “TOTAL SURFACE AREA OF SPHERE ”; TSAREA(R)

END

FUNCTION TSAREA (R)

TSAREA = 4 * 3.14 * R ^ 2

END FUNCTION