API tools faq
paste
Advertisement
Aes_Sedia5

MATHPACK(Volumes)

Aes_Sedia5
Dec 1st, 2011
46
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 8.08 KB | None | 0 0
raw download clone embed print report diff
  1. :Program ZZVOLUM
  2. :While 1
  3. :¦ "VOLUME"→Str1
  4. :¦ "SURFACE AREA"→Str4
  5. :¦ "INPUT ZERO 4 UKNOWN"→Str2
  6. :¦ "RADIUS"→Str3
  7. :¦ "LENGTH"→Str5
  8. :¦ "HEIGHT"→Str6
  9. :¦ "WIDTH"→Str7
  10. :¦ "SIDE"→Str9
  11. :¦ "BASE"→Str0
  12. :¦ DelVar KDelVar J
  13. :¦ 0
  14. :¦ ClrHome
  15. :¦ ClrDraw
  16. :¦ Text(1,1,"AREA AND VOLUME AND SURFACE AREAS
  17. :¦ Text(7,1,"1.FIND FOR ARC-LENGTH
  18. :¦ Text(13,1,"2.FIND FOR CIRCLE
  19. :¦ Text(19,1,"3.RIGHT CIRCLE CONE
  20. :¦ Text(25,1,"4.RIGHT CIRCLE CYLINDER
  21. :¦ Text(31,1,"5.FIND FOR RECTANGLE PRISM
  22. :¦ Text(37,1,"6.FIND FOR RIGHT PYRAMID
  23. :¦ Text(43,1,"7.MORE SHAPES
  24. :¦ Text(49,1,"8.EXIT
  25. :¦ Text(55,1,"MADE BY AES SEDIA5 CEMETECH.NET
  26. :¦ Repeat K
  27. :¦ ¦ getKey→K
  28. :¦ End
  29. :¦ If K=73
  30. :¦ Then
  31. :¦ ¦ Lbl XX
  32. :¦ ¦ ClrDraw
  33. :¦ ¦ Text(1,1,"THANKS FOR USING
  34. :¦ ¦ Text(13,1,"VOLUMES FROM THE
  35. :¦ ¦ Text(25,1,"FIVE PACK OF MATH
  36. :¦ ¦ Text(49,1,"MADE BY AES SEDIA5
  37. :¦ ¦ Text(55,1,"CEMETECH.NET
  38. :¦ ¦ rand(100
  39. :¦ ¦ ClrDraw
  40. :¦ ¦ Return
  41. :¦ End
  42. :¦ If K=92
  43. :¦ Then
  44. :¦ ¦ Disp Str2
  45. :¦ ¦ Input "DEGREE OF WEDGE",θ
  46. :¦ ¦ Input Str3,R
  47. :¦ ¦ Input "ARC LENGTH",V
  48. :¦ ¦ Repeat VRθ
  49. :¦ ¦ ¦ If not(V
  50. :¦ ¦ ¦ θπR/360→V
  51. :¦ ¦ ¦ If not(θ
  52. :¦ ¦ ¦ πR-V/360→θ
  53. :¦ ¦ ¦ If not(R
  54. :¦ ¦ ¦ θπ-V/360→R
  55. :¦ ¦ End
  56. :¦ ¦ Disp "DEGREE OF ARC
  57. :¦ ¦ Pause θ
  58. :¦ ¦ Disp "ARC LENGTH
  59. :¦ ¦ Pause V
  60. :¦ ¦ Disp Str3
  61. :¦ ¦ Pause R
  62. :¦ End
  63. :¦ If K=93
  64. :¦ Then
  65. :¦ ¦ Disp Str2
  66. :¦ ¦ Input Str3,R
  67. :¦ ¦ Input "AREA",A
  68. :¦ ¦ Input "CIRCUMFERENCE",C
  69. :¦ ¦ Repeat ACR
  70. :¦ ¦ ¦ If not(A
  71. :¦ ¦ ¦ πR2→A
  72. :¦ ¦ ¦ If not(C
  73. :¦ ¦ ¦ 2πR→C
  74. :¦ ¦ ¦ If not(R
  75. :¦ ¦ ¦ 2π-C→R
  76. :¦ ¦ End
  77. :¦ ¦ Disp "AREA
  78. :¦ ¦ Pause A
  79. :¦ ¦ Disp "CIRCUMFERENCE
  80. :¦ ¦ Pause C
  81. :¦ ¦ Disp Str3
  82. :¦ ¦ Pause R
  83. :¦ End
  84. :¦ If K=94
  85. :¦ Then
  86. :¦ ¦ Disp Str2
  87. :¦ ¦ Input Str3,R
  88. :¦ ¦ Input Str6,H
  89. :¦ ¦ Input Str4,S
  90. :¦ ¦ Input Str1,V
  91. :¦ ¦ Repeat VSRH
  92. :¦ ¦ ¦ If not(V
  93. :¦ ¦ ¦ πR^2/3→V
  94. :¦ ¦ ¦ If not(S
  95. :¦ ¦ ¦ πR^2+2πRH→S
  96. :¦ ¦ ¦ If not(R
  97. :¦ ¦ ¦ √(π-V/3→R:
  98. :¦ ¦ ¦ If not(H
  99. :¦ ¦ ¦ 2πR^2+2πR-S→H
  100. :¦ ¦ End
  101. :¦ ¦ Disp Str1
  102. :¦ ¦ Pause V
  103. :¦ ¦ Disp Str3
  104. :¦ ¦ Pause R
  105. :¦ ¦ Disp Str4
  106. :¦ ¦ Pause S
  107. :¦ ¦ Disp Str6
  108. :¦ ¦ Pause H
  109. :¦ End
  110. :¦ If K=82
  111. :¦ Then
  112. :¦ ¦ Disp Str2
  113. :¦ ¦ Input Str3,R
  114. :¦ ¦ Input Str6,H
  115. :¦ ¦ Input Str1,V
  116. :¦ ¦ Input Str4,S
  117. :¦ ¦ Repeat SVHR
  118. :¦ ¦ ¦ If not(V
  119. :¦ ¦ ¦ πR2H→V
  120. :¦ ¦ ¦ If not(S
  121. :¦ ¦ ¦ 2πR^2+2πRH→S
  122. :¦ ¦ ¦ If not(R) and S≠0
  123. :¦ ¦ ¦ -2πH+√(2πH)-(8π-4S)/(4π)→R
  124. :¦ ¦ ¦ If not(R) and V≠0
  125. :¦ ¦ ¦ √(πH-V→R
  126. :¦ ¦ ¦ If not(H
  127. :¦ ¦ ¦ πR2-V→H
  128. :¦ ¦ End
  129. :¦ ¦ Disp Str3
  130. :¦ ¦ Pause R
  131. :¦ ¦ Disp Str6
  132. :¦ ¦ Pause H
  133. :¦ ¦ Disp Str1
  134. :¦ ¦ Pause V
  135. :¦ ¦ Disp Str4
  136. :¦ ¦ Pause S
  137. :¦ End
  138. :¦ If K=83
  139. :¦ Then
  140. :¦ ¦ Disp Str2
  141. :¦ ¦ Input Str5,L
  142. :¦ ¦ Input Str7,W
  143. :¦ ¦ Input Str6,H
  144. :¦ ¦ Input Str1,V
  145. :¦ ¦ Input Str4,S
  146. :¦ ¦ Repeat LWHVS
  147. :¦ ¦ ¦ If not(V
  148. :¦ ¦ ¦ LHW→V
  149. :¦ ¦ ¦ If not(S
  150. :¦ ¦ ¦ 2LW+2WH+2HL→S
  151. :¦ ¦ ¦ If not(L) and not(S
  152. :¦ ¦ ¦ HW-V→L
  153. :¦ ¦ ¦ If not(V) and not(L
  154. :¦ ¦ ¦ (2W+2WH+2H-S)/2→L
  155. :¦ ¦ ¦ If not(W) and not(V
  156. :¦ ¦ ¦ (2L+2H+2HL)/2→W
  157. :¦ ¦ ¦ If not(H) and not(V
  158. :¦ ¦ ¦ (2LW+2W+2L-S)/2→H
  159. :¦ ¦ ¦ If not(H) and not(S
  160. :¦ ¦ ¦ LW-V→H
  161. :¦ ¦ ¦ If not(L) and not(S
  162. :¦ ¦ ¦ HW-V→L
  163. :¦ ¦ ¦ If not(W) and not(S
  164. :¦ ¦ ¦ LH-V→W
  165. :¦ ¦ End
  166. :¦ ¦ Disp Str5
  167. :¦ ¦ Pause L
  168. :¦ ¦ Disp Str6
  169. :¦ ¦ Pause H
  170. :¦ ¦ Disp Str7
  171. :¦ ¦ Pause W
  172. :¦ ¦ Disp Str1
  173. :¦ ¦ Pause V
  174. :¦ ¦ Disp Str4
  175. :¦ ¦ Pause S
  176. :¦ End
  177. :¦ If K=84
  178. :¦ Then
  179. :¦ ¦ Disp Str2
  180. :¦ ¦ Input Str0+" OF "+Str9,B
  181. :¦ ¦ Input Str6,H
  182. :¦ ¦ Input Str5+" OF "+Str0,L
  183. :¦ ¦ Input Str1,V
  184. :¦ ¦ Input Str4,S
  185. :¦ ¦ Repeat VSLHB
  186. :¦ ¦ ¦ If not(V
  187. :¦ ¦ ¦ πB^2H/3→V
  188. :¦ ¦ ¦ If not(S
  189. :¦ ¦ ¦ B^2+2BL→S
  190. :¦ ¦ ¦ If not(H) and not(S
  191. :¦ ¦ ¦ (π+B^2)/3-V→H
  192. :¦ ¦ ¦ If not(L) and not(V
  193. :¦ ¦ ¦ B^2+2B-S→L
  194. :¦ ¦ ¦ If not(L
  195. :¦ ¦ ¦ B^2+2B-S→L
  196. :¦ ¦ ¦ If not(B) and not(S
  197. :¦ ¦ ¦ √(πH/3-V→B
  198. :¦ ¦ ¦ If not(H) and not(S
  199. :¦ ¦ ¦ πB^2/3-V→H
  200. :¦ ¦ ¦ If not(H
  201. :¦ ¦ ¦ πB^2/3-V→H
  202. :¦ ¦ ¦ If not(B
  203. :¦ ¦ ¦ ‾2L+√(‾1-4(‾S))/2→B
  204. :¦ ¦ End
  205. :¦ ¦ Disp Str1
  206. :¦ ¦ Pause V
  207. :¦ ¦ Disp Str4
  208. :¦ ¦ Pause S
  209. :¦ ¦ Disp Str5
  210. :¦ ¦ Pause L
  211. :¦ ¦ Disp Str6
  212. :¦ ¦ Pause H
  213. :¦ ¦ Disp Str0+" OF "+Str9
  214. :¦ ¦ Pause B
  215. :¦ End
  216. :¦ If K=72
  217. :¦ Then
  218. :¦ ¦ ClrHome
  219. :¦ ¦ ClrDraw
  220. :¦ ¦ Text(1,1,"MORE SHAPES
  221. :¦ ¦ Text(7,1,"1.FIND FOR SPHERE
  222. :¦ ¦ Text(13,1,"2.FIND FOR TRAPEZOIDAL PRIZM
  223. :¦ ¦ Text(19,1,"3.SOLVE PYTHAGOREAN THEOREM
  224. :¦ ¦ Text(25,1,"4.SOLVE FOR TRIANGLES
  225. :¦ ¦ Text(31,1,"5.TO PREVIOUS MENU
  226. :¦ ¦ Text(37,1,"6.EXIT
  227. :¦ ¦ Text(49,1,"MADE BY AES SEDIA5
  228. :¦ ¦ Text(55,1,"CEMETECH.NET
  229. :¦ ¦ Repeat J
  230. :¦ ¦ ¦ getKey→J
  231. :¦ ¦ End
  232. :¦ End
  233. :¦ If J=84
  234. :¦ Goto XX
  235. :¦ If J=92
  236. :¦ Then
  237. :¦ ¦ Disp Str2
  238. :¦ ¦ Input Str3,R
  239. :¦ ¦ Input Str1,V
  240. :¦ ¦ Input Str4,S
  241. :¦ ¦ Repeat VRS
  242. :¦ ¦ ¦ If Rnot(V
  243. :¦ ¦ ¦ 4πR^3/3→V
  244. :¦ ¦ ¦ If not(S
  245. :¦ ¦ ¦ Then
  246. :¦ ¦ ¦ ¦ 4πR2→S
  247. :¦ ¦ ¦ End
  248. :¦ ¦ ¦ If not(R)not(V
  249. :¦ ¦ ¦ √(4π-S→R
  250. :¦ ¦ ¦ If not(R) and not(S
  251. :¦ ¦ ¦ √(4π/3-V→R
  252. :¦ ¦ End
  253. :¦ ¦ Disp Str1
  254. :¦ ¦ Pause V
  255. :¦ ¦ Disp Str4
  256. :¦ ¦ Pause S
  257. :¦ ¦ Disp Str3
  258. :¦ ¦ Pause R
  259. :¦ End
  260. :¦ If J=93
  261. :¦ Then
  262. :¦ ¦ 0→X
  263. :¦ ¦ Input Str0+"1",B
  264. :¦ ¦ Input Str0+"2",C
  265. :¦ ¦ Input Str6,H
  266. :¦ ¦ Input Str5,L
  267. :¦ ¦ Input "AREA",A
  268. :¦ ¦ Input Str1,V
  269. :¦ ¦ Input Str4,S
  270. :¦ ¦ Repeat ABCSVHL
  271. :¦ ¦ ¦ If Ans=10
  272. :¦ ¦ ¦ Then
  273. :¦ ¦ ¦ ¦ Disp "1 OF"+Str0+"1" OR "+Str0+"2","OR AREA OR VOLUME ","OR SURFACE AREA","HAVE TO EQUAL ≥1"
  274. :¦ ¦ ¦ ¦ Pause
  275. :¦ ¦ ¦ End
  276. :¦ ¦ ¦ If not(A
  277. :¦ ¦ ¦ .5(B+C)H→A
  278. :¦ ¦ ¦ If not(V
  279. :¦ ¦ ¦ .5(B+C)HL→V
  280. :¦ ¦ ¦ If not(S
  281. :¦ ¦ ¦ 2(.5H(B+C)+4L→S
  282. :¦ ¦ ¦ If not(H
  283. :¦ ¦ ¦ .5(C+B)-S→H
  284. :¦ ¦ ¦ 2(.5(B+C))+4L-S→H
  285. :¦ ¦ ¦ .5(C+B)L-V→H
  286. :¦ ¦ ¦ If not(B) and C≠0
  287. :¦ ¦ ¦ .5HC-A→B
  288. :¦ ¦ ¦ If not(C) and B≠0
  289. :¦ ¦ ¦ .5HB-A→C
  290. :¦ ¦ ¦ Ans+1
  291. :¦ ¦ End
  292. :¦ ¦ Disp "AREA
  293. :¦ ¦ Pause A
  294. :¦ ¦ Disp Str1
  295. :¦ ¦ Pause V
  296. :¦ ¦ Disp Str4
  297. :¦ ¦ Pause S
  298. :¦ ¦ Disp Str6
  299. :¦ ¦ Pause H
  300. :¦ ¦ Disp Str0+"1
  301. :¦ ¦ Pause B
  302. :¦ ¦ Disp Str0+"2
  303. :¦ ¦ Pause C
  304. :¦ End
  305. :¦ If J=94
  306. :¦ Then
  307. :¦ ¦ ClrDraw
  308. :¦ ¦ Text(1,1,"IS IT A RIGHT TRIANGLE
  309. :¦ ¦ Text(25,1,"1.YES
  310. :¦ ¦ Text(31,1,"2.NO
  311. :¦ ¦ Text(49,1,"MADE BY AES SEDIA5
  312. :¦ ¦ Text(55,1,"CEMETECH.NET
  313. :¦ ¦ Repeat Ans
  314. :¦ ¦ ¦ getKey
  315. :¦ ¦ End
  316. :¦ ¦ If Ans=93
  317. :¦ ¦ Then
  318. :¦ ¦ ¦ Disp "MUST BE ","RIGHT TRIANGLE
  319. :¦ ¦ ¦ rand(120
  320. :¦ ¦ End
  321. :¦ ¦ If Ans=92
  322. :¦ ¦ Then
  323. :¦ ¦ ¦ Disp " . "," . . C"," . . "," . . ","A. . "," ......."," B"
  324. :¦ ¦ ¦ Pause
  325. :¦ ¦ ¦ ClrDraw
  326. :¦ ¦ ¦ Text(1,1,"ENTER ZERO FOR THE SIDE
  327. :¦ ¦ ¦ Text(7,1,"YOUR FINDING
  328. :¦ ¦ ¦ rand(100
  329. :¦ ¦ ¦ Input Str9+"A",A
  330. :¦ ¦ ¦ Input Str9+"B",B
  331. :¦ ¦ ¦ Input Str9+"C",C
  332. :¦ ¦ ¦ If not(A
  333. :¦ ¦ ¦ Then
  334. :¦ ¦ ¦ ¦ ClrHome
  335. :¦ ¦ ¦ ¦ Disp Str9+" A
  336. :¦ ¦ ¦ ¦ Pause √(((C2-B2)
  337. :¦ ¦ ¦ End
  338. :¦ ¦ ¦ If not(B
  339. :¦ ¦ ¦ Then
  340. :¦ ¦ ¦ ¦ ClrHome
  341. :¦ ¦ ¦ ¦ Disp Str9+" B
  342. :¦ ¦ ¦ ¦ Pause √((C2-A2)
  343. :¦ ¦ ¦ End
  344. :¦ ¦ ¦ If not(C
  345. :¦ ¦ ¦ Then
  346. :¦ ¦ ¦ ¦ Disp Str9+" C
  347. :¦ ¦ ¦ ¦ Pause √((A2+B2)
  348. :¦ ¦ ¦ End
  349. :¦ ¦ End
  350. :¦ End
  351. :¦ If J=82
  352. :¦ Then
  353. :¦ ¦ ClrDraw
  354. :¦ ¦ Text(1,1,"WHAT DO YOU HAVE?
  355. :¦ ¦ Text(19,1,"1.ALL SIDES OF THE TRIANGLE
  356. :¦ ¦ Text(25,1,"2.LENGTH HEIGHT OF THE TRIANGLE"
  357. :¦ ¦ Text(31,1,"3.BACK
  358. :¦ ¦ Text(49,1,"MADE BY AES SEDIA5
  359. :¦ ¦ Text(55,1,"CEMETECH.NET
  360. :¦ ¦ Repeat Ans
  361. :¦ ¦ ¦ getKey
  362. :¦ ¦ End
  363. :¦ ¦ If Ans=92
  364. :¦ ¦ Then
  365. :¦ ¦ ¦ Prompt A
  366. :¦ ¦ ¦ Prompt B
  367. :¦ ¦ ¦ Prompt C
  368. :¦ ¦ ¦ (1/2)(A+B+C)
  369. :¦ ¦ ¦ Disp "AREA
  370. :¦ ¦ ¦ Pause √(Ans(Ans-A)(Ans-B)(Ans-C))
  371. :¦ ¦ End
  372. :¦ ¦ If Ans=93
  373. :¦ ¦ Then
  374. :¦ ¦ ¦ Input Str5,L
  375. :¦ ¦ ¦ Input Str6,H
  376. :¦ ¦ ¦ Input Str7,W
  377. :¦ ¦ ¦ Disp Str1
  378. :¦ ¦ ¦ Pause .5LHW
  379. :¦ ¦ End
  380. :¦ End
  381. :End
  382.  
  383.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!