Area – Geometry

Gallery

Source Code

   5 PRINT "%A%R%E%A%S"
  10 REM AREAS
  15 PRINT 
 100 PRINT "ENTER SHAPE?(CIRCLE,SPHERE,PARABOLA,TRIANGLE,SQUARE,RECTANGLE,ELLIPSE)"
 110 INPUT X$
 120 CLS 
 130 PRINT X$
 140 IF X$="CIRCLE" OR X$="SPHERE" THEN GOTO 200
 150 IF X$="PARABOLA" OR X$="TRIANGLE" THEN GOTO 300
 160 IF X$="SQUARE" OR X$="RECTANGLE" THEN GOTO 400
 170 IF X$="ELLIPSE" THEN GOTO 500
 180 GOTO 100
 200 PRINT "RADIUS ";
 210 INPUT R
 220 PRINT R
 230 LET A=PI*(R**2)
 240 IF X$(1)="S" THEN LET A=4*A
 250 GOTO 600
 300 PRINT "BASE ";
 310 INPUT B
 320 PRINT B
 330 PRINT "HEIGHT ";
 340 INPUT H
 350 PRINT H
 360 IF X$(1)="P" THEN LET A=B*H*2/3
 370 IF X$(1)="T" THEN LET A=B*H*.5
 380 GOTO 600
 400 PRINT "WIDTH ";
 410 INPUT W
 420 PRINT W
 430 PRINT "LENGTH ";
 440 INPUT L
 450 PRINT L
 460 LET A=L*W
 470 GOTO 600
 500 PRINT "MAJOR AXIS ";
 510 INPUT J
 520 PRINT J
 530 PRINT "MINOR AXIS ";
 540 INPUT N
 550 PRINT N
 560 LET A=.7854*J*N
 600 PRINT "AREA ";A
 620 GOTO 100
 700 SAVE "1005%5"
 800 RUN