Appears on
Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.
Source Code
1 REM **VOLUMES** 10 CLEAR 20 PRINT "VOLUMES" 30 PRINT 100 PRINT "OBJECT(CONE,PYRAMID,PRISM,CUBE,CYLINDER,SPHERE): "; 110 INPUT X$ 120 PRINT X$ 130 IF X$="CONE" OR X$="PYRAMID" OR X$="PRISM" THEN GOTO 200 140 IF X$="CUBE" THEN GOTO 300 150 IF X$="CYLINDER" THEN GOTO 400 160 IF X$="SPHERE" THEN GOTO 500 170 GOTO 100 200 PRINT "AREA: "; 210 INPUT A 220 PRINT A 230 PRINT "HEIGHT: "; 240 INPUT H 250 PRINT H 260 LET V=A*H 270 IF X$="CONE" OR X$="PYRAMID" THEN LET V=V/3 280 GOTO 600 300 PRINT "LENGTH: "; 305 INPUT L 310 PRINT L 315 PRINT "WIDTH: "; 320 INPUT W 325 PRINT W 330 PRINT "HEIGHT: "; 335 INPUT H 340 PRINT H 345 LET V=L*W*H 350 GOTO 600 400 PRINT "RADIUS: "; 410 INPUT R 420 PRINT R 430 PRINT "HEIGHT: "; 440 INPUT H 450 PRINT H 460 LET V=2*PI*R*H 470 GOTO 600 500 PRINT "RADIUS: "; 510 INPUT R 520 PRINT R 530 LET V=(4*PI*(R**3))/3 600 PRINT "VOLUME: ";V 610 PRINT 620 PRINT 630 PRINT "PRESS ANY KEY TO CONTINUE" 640 IF INKEY$="" THEN GOTO 640 650 CLS 660 GOTO 10 700 SAVE "1006%4" 800 RUN