Listing of file='PRMDSZ.BAS;01' on disk='vmedia/ncc_18-sector.ccvf'
10 REM -PYRAMID SIZE-BY LOU HOFMEISTER, MAR.1981 50 PLOT 12,19,14,9 55 PRINT "MEASURING A REGULAR PYRAMID" 60 PLOT 15,23,2,106,122,242,106,74,255,3,54,11,72 65 PLOT 18,2,86,76,242,106,122,94,60,118,60,106,122,126,76,255 66 PLOT 3,46,7,69 70 PLOT 21,2,86,76,242,94,60,118,60,126,76,255,3,50,15,76,44,78 80 PLOT 22,3,1,3 100 PRINT " GIVE HEIGHT, LENGTH & NUMBER OF SIDES, AND" 105 PRINT "UNIT OF MEASUREMENT. THE COMPUTER WILL THEN" 110 PRINT "CALCULATE SEVERAL OTHER PARAMETERS.":PRINT 115 INPUT "FIRST-ENTER UNITS,FEET,METERS,ETC: ";U$:PRINT 120 PRINT "NEXT-ENTER VALUES.IF HEIGHT OR LENGTH IS" 125 PRINT "UNKNOWN, TYPE 0. GIVE VOLUME PER REQUEST." 130 PRINT "YOU NEED NUMBER OF SIDES. MINUSES IGNORED.":PRINT 135 FOR K= 1TO 300:NEXT K 140 INPUT "TYPE ( N ),THE NUMBER OF SIDES : ";N:PRINT 145 INPUT "TYPE ( L ),THE BASE LENGTH OF A SIDE :";L:PRINT 150 INPUT "TYPE ( H ),THE PYRAMID'S CENTER HEIGHT:";H:PRINT 155 H= ABS (H):L= ABS (L) 160 N= ABS (N):N= INT (N) 162 IF N> = 3THEN 170 164 PRINT "A PYRAMID HAS AT LEAST THREE SIDES." 166 FOR K= 1TO 2000:NEXT K 168 GOTO 50 170 IF H= 0THEN 180 172 IF L= 0THEN 240 175 GOTO 300 180 INPUT "ENTER NUMBER FOR VOLUME: ";V 185 V= ABS (V) 190 A= (.25* N* L^ 2)/ TAN (3.14159/ N) 200 H= 3* V/ A:PRINT "THE HEIGHT ( H ) IS :"H" "U$:GOTO 320 240 INPUT "ENTER NUMBER FOR VOLUME: ";V 245 V= ABS (V) 250 A= 3* V/ H:L= SQR (4* A* TAN (3.14159/ N)/ N) 260 PRINT "THE LENGTH ( L ) OF A SIDE IS :"L" "U$:GOTO 320 300 A= (.25* N* L^ 2)/ TAN (3.14159/ N) 310 V= A* H/ 3:PRINT "THE VOLUME OF THE PYRAMID IS :"V" CUBIC "U$ 320 P= N* L:PRINT "THE PERIMETER OF THE PYRAMID IS: "P" "U$ 330 A= 3* V/ H:PRINT "THE AREA OF THE BASE IS : "A" SQUARE "U$ 340 R= (L/ 2)/ TAN (3.14159/ N):PRINT "THE RADIUS OF A CIRCLE WITHIN THE BASE IS : "R" "U$ 350 Q= (L/ 2)/ SIN (3.14159/ N) 355 PRINT "THE RADIUS OF A CIRCLE OUTSIDE THE BASE IS : "Q" "U$ 360 E= SQR (H^ 2+ Q^ 2):PRINT "THE LENGTH OF EDGE ( E ) OF A SIDE IS : "E" "U$ 370 M= SQR (H^ 2+ R^ 2):PRINT "THE SLOPE HEIGHT OF A SIDE IS : "M" "U$ 380 B= L* M/ 2:PRINT "THE AREA OF A SIDE IS : "B" SQUARE "U$ 390 T= N* B:PRINT "THE TOTAL AREA OF"N" SIDES IS: "T" SQUARE "U$ 400 FOR J= 1TO 400:NEXT J 450 PRINT :PRINT "TYPE 8 TO DO IT AGAIN. TYPE 9 FOR OTHER 'AREAS AND VOLUMES' " 460 INPUT "OR HIT RETURN FOR REGULAR MENU";A$ 470 IF A$= "8"THEN 50 480 IF A$= "9"THEN LOAD "GEOSIZ":RUN 490 LOAD "MENU":RUN