1000 ! PROGRAM TO COMPUTE SURFACE AREA, VOLUME OR GEOMETRIC SHAPES 1010 ! BY BRYAN JONES 1020 ! CSUC MAY 20,1977 1060 ?:?:?:G=0 !COSMETIC SPACING 1070 INPUT "DO YOU NEED INSTRUCTIONS";A$ 1080 IF A$="YES" OR A$="Y" THEN 1110 !GIVE INSTRUCTIONS 1090 IF A$="NO" OR A$="N" THEN 1300 !GOTO PROGRAM 1100 ?"PLEASE ANSWER YES OR NO.":?:GOTO 1070 1110 ?" THIS PROGRAM WILL GIVE YOU THE AREA OF A TWO-DIMENSIONAL" 1120 ?"GEOMETRIC SHAPE AND WILL ALSO GIVE YOU THE SURFACE AREA AND" 1130 ?"VOLUME OF A THREE-DIMENSIONAL GEOMETRIC SHAPE. THE GEOMETRIC " 1140 ?"SHAPES WHICH I CAN GIVE YOU THIS INFORMATION ON ARE:" 1150 ? 1160 ?" SQUARE (SQ) CUBE (CB)" 1170 ?" RECTANGLE (REC) RECTANGULAR BOX (RBOX)" 1180 ?" TRIANGLE (TR) REGULAR PYRAMID (RP)" 1190 ?" CIRCLE (CIR) SPHERE (SPH)" 1200 ?" RT. CIRCULAR CONE (CONE) RT. CIRCULAR CYLINDER (CYL)" 1220 ?:IF G=1 THEN 1300 1230 ?" WHEN SPECIFYING WHICH SHAPE YOU WANT PLEASE USE THE ABBREVIATIONS" 1240 ?"GIVEN IN THE PARENTHESES. WHEN I ASK YOU FOR THE DIMENSIONS " 1250 ?"PLEASE JUST GIVE THE MAGNITUDE AND NOT THE UNITS. I WILL GIVE" 1260 ?"YOU THE ANSWER IN UNITS." 1270 ?" THANK YOU" 1300 ?:?:?:PI=3.1415926535 1310 INPUT "WHAT SHAPE DO YOU WANT INFORMATION ON ";A$ 1320 IF A$ = "SQ" GOTO 1500 ! GOTO SQUARE ROUTINE 1330 IF A$ = "CB" GOTO 1600 ! GOTO CUBE ROUTINE 1340 IF A$ = "REC" GOTO 1700 ! GOTO RECTANGLE ROUTINE 1350 IF A$ = "RBOX" GOTO 1800 ! GOTO BOX ROUTINE 1360 IF A$ = "TR" GOTO 1900 ! GOTO TRIANGLE ROUTINE 1370 IF A$ = "RP" GOTO 2000 ! GOTO PYRAMID ROUTINE 1380 IF A$ = "CIR" GOTO 2100 ! GOTO CIRCLE ROUTINE 1390 IF A$ = "SPH" GOTO 2300 ! GOTO SPHERE ROUTINE 1400 IF A$ = "CONE" GOTO 2500 ! GOTO CONE ROUTINE 1410 IF A$ = "CYL" GOTO 2700 ! GOTO CYLINDER ROUTINE 1420 ?:?"I DO NOT RECOGNIZE YOU REQUEST. PLEASE TRY AGAIN." 1430 ?:GOTO 1310 ! RE-ASKS THE QUESTION 1490 ! ----------------SQUARE---------------------------- 1500 ?:INPUT"WHAT IS THE LENGTH OF ONE SIDE ";K 1505 INPUT "IN WHAT UNITS ARE YOU WORKING ";U$ 1510 A=X**2 ! AREA FORMULA 1520 ?:? "THE AREA IS ";A;" SQUARE ";U$ 1540 GOTO 2900 ! ANOTHER PROBLEM 1590 !----------------CUBE-------------------------------- 1600 ?:INPUT "WHAT IS THE LENGTH OF ONE SIDE";X 1605 INPUT "IN WHAT UNITS ARE YOU WORKING ";U$ 1610 S=6*X**2 ! SURFACE AREA FORMULA 1620 V=X**3 ! VOLUME FORMULA 1630 ?:?"THE SURFACE ARE IS ";S;" SQUARE ";U$ 1640 ?"THE VOLUME IS ";V;" CUBIC ";U$ 1650 GOTO 2900 ! ANOTHER PROBLEM 1690 !------------------RECTANGLE------------------------- 1700 ?:INPUT "WHAT IS THE LENGTH OF SIDE ONE ";X 1710 INPUT "WHAT IS THE LENGTH OF SIDE TWO ";Y 1715 INPUT "IN WHAT UNITS ARE YOU WORKING ";U$ 1720 A = X*Y !AREA FORMULA 1730 ?:?"THE ARE IS ";A;" SQUARE ";U$ 1740 GOTO 2900 !ANOTHER PROBLEM 1790 !------------------BOX-------------------------------- 1800 ?:INPUT "WHAT IS THE LENGTH OF THE BOX ";X 1810 INPUT "WHAT IS THE WIDTH OF THE BOX ";Y 1820 INPUT "WHAT IS THE HEIGHT OF THE BOX ";Z 1825 INPUT "IN WHAT UNITS ARE YOU WORKING ";U$ 1830 S=(X*Y+X*Z+Y*Z)*2 ! SURFACE ARE FORMULA 1840 V=X*Y*Z ! VOLUME FORMULA 1850 ?:?"THE SURFACE AREA IS ";S;" SQUARE ";U$ 1860 ?"THE VOLUME IS ";V;" CUBIC ";U$ 1870 GOTO 2900 ! ANOTHER PROBLEM 1890 !-----------------TRIANGLE---------------------------- 1900 ?:INPUT "WHAT IS THE LENGTH OF THE BASE ";B 1910 INPUT "WHAT IS THE HEIGHT ";H 1920 INPUT "IN WHAT UNITS ARE YOU WORKING ";U$ 1930 A=B*H/2 ! AREA FORMULA 1940 ?:?"THE AREA IS ";A;" SQUARE ";U$ 1950 GOTO 2900 ! ANOTHER PROBLEM 1990 !------------------PYRAMID--------------------------- 2000 ?:INPUT "WHAT IS THE LENGTH OF ONE SIDE OF THE BASE ";X 2010 INPUT "WHAT IS THE HEIGHT ";H 2020 INPUT "IN WHAT UNITS ARE YOU WORKING ";U$ 2030 S=X*(4*H^2+X^2)^.5+X*X ! SURFACE AREA FORMULA 2040 V=X*X*H/3 ! VOLUME FORMULA 2050 ?:?"THE SURFACE AREA IS ";S;" SQUARE "U$ 2060 ?"THE VOLUME IS ";V;" CUBIC ";U$ 2070 GOTO 2900 ! ANOTHER PROBLEM 2090 !-----------------CIRCLE----------------------------- 2100 ?:?"DO YOU HAVE : (1) THE DIAMETER " 2110 ?" (2) THE RADIUS " 2120 INPUT" (3) THE CIRCUMFERENCE ";E 2130 IF E=1 THEN 2190 ! USE DIAMETER FOR CALC. 2140 IF E=2 THEN 2210 ! USE RADIUS FOR CALC. 2150 IF E<> 3 THEN 2290 ! ERROR ROUTINE 2170 ?:?"WHAT IS THE CIRCUMFERENCE ";C 2175 INPUT "IN WHAT UNITS ARE YOU WORKING ";U$ 2180 R=C/(2*PI):GOTO 2220 ! RADIUS FORMULA 2190 ?:INPUT"WHAT IS THE DIAMETER ";D 2195 INPUT"IN WHAT UNITS ARE YOU WORKING ";U$ 2200 R=D/2:GOTO 2220 ! RADIUS FORMULA 2210 ?:INPUT"WHAT IS THE RADIUS ";R 2215 INPUT"IN WHAT UNITS ARE YOU WORKING ";U$ 2220 A=PI*R^2 ! AREA FORMULA 2230 ?:? "THE ARE IS ";A;" SQUARE ";U$ 2240 GOTO 2900 ! ANOTHER PROBLEM 2290 ?"PLEASE ENTER THE NUMBER 1, 2, OR 3":?:GOTO 2100 2295 !--------------------SPHERE------------------------- 2300 ?:?"DO YOU HAVE (1) THE DIAMETER " 2310 ?" (2) THE RADIUS " 2320 INPUT" (3) THE CIRCUMFERENCE ";E 2340 IF E=1 THEN 2390 ! USE DIAMETER FOR CALC. 2350 IF E=2 THEN 2410 ! USE RADIUS FOR CALC. 2360 IF E<>3 THEN 2490 ! ERROR ROUTINE 2370 ?:INPUT "WHAT IS THE CIRCUMFERENCE ";C 2375 INPUT "IN WHAT UNITS ARE YOU WORKING ";U$ 2380 R=C/(2*PI) : GOTO 2420 ! RADIUS FORMULA 2390 ?:INPUT"WHAT IS THE DIAMETER ";D 2395 INPUT "IN WHAT UNITS ARE YOU WORKING ";U$ 2400 R=D/2 :GOTO 2420 ! RADIUS FORMULA 2410 ?:INPUT"WHAT IS THE RADIUS ";R 2415 INPUT "IN WHAT UNITS ARE YOU WORKING ";U$ 2420 S=4*PI*R^2 ! SURFACE AREA FORMULA 2430 V=(R^3)*PI*4/3 ! VOLUME FORMULA 2440 ?:?"THE SURFACE AREA IS ";S;" SQUARE ";U$ 2450 ?"THE VOLUME IS ";V;" CUBIC ";U$ 2460 GOTO 2900 ! ANOTHER PROBLEM 2490 ?"PLEASE ENTER THE NUMBER 1, 2, OR 3":?:GOTO 2300 2495 !-----------------CONE----------------------------- 2500 ?:?"DO YOU HAVE (1) THE DIAMETER OF THE BASE " 2510 ?" (2) THE RADIUS OF THE BASE " 2520 INPUT" (3) THE CIRCUMFERENCE OF THE BASE ";E 2540 IF E=1 THEN 2590 ! USE DIAMETER FOR CALC. 2550 IF E=2 THEN 2610 ! USE RADIUS FOR CALC. 2560 IF E<>3 THEN 2690 ! ERROR ROUTINE 2570 ?:INPUT"WHAT IS THE CIRCUMFERENCE ";C 2580 R=C/(2*PI):GOTO 2615 ! RADIUS FORMULA 2590 ?:INPUT"WHAT IS THE DIAMETER ";D 2600 R=D/2:GOTO 2615 ! RADIUS FORMULA 2610 ?:INPUT"WHAT IS THE RADIUS ";R 2615 INPUT"WHAT IS THE HEIGHT OF THE CONE ";H 2617 INPUT "IN WHAT UNITS ARE YOU WORKING ";U$ 2620 S=PI*R*(H^2+R^2)^.5 ! SURFACE AREA FORMULA 2630 V=PI*H*(R^2)/3 ! VOLUME FORMULA 2640 ?:?"THE SURFACE AREA IS ";S;" SQUARE ";U$ 2650 ?"THE VOLUME IS ";V;" CUBIC ";U$ 2660 GOTO 2900 ! ANOTHER PROBLEM 2690 ?"PLEASE ENTER THE NUMBER 1, 2, OR 3":GOTO 2500 2695 !-------------------CYLINDER---------------------- 2700 ?:?"DO YOU HAVE (1) THE DIAMETER OF THE BASE" 2710 ?" (2) THE RADIUS OF THE BASE " 2720 INPUT" (3) THE CIRCUMFERENCE OF THE BASE ";E 2740 IF E=1 THEN 2790 ! USE DIAMETER FOR CALC. 2750 IF E=2 THEN 2810 ! USE RADIUS FOR CALC. 2760 IF E<>3 THEN 2890 ! ERROR ROUTINE 2770 ?:INPUT "WHAT IS THE CIRCUMFERENCE ";C 2780 R=C/(2*PI):GOTO 2815 ! RADIUS FORMULA 2790 ?:INPUT"WHAT IS THE DIAMETER ";D 2800 R=D/2:GOTO 2815 ! RADIUS FORMULA 2810 ?:INPUT"WHAT IS THE RADIUS ";R 2815 INPUT "WHAT IS THE HEIGHT OF THE CYLINDER ";H 2817 INPUT "IN WHAT UNITS ARE YOU WORKING ";U$ 2820 S=2*PI*R*(H+R) ! SURFACE AREA FORMULA 2830 V=PI*H*R^2 ! VOLUME FORMULA 2840 ?:?"THE SURFACE AREA IS ";S;" SQUARE ";U$ 2850 ?"THE VOLUME IS ";V;" CUBIC ";U$ 2860 GOTO 2900 ! ANOTHER PROBLEM 2890 ?"PLEASE ENTER THE NUMBER 1, 2, OR 3":GOTO 2700 2900 ?:?:INPUT"DO YOU HAVE ANOTHER PROBLEM TO SOLVE ";A$ 2910 IF A$="NO" OR A$="N" THEN 3000 2920 G=1 2930 IF A$="YES" OR A$="Y" THEN 1150 2940 ?"PLEASE ANSWER YES OR NO":GOTO 2900 3000 ?"BYE FOR NOW":END