home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / GEOSOLVE (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  10.6 KB  |  426 lines

  1. 1 GOTO99
  2. 14 V=(4*(null)*(R^3))/3:RETURN
  3. 16 R=((3*V)/(4*(null)))^(1/3):RETURN
  4. 18 A=4*(null)*R*R:RETURN
  5. 20 R=SQR(A/(4*(null))):RETURN
  6. 22 PRINT"X-Y COORDINATES OF VERTICES ? Y OR N[146]"
  7. 23 GETA$:IFA$<>"Y"ANDA$<>"N"THEN23
  8. 24 RETURN
  9. 25 PRINT"ANOTHER PROBLEM ? Y OR N[146]"
  10. 26 GETA$:IFA$<>"Y"ANDA$<>"N"THEN26
  11. 27 RETURN
  12. 30 AN=(null)*(N-2)/N:RETURN
  13. 32 S=2*R*(COS(AN/2)):RETURN
  14. 34 R=S/(2*(COS(AN/2))):RETURN
  15. 36 D=R*(SIN(AN/2)):RETURN
  16. 37 R=SQR((2*A)/(N*(SIN(AN)))):RETURN
  17. 38 A=N*R*R*(SIN(AN))/2:RETURN
  18. 39 R=D/(SIN(AN/2)):RETURN
  19. 40 S1=H*(SIN(AA)):RETURN
  20. 42 S2=H*(COS(AA)):RETURN
  21. 44 AB=((null)/2)-AA:RETURN
  22. 46 S2=SQR((H*H)-(S1*S1)):RETURN
  23. 48 AA=ATN(S1/S2):RETURN
  24. 50 H=SQR((S1*S1)+(S2*S2)):RETURN
  25. 52 H=S1/SIN(AA):RETURN
  26. 54 P=S1+S2+H:RETURN
  27. 56 A=(S1*S2)/2:RETURN
  28. 60 A=(null)*R*R:RETURN
  29. 62 R=SQR(A/(null)):RETURN
  30. 64 C=2*R*(null):RETURN
  31. 66 R=C/(2*(null)):RETURN
  32. 68 A=S1*S2:RETURN
  33. 70 S2=A/S1:RETURN
  34. 72 S1=(X2-X1):S2=(Y2-Y1):GOSUB50:RETURN
  35. 74 AA=ATN((Y2-Y1)/(X2-X1)):RETURN
  36. 76 X2=(SIN(AA)*H)+X1:RETURN
  37. 78 Y2=(SIN(AA)*H)+Y1:RETURN
  38. 80 V=S1^3:RETURN
  39. 82 S1=V^(1/3):RETURN
  40. 84 SA=6*S1*S1:RETURN
  41. 86 LD=S1*(SQR(3)):RETURN
  42. 88 SD=S1*(SQR(2)):RETURN
  43. 90 V=(null)*R*R*H:RETURN
  44. 92 H=V/((null)*R*R):RETURN
  45. 94 R=SQR(V/((null)*H)):RETURN
  46. 96 S=(null)*D*H:RETURN
  47. 98 A=2*(null)*R*(R+H):RETURN
  48. 99 L$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  49. 100 POKE53281,3:POKE53280,3:PRINT"[147][144]";
  50. 110 PRINT TAB(8);"[164][164][164][164][164][164][164][164]"
  51. 120 PRINT TAB(8);"GEOSOLVE[146]   BY D. CROOK"
  52. 200 PRINT" SELECT THE TYPE OF PROBLEM FROM BELOW:":PRINTL$
  53. 210 PRINT"1 - REGULAR POLYGON":PRINT"2 - RIGHT TRIANGLE"
  54. 220 PRINT"3 - CIRCLE":PRINT"4 - RECTANGLE"
  55. 230 PRINT"5 - TWO POINTS IN A PLANE":PRINT"6 - CUBE"
  56. 240 PRINT"7 - CYLINDER":PRINT"8 - SPHERE":PRINT"9 - END PROGRAM"
  57. 300 GETZ$:IFZ$=""THEN300
  58. 310 Z=VAL(Z$):IFZ=9THENEND
  59. 320 ONZGOSUB1110,400,860,1910,2275,2440,2700,3200
  60. 330 RUN
  61. 400 PRINT"[147]"SPC(12)"RIGHT TRIANGLES":PRINTL$
  62. 410 PRINT"ENTER KNOWN QUANTITIES FROM BELOW:"
  63. 420 PRINT"1 - HYPOTENUSE/ANGLE":PRINT"2 - SIDE/ANGLE"
  64. 430 PRINT"3 - HYPOTENUSE/SIDE":PRINT"4 - TWO SIDES"
  65. 440 GETZ$:IFZ$=""THEN440
  66. 450 Z=VAL(Z$):ONZGOSUB460,560,660,760
  67. 455 RETURN
  68. 460 PRINT"[147]SOLUTION OF RIGHT TRIANGLES":PRINTL$
  69. 470 PRINT"ENTER LENGTH OF HYPOTENUSE";:INPUTH
  70. 480 PRINT"ENTER ANGLE";:INPUTAA:AA=AA*(null)/180
  71. 490 GOSUB40:GOSUB42:GOSUB44:GOSUB54:GOSUB56
  72. 500 PRINT"LENGTH OF SIDE 1 ="S1
  73. 510 PRINT"LENGTH OF SIDE 2 ="S2
  74. 520 PRINT"           ANGLE ="AB*180/(null)
  75. 530 PRINT"            AREA ="A
  76. 540 PRINT"       PERIMETER ="P
  77. 545 GOSUB25
  78. 550 IFA$="Y"THEN460
  79. 555 RETURN
  80. 560 PRINT"[147]SOLUTION OF RIGHT TRIANGLES":PRINTL$
  81. 570 PRINT"ENTER LENGTH OF ONE SIDE";:INPUTS1
  82. 580 PRINT"ENTER ANGLE";:INPUTAA:AA=AA*(null)/180
  83. 590 GOSUB52:GOSUB46:GOSUB44:GOSUB54:GOSUB56
  84. 600 PRINT"LENGTH OF HYPOTENUSE ="H
  85. 610 PRINT"    LENGTH OF SIDE 2 ="S2
  86. 620 PRINT"               ANGLE ="AB*180/(null)
  87. 630 PRINT"                AREA ="A
  88. 640 PRINT"           PERIMETER ="P
  89. 645 GOSUB25
  90. 650 IFA$="Y"THEN560
  91. 655 RETURN
  92. 660 PRINT"[147]SOLUTION OF RIGHT TRIANGLES":PRINTL$
  93. 670 PRINT"ENTER LENGTH OF HYPOTENUSE";:INPUTH
  94. 680 PRINT"ENTER LENGTH OF SIDE";:INPUTS1
  95. 690 GOSUB46:GOSUB48:GOSUB44:GOSUB54:GOSUB56
  96. 700 PRINT"LENGTH OF SIDE 2 ="S2
  97. 710 PRINT"         ANGLE 1 ="AA*180/(null)
  98. 720 PRINT"         ANGLE 2 ="AB*180/(null)
  99. 730 PRINT"            AREA ="A
  100. 740 PRINT"       PERIMETER ="P
  101. 745 GOSUB25
  102. 750 IFA$="Y"THEN660
  103. 755 RETURN
  104. 760 PRINT"[147]SOLUTION OF RIGHT TRIANGLES":PRINTL$
  105. 770 PRINT"ENTER LENGTH OF SIDE 1";:INPUTS1
  106. 780 PRINT"ENTER LENGTH OF SIDE 2";:INPUTS2
  107. 790 GOSUB50:GOSUB48:GOSUB44:GOSUB54:GOSUB56
  108. 800 PRINT"LENGTH OF HYPOTENUSE ="H
  109. 810 PRINT"             ANGLE 1 ="AA*180/(null)
  110. 820 PRINT"             ANGLE 2 ="AB*180/(null)
  111. 830 PRINT"                AREA ="A
  112. 840 PRINT"           PERIMETER ="P
  113. 845 GOSUB25
  114. 850 IFA$="Y"THEN760
  115. 855 RETURN
  116. 860 PRINT"[147]"SPC(15)"CIRCLES":PRINTL$:PRINT"SELECT KNOWN QUANTITY FROM BELOW:"
  117. 865 PRINT"1 - RADIUS":PRINT"2 - DIAMETER"
  118. 870 PRINT"3 - CIRCUMFERENCE":PRINT"4 - AREA"
  119. 875 GETZ$:IFZ$=""THEN875
  120. 880 Z=VAL(Z$):ONZGOSUB885,930,975,1020
  121. 882 RETURN
  122. 885 PRINT"[147]"SPC(15)"CIRCLES":PRINTL$:PRINT"ENTER RADIUS";:INPUTR:D=2*R
  123. 890 GOSUB60:GOSUB64
  124. 895 PRINT"     DIAMETER ="D
  125. 900 PRINT"CIRCUMFERENCE ="C
  126. 910 PRINT"         AREA ="A
  127. 920 GOSUB25
  128. 925 IFA$="Y"THEN885
  129. 926 RETURN
  130. 930 PRINT"[147]"SPC(15)"CIRCLES":PRINTL$:PRINT"ENTER DIAMETER";:INPUTD:R=D/2
  131. 935 GOSUB60:GOSUB64
  132. 940 PRINT"       RADIUS ="R
  133. 945 PRINT"CIRCUMFERENCE ="C
  134. 950 PRINT"         AREA ="A
  135. 955 GOSUB25
  136. 960 IFA$="Y"THEN930
  137. 965 RETURN
  138. 975 PRINT"[147]"SPC(15)"CIRCLES":PRINTL$:PRINT"ENTER CIRCUMFERENCE";:INPUTC
  139. 980 GOSUB66:GOSUB60
  140. 985 PRINT"       RADIUS ="R
  141. 990 PRINT"     DIAMETER ="R+R
  142. 1000 PRINT"        AREA ="A
  143. 1005 GOSUB25
  144. 1010 IFA$="Y"THEN975
  145. 1015 RETURN
  146. 1020 PRINT"[147]"SPC(15)"CIRCLES":PRINTL$:PRINT"ENTER AREA";:INPUTA
  147. 1025 GOSUB62:GOSUB64
  148. 1030 PRINT"       RADIUS ="R
  149. 1035 PRINT"     DIAMETER ="R+R
  150. 1040 PRINT"CIRCUMFERENCE ="C
  151. 1045 GOSUB25
  152. 1050 IFA$="Y"THEN1020
  153. 1065 RETURN
  154. 1110 PRINT"[147]"SPC(12)"REGULAR POLYGONS":PRINTL$
  155. 1120 PRINT"ENTER THE NUMBER OF SIDES";:INPUTN:PRINT:IFN<3THEN1110
  156. 1130 PRINT"ENTER THE KNOWN QUANTITY FROM BELOW":PRINT
  157. 1140 PRINT"1 - LENGTH OF SIDE":PRINT"2 - MINOR RADIUS"
  158. 1145 PRINT"3 - MAJOR RADIUS":PRINT"4 - AREA"
  159. 1150 GETZ$:IFZ$=""THEN1150
  160. 1155 Z=VAL(Z$):IFZ=9THENEND
  161. 1160 ONZGOSUB1200,1300,1400,1500
  162. 1170 RETURN
  163. 1200 PRINT"[147]REGULAR POLYGON WITH"N"SIDES":PRINTL$
  164. 1210 PRINT"LENGTH OF SIDE";:INPUTS
  165. 1220 GOSUB30:GOSUB34:GOSUB36:GOSUB38
  166. 1230 PRINT"MAJOR RADIUS ="R
  167. 1240 PRINT"MINOR RADIUS ="D
  168. 1250 PRINT"        AREA ="A
  169. 1255 PRINT"ANGLE BETWEEN TWO SIDES ="AN*180/(null)
  170. 1258 PRINT"           CENTER ANGLE ="360/N
  171. 1260 GOSUB22:IFA$="Y"THENGOSUB1600
  172. 1270 GOSUB25
  173. 1280 IFA$="Y"THEN1200
  174. 1290 RETURN
  175. 1300 PRINT"[147]REGULAR POLYGON WITH"N"SIDES":PRINTL$
  176. 1310 PRINT"MINOR RADIUS =";:INPUTD
  177. 1320 GOSUB30:GOSUB39:GOSUB32:GOSUB38
  178. 1330 PRINT"MAJOR RADIUS ="R
  179. 1340 PRINT"        SIDE ="S
  180. 1350 PRINT"        AREA ="A
  181. 1355 PRINT"ANGLE BETWEEN TWO SIDES ="AN*180/(null)
  182. 1358 PRINT"           CENTER ANGLE ="360/N
  183. 1360 GOSUB22:IFA$="Y"THENGOSUB1600
  184. 1370 GOSUB25
  185. 1380 IFA$="Y"THEN1300
  186. 1390 RETURN
  187. 1400 PRINT"[147]REGULAR POLYGON WITH"N"SIDES":PRINTL$
  188. 1410 PRINT"MAJOR RADIUS =";:INPUTR
  189. 1420 GOSUB30:GOSUB32:GOSUB36:GOSUB38
  190. 1430 PRINT"MINOR RADIUS ="D
  191. 1440 PRINT"        SIDE ="S
  192. 1450 PRINT"        AREA ="A
  193. 1455 PRINT"ANGLE BETWEEN TWO SIDES ="AN*180/(null)
  194. 1458 PRINT"           CENTER ANGLE ="360/N
  195. 1460 GOSUB22:IFA$="Y"THENGOSUB1600
  196. 1470 GOSUB25
  197. 1480 IFA$="Y"THEN1400
  198. 1490 RETURN
  199. 1500 PRINT"[147]REGULAR POLYGON WITH"N"SIDES":PRINTL$
  200. 1510 PRINT"        AREA =";:INPUTA
  201. 1520 GOSUB30:GOSUB37:GOSUB32:GOSUB36
  202. 1530 PRINT"MINOR RADIUS ="D
  203. 1540 PRINT"MAJOR RADIUS ="R
  204. 1550 PRINT"        SIDE ="S
  205. 1555 PRINT"ANGLE BETWEEN TWO SIDES ="AN*180/(null)
  206. 1558 PRINT"           CENTER ANGLE ="360/N
  207. 1560 GOSUB22:IFA$="Y"THENGOSUB1600
  208. 1570 GOSUB25
  209. 1580 IFA$="Y"THEN1500
  210. 1590 RETURN
  211. 1600 PRINT"[147]"SPC(10)"POLYGON WITH"N"SIDES"
  212. 1610 PRINT"      X-Y COORDINATES OF VERTICES"
  213. 1620 PRINT"SELECT ORIENTATION TO X/Y-AXIS :"
  214. 1630 PRINT"1 - VERTEX TO LIE ON +X-AXIS"
  215. 1640 PRINT"2 - VERTEX TO LIE ON -X-AXIS"
  216. 1650 PRINT"3 - VERTEX TO LIE ON +Y-AXIS"
  217. 1660 PRINT"4 - VERTEX TO LIE ON -Y-AXIS"
  218. 1670 PRINT"5 - +X-AXIS TO BISECT SIDE"
  219. 1680 PRINT"6 - -X-AXIS TO BISECT SIDE"
  220. 1690 PRINT"7 - +Y-AXIS TO BISECT SIDE"
  221. 1700 PRINT"8 - -Y-AXIS TO BISECT SIDE"
  222. 1710 PRINT"9 - VERTEX TO BE LOCATED (X)-DEGREES        FROM +X-AXIS"
  223. 1720 GETZ$:IFZ$=""THEN1720
  224. 1730 Z=VAL(Z$):ONZGOSUB1750,1760,1770,1780,1790,1800,1810,1820,1830
  225. 1740 GOTO1850
  226. 1750 AD=0:RETURN
  227. 1760 AD=-(null):RETURN
  228. 1770 AD=(null)/2:RETURN
  229. 1780 AD=-(null)/2:RETURN
  230. 1790 AD=(null)/N:RETURN
  231. 1800 AD=(null)/N+(null):RETURN
  232. 1810 AD=(null)/N+(null)/2:RETURN
  233. 1820 AD=(null)/N-(null)/2:RETURN
  234. 1830 PRINT"[147]HOW MANY DEGREES FROM +X-AXIS SHOULD    FIRST VERTEX LIE";:INPUTAD
  235. 1835 AD=AD*(null)/180:RETURN
  236. 1850 PRINT"[147]X-Y COORDINATES OF"N"SIDED POLYGON":PRINT:PRINTSPC(13)"X"TAB(24)"Y"
  237. 1855 PRINTTAB(10)"[192][192][192][192][192][192]"TAB(21)"[192][192][192][192][192][192]"
  238. 1860 FORAE=0TO(N-1)
  239. 1870 X=R*(COS(AE*(2*(null))/N+AD))
  240. 1880 Y=R*(SIN(AE*(2*(null))/N+AD))
  241. 1885 X=INT(X*10000)/10000
  242. 1886 Y=INT(Y*10000)/10000
  243. 1890 PRINT"VERTEX"AE+1;X,Y
  244. 1900 NEXT:RETURN
  245. 1910 PRINT"[147]"SPC(15)"RECTANGLES":PRINTL$
  246. 1920 PRINT"SELECT KNOWN QUANTITIES FROM BELOW:"
  247. 1930 PRINT"1 - TWO SIDES":PRINT"2 - ONE SIDE/DIAGONAL
  248. 1940 [153]"3 - AREA/ONE SIDE"
  249. 1950 [161]Z$:[139]Z$[178]""[167]1950
  250. 1960 Z[178][197](Z$):[145]Z[141]1980,2060,2140
  251. 1970 [142]
  252. 1980 [153]"LOAD"[166]15)"RECTANGLES":[153]L$
  253. 1990 [153]"ENTER LENGTH SIDE 1";:[133]S1
  254. 2000 [153]"ENTER LENGTH SIDE 2";:[133]S2
  255. 2010 [141]68:[141]50
  256. 2020 [153]"    AREA ="A:[153]"DIAGONAL ="H
  257. 2030 [141]25
  258. 2040 [139]A$[178]"Y"[167]1980
  259. 2050 [142]
  260. 2060 [153]"LOAD"[166]15)"RECTANGLES":[153]L$
  261. 2070 [153]"ENTER LENGTH SIDE 1";:[133]S1
  262. 2080 [153]"ENTER LENGTH DIAGONAL";:[133]H
  263. 2090 [141]46:[141]68
  264. 2100 [153]"   AREA ="A:[153]" SIDE 2 ="S2
  265. 2110 [141]25
  266. 2120 [139]A$[178]"Y"[167]2060
  267. 2130 [142]
  268. 2140 [153]"LOAD"[166]15)"RECTANGLES":[153]L$
  269. 2150 [153]"ENTER LENGTH SIDE 1";:[133]S1
  270. 2160 [153]"ENTER AREA";:[133]A
  271. 2170 [141]70:[141]50
  272. 2180 [153]"DIAGONAL ="H:[153]"  SIDE 2 ="S2
  273. 2190 [141]25
  274. 2200 [139]A$[178]"Y"[167]2140
  275. 2210 [142]
  276. 2220 [153]"LOAD"[166]8)"TWO POINTS IN A PLANE":[153]L$
  277. 2230 [153]"SELECT KNOWN QUANTITIES FROM BELOW:"
  278. 2240 [153]"1 - POSITION OF POINT 1/POINT 2"
  279. 2245 [153]"2 - POSITION OF POINT 1"
  280. 2246 [153]"    DISTANCE BETWEEN POINT 1/POINT 2"
  281. 2247 [153]"    ANGLE LINE CONNECTING POINTS"
  282. 2248 [153]"    MAKES WITH X-AXIS"
  283. 2250 [161]Z$:[139]Z$[178]""[167]2250
  284. 2260 Z[178][197](Z$):[145]Z[141]2275,2355
  285. 2270 [142]
  286. 2275 [153]"LOAD"[166]8)"TWO POINTS IN A PLANE":[153]L$
  287. 2280 [153]"ENTER COORDINATES OF POINT 1":[133]"X1 =";X1:[133]"Y1 =";Y1
  288. 2290 [153]"ENTER COORDINATES OF POINT 2":[133]"X2 =";X2:[133]"Y2 =";Y2
  289. 2295 [139]X1[178]X2[167]AA[178][255][173]2:H[178][182](Y2[171]Y1):[137]2310
  290. 2300 [141]74:[141]72
  291. 2310 [153]"      ANGLE WITH X-AXIS ="AA[172]180[173][255]
  292. 2320 [153]"DISTANCE BETWEEN POINTS ="H
  293. 2330 [141]25
  294. 2340 [139]A$[178]"Y"[167]2275
  295. 2350 [142]
  296. 2355 [153]"LOAD"[166]8)"TWO POINTS IN A PLANE":[153]L$
  297. 2360 [153]"ENTER COORDINATES OF POINT 1":[133]"X1 =";X1:[133]"Y1 =";Y1
  298. 2370 [153]"ENTER ANGLE WITH X-AXIS":[133]AA:AA[178]AA[172][255][173]180
  299. 2375 [153]"ENTER DISTANCE BETWEEN POINTS";:[133]H
  300. 2380 [141]76:[141]78
  301. 2390 [153]"COORDINATES OF POINT 2:":[153]"X2 ="X2:[153]"Y2 ="Y2
  302. 2410 [141]25
  303. 2420 [139]A$[178]"Y"[167]2355
  304. 2430 [142]
  305. 2440 [153]"LOAD"[166]17)"CUBE":[153]L$
  306. 2450 [153]"SELECT KNOWN QUANTITY FROM BELOW:"
  307. 2460 [153]"1 - LENGTH OF SIDE":[153]"2 - VOLUME"
  308. 2490 [161]Z$:[139]Z$[178]""[167]2490
  309. 2495 Z[178][197](Z$):[145]Z[141]2500,2600
  310. 2498 [142]
  311. 2500 [153]"LOAD"[166]17)"CUBE":[153]L$
  312. 2510 [153]"ENTER LENGTH OF SIDE";:[133]S1
  313. 2520 [141]80:[141]84:[141]86:[141]88
  314. 2530 [153]"          VOLUME ="V
  315. 2540 [153]"    SURFACE AREA ="SA
  316. 2550 [153]"DIAGONAL OF FACE ="SD
  317. 2560 [153]"DIAGONAL OF CUBE ="LD
  318. 2570 [141]25
  319. 2580 [139]A$[178]"Y"[167]2500
  320. 2590 [142]
  321. 2600 [153]"LOAD"[166]17)"CUBE":[153]L$
  322. 2610 [153]"ENTER VOLUME";:[133]V
  323. 2620 [141]82:[141]84:[141]86:[141]88
  324. 2630 [153]"  LENGTH OF SIDE ="S1
  325. 2640 [153]"    SURFACE AREA ="SA
  326. 2650 [153]"DIAGONAL OF FACE ="SD
  327. 2660 [153]"DIAGONAL OF CUBE ="LD
  328. 2670 [141]25
  329. 2680 [139]A$[178]"Y"[167]2600
  330. 2690 [142]
  331. 2700 [153]"LOAD"[166]15)"CYLINDER":[153]L$
  332. 2710 [153]"SELECT KNOWN QUANTITIES FROM BELOW:"
  333. 2720 [153]"1 - DIAMETER/HEIGHT":[153]"2 - RADIUS/HEIGHT"
  334. 2730 [153]"3 - VOLUME/DIAMETER":[153]"4 - VOLUME/HEIGHT"
  335. 2740 [161]Z$:[139]Z$[178]""[167]2740
  336. 2750 Z[178][197](Z$):[145]Z[141]2760,2870,2980,3090
  337. 2755 [142]
  338. 2760 [153]"LOAD"[166]15)"CYLINDER":[153]L$
  339. 2770 [153]"ENTER DIAMETER";:[133]D:R[178]D[173]2
  340. 2780 [153]"ENTER HEIGHT";:[133]H
  341. 2790 [141]90:[141]96:[141]98
  342. 2800 [153]"                  RADIUS ="R
  343. 2810 [153]"                  VOLUME ="V
  344. 2820 [153]"CYLINDRICAL SURFACE AREA ="S
  345. 2830 [153]"      TOTAL SURFACE AREA ="A
  346. 2840 [141]25
  347. 2850 [139]A$[178]"Y"[167]2760
  348. 2860 [142]
  349. 2870 [153]"LOAD"[166]15)"CYLINDER":[153]L$
  350. 2880 [153]"ENTER RADIUS";:[133]R:D[178]2[172]R
  351. 2890 [153]"ENTER HEIGHT";:[133]H
  352. 2900 [141]90:[141]96:[141]98
  353. 2910 [153]"                DIAMETER ="D
  354. 2920 [153]"                  VOLUME ="V
  355. 2930 [153]"CYLINDRICAL SURFACE AREA ="S
  356. 2940 [153]"      TOTAL SURFACE AREA ="A
  357. 2950 [141]25
  358. 2960 [139]A$[178]"Y"[167]2870
  359. 2970 [142]
  360. 2980 [153]"LOAD"[166]15)"CYLINDER":[153]L$
  361. 2990 [153]"ENTER VOLUME";:[133]V
  362. 3000 [153]"ENTER DIAMETER";:[133]D:R[178]D[173]2
  363. 3010 [141]92:[141]96:[141]98
  364. 3020 [153]"                  RADIUS ="R
  365. 3030 [153]"                  HEIGHT ="H
  366. 3040 [153]"CYLINDRICAL SURFACE AREA ="S
  367. 3050 [153]"      TOTAL SURFACE AREA ="A
  368. 3060 [141]25
  369. 3070 [139]A$[178]"Y"[167]2980
  370. 3080 [142]
  371. 3090 [153]"LOAD"[166]15)"CYLINDER":[153]L$
  372. 3100 [153]"ENTER VOLUME";:[133]V
  373. 3110 [153]"ENTER HEIGHT";:[133]H
  374. 3120 [141]94:D[178]2[172]R:[141]96:[141]98
  375. 3130 [153]"                  RADIUS ="R
  376. 3140 [153]"                DIAMETER ="R[172]2
  377. 3150 [153]"CYLINDRICAL SURFACE AREA ="S
  378. 3160 [153]"      TOTAL SURFACE AREA ="A
  379. 3170 [141]25
  380. 3180 [139]A$[178]"Y"[167]3090
  381. 3190 [142]
  382. 3200 [153]"LOAD"[166]16)"SPHERE":[153]L$
  383. 3210 [153]"SELECT KNOWN QUANTITY FROM BELOW:"
  384. 3220 [153]"1 - DIAMETER":[153]"2 - RADIUS"
  385. 3230 [153]"3 - VOLUME":[153]"4 - SURFACE AREA"
  386. 3240 [161]Z$:[139]Z$[178]""[167]3240
  387. 3245 Z[178][197](Z$):[145]Z[141]3250,3330,3410,3500
  388. 3248 [142]
  389. 3250 [153]"LOAD"[166]15)"SPHERE":[153]L$
  390. 3260 [153]"ENTER DIAMETER";:[133]D:R[178]D[173]2
  391. 3270 [141]14:[141]18
  392. 3275 [153]"     RADIUS  ="R
  393. 3280 [153]"      VOLUME ="V
  394. 3290 [153]"SURFACE AREA ="A
  395. 3300 [141]25
  396. 3310 [139]A$[178]"Y"[167]3250
  397. 3320 [142]
  398. 3330 [153]"LOAD"[166]15)"SPHERE":[153]L$
  399. 3340 [153]"ENTER RADIUS";:[133]R
  400. 3350 [141]14:[141]18
  401. 3355 [153]"    DIAMETER ="R[172]2
  402. 3360 [153]"      VOLUME ="V
  403. 3370 [153]"SURFACE AREA ="A
  404. 3380 [141]25
  405. 3390 [139]A$[178]"Y"[167]3330
  406. 3400 [142]
  407. 3410 [153]"LOAD"[166]15)"SPHERE":[153]L$
  408. 3420 [153]"ENTER VOLUME";:[133]V
  409. 3430 [141]16:[141]18
  410. 3440 [153]"      RADIUS ="R
  411. 3450 [153]"    DIAMETER ="2[172]R
  412. 3460 [153]"SURFACE AREA ="A
  413. 3470 [141]25
  414. 3480 [139]A$[178]"Y"[167]3410
  415. 3490 [142]
  416. 3500 [153]"LOAD"[166]15)"SPHERE":[153]L$
  417. 3510 [153]"ENTER SURFACE AREA";:[133]A
  418. 3520 [141]20:[141]14
  419. 3530 [153]"      RADIUS ="R
  420. 3540 [153]"    DIAMETER ="2[172]R
  421. 3550 [153]"      VOLUME ="V
  422. 3560 [141]25
  423. 3570 [139]A$[178]"Y"[167]3500
  424. 3580 [142]
  425. 6682 
  426.