PROGRAM 17


'  FILENAME:  PROG17.BAS
'  THIS PROGRAM IS A MENU DRIVEN PROGRAM.  IT ALLOWS THE USER TO CALCULATE
'  AND PRINT THE AREA OF A TRIANGLE, CALCULATE AND PRINT THE AREA OF A
'  RECTANGLE, CALCULATE AND PRINT THE AREA OF A CIRCLE, CALCULATE AND
'  PRINT THE VOLUME OF A CUBE, OR QUIT THE PROGRAM.
CLS
DO
        GOSUB PRINTMENU
        LOCATE 13, 1
        INPUT "ENTER A CHOICE FROM THE ABOVE MENU. ", CHOICE$
        SELECT CASE CHOICE$
                CASE IS = "1"
                        CLS
                        GOSUB CALCULATEANDPRINTAREAOFTRIANGLE
                CASE IS = "2"
                        CLS
                        GOSUB CALCULATEANDPRINTAREAOFRECTANGLE
                CASE IS = "3"
                        CLS
                        GOSUB CALCULATEANDPRINTAREAOFCIRCLE
                CASE IS = "4"
                        CLS
                        GOSUB CALCULATEANDPRINTVOLUMEOFCUBE
                CASE IS = "5"
                        CLS
                        END
                CASE ELSE
                        GOSUB PRINTERRORMESSAGE
        END SELECT
        SLEEP 2
        CLS
LOOP UNTIL CHOICE$ = "5"
END
PRINTMENU:
        LOCATE 1, 1
        PRINT "MENU CHOICES"
        LOCATE 3, 1
        PRINT "1.  CALCULATE THE AREA OF A TRIANGLE."
        LOCATE 5, 1
        PRINT "2.  CALCULATE THE AREA OF A RECTANGLE."
        LOCATE 7, 1
        PRINT "3.  CALCULATE THE AREA OF A CIRCLE."
        LOCATE 9, 1
        PRINT "4.  CALCULATE THE VOLUME OF A CUBE."
        LOCATE 11, 1
        PRINT "5.  END THE PROGRAM."
RETURN
CALCULATEANDPRINTAREAOFTRIANGLE:
        LOCATE 1, 1
        INPUT "ENTER THE HEIGHT OF THE TRIANGLE. ", HEIGHT
        LOCATE 3, 1
        INPUT "ENTER THE BASE OF THE TRIANGLE.   ", BSE
        LET AREA = .5 * HEIGHT * BSE
        LOCATE 5, 1
        PRINT "THE AREA OF THE TRIANGLE IS      "; AREA
RETURN
CALCULATEANDPRINTAREAOFRECTANGLE:
        LOCATE 1, 1
        INPUT "ENTER THE LENGTH OF THE RECTANGLE. ", LENGTH
        LOCATE 3, 1
        INPUT "ENTER THE WIDTH OF THE RECTANGLE.  ", WDTH
        LET AREA = LENGTH * WDTH
        LOCATE 5, 1
        PRINT "THE AREA OF THE RECTANGLE IS      "; AREA
RETURN
CALCULATEANDPRINTAREAOFCIRCLE:
        LOCATE 1, 1
        INPUT "ENTER THE RADIUS OF THE CIRCLE. ", RADIUS
        LET AREA = 3.1416 * (RADIUS ^ 2)
        LOCATE 3, 1
        PRINT "THE AREA OF THE CIRCLE IS      "; AREA
RETURN
CALCULATEANDPRINTVOLUMEOFCUBE:
        LOCATE 1, 1
        INPUT "ENTER THE LENGTH OF THE CUBE.   ", LENGTH
        LOCATE 3, 1
        INPUT "ENTER THE WIDTH OF THE CUBE.    ", WDTH
        LOCATE 5, 1
        INPUT "ENTER THE DEPTH OF THE CUBE.    ", DEPTH
        LET VOLUME = LENGTH * WDTH * DEPTH
        LOCATE 7, 1
        PRINT "THE VOLUME OF THE CUBE IS      "; VOLUME
RETURN
PRINTERRORMESSAGE:
        LOCATE 13, 1
        PRINT "ERROR, PLEASE TYPE IN 1, 2, 3, 4 OR 5."
RETURN

'  OUTFILE:  PROG17.OUT

MENU CHOICES

1.  CALCULATE THE AREA OF A TRIANGLE.

2.  CALCULATE THE AREA OF A RECTANGLE.

3.  CALCULATE THE AREA OF A CIRCLE.

4.  CALCULATE THE VOLUME OF A CUBE.

5.  END THE PROGRAM.

ENTER A CHOICE FROM THE ABOVE MENU. 5




BACK TO CIS133 PAGE.