Volumes: Geometry

Date: 198x
Type: Program
Platform(s): TS 1000

Appears on

Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.

Gallery

Volumes: Geometry

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 

People

No people associated with this content.

Scroll to Top