API tools faq
paste
Guest User

Untitled

a guest
May 16th, 2018
209
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Basic4GL 5.00 KB | None | 0 0
raw download clone embed print report
  1. :ClrHome
  2. :Menu("WHAT FORMULA<S>?","SLOPE",A,"PYTHAGOREAN",B,"QUADRATIC",C,"DIST./MAGNIT.",D,"MIDPOINT",E,"AREAS/OTHER",F,"EXIT",G
  3. :Lbl A
  4. :ClrHome
  5. :Disp "((ENTER COORDS))"
  6. :Disp "","-X1-"
  7. :Input A
  8. :Disp "","-Y1-"
  9. :Input B
  10. :Disp "","-X2-"
  11. :Input C
  12. :Disp "","-Y2-"
  13. :Input D
  14. :(D-B)→Y
  15. :(C-A)→X
  16. :(Y/X)→S
  17. :ClrHome
  18. :Disp "THE SLOPE IS...",S►Frac
  19. :Pause
  20. :ClrHome
  21. :prgmFORMULAS
  22. :Lbl B
  23. :ClrHome
  24. :Disp "((ENTER COORDS))"
  25. :Disp ""
  26. :Prompt A
  27. :Disp ""
  28. :Prompt B
  29. :(A2+B2)→C
  30. :ClrHome
  31. :Disp "THE HYPOTENUSE","IS:",√(C)
  32. :Pause
  33. :ClrHome
  34. :prgmFORMULAS
  35. :Lbl C
  36. :Menu("<<<QUAD. FORM.>>>","QUAD. SOLVER",P,"VERTEX SOLVER",Q,"DISCRIMINANT",R,"EXIT",G
  37. :Lbl P
  38. :Disp "ENTER VARIABLES",""
  39. :Prompt A
  40. :Disp ""
  41. :Prompt B
  42. :Disp ""
  43. :Prompt C
  44. :‾(B)+√(B2-4AC)→D
  45. :‾(B)-√(B2-4AC)→E
  46. :((D)/(2A))→F
  47. :((E)/(2A))→G
  48. :ClrHome
  49. :Disp "THE SOLUTION:","X=",F►Frac," and ",G►Frac
  50. :Pause
  51. :ClrHome
  52. :prgmFORMULAS
  53. :Lbl Q
  54. :Disp "ENTER VARIABLES",""
  55. :Prompt A
  56. :Disp ""
  57. :Prompt B
  58. :Disp ""
  59. :Prompt C
  60. :((‾B)/(2A))→D
  61. :(AD2+BD+C)→E
  62. :ClrHome
  63. :If A>0
  64. :Then
  65. :Disp "THE VERTEX:","X=",D►Frac,"Y=",E►Frac
  66. :Disp "THE VERTEX","OPENS UP"
  67. :Pause
  68. :ClrHome
  69. :prgmFORMULAS
  70. :Else
  71. :If A<0
  72. :Then
  73. :Disp "THE VERTEX:","X=",D►Frac,"Y=",E►Frac
  74. :Disp "THE VERTEX","OPENS DOWN"
  75. :Pause
  76. :ClrHome
  77. :prgmFORMULAS
  78. :Lbl R
  79. :ClrHome
  80. :Disp "ENTER VARIABLES",""
  81. :Prompt A
  82. :Disp ""
  83. :Prompt B
  84. :Disp ""
  85. :Prompt C
  86. :(B2-4AC)→D
  87. :ClrHome
  88. :If D>0
  89. :Then
  90. :Disp "THE DISCRIMINANT","IS:",D
  91. :Disp "THE EQUATION","HAS 2 REAL","SOLUTIONS"
  92. :Pause
  93. :ClrHome
  94. :prgmFORMULAS
  95. :Else
  96. :If D=0
  97. :Then
  98. :Disp "THE DISCRIMINANT","IS:",D
  99. :Disp "THE EQUATION","HAS 1 REAL","SOLUTION"
  100. :Pause
  101. :ClrHome
  102. :prgmFORMULAS
  103. :Else
  104. :If D<0
  105. :Disp "THE DISCRIMINANT","IS:",D
  106. :Disp "THE EQUATION","HAS NO REAL","SOLUTIONS"
  107. :Pause
  108. :ClrHome
  109. :prgmFORMULAS
  110. :Lbl D
  111. :Disp "((ENTER COORDS))"
  112. :Disp "","-X1-"
  113. :Input A
  114. :Disp "","-Y1-"
  115. :Input B
  116. :Disp "","-X2-"
  117. :Input C
  118. :Disp "","-Y2-"
  119. :Input D
  120. :√((C-A)2+(D-B)2)→E
  121. :ClrHome
  122. :Disp "THE","DISTANCE (OR","MAGNITUDE)","BETWEEN THE","TWO POINTS","IS:",E
  123. :Pause
  124. :ClrHome
  125. :prgmFORMULAS
  126. :Lbl E
  127. :Disp "((ENTER COORDS))"
  128. :Disp "","-X1-"
  129. :Input A
  130. :Disp "","-Y1-"
  131. :Input B
  132. :Disp "","-X2-"
  133. :Input C
  134. :Disp "","-Y2-"
  135. :Input D
  136. :((A+C)/(2)→X
  137. :((B+D)/(2)→Y
  138. :ClrHome
  139. :Disp "THE MIDPOINT","IS:","X=",X►Frac,"Y=",Y►Frac
  140. :Pause
  141. :ClrHome
  142. :prgmFORMULAS
  143. :Lbl G
  144. :ClrHome
  145. :Stop
  146. :Lbl F
  147. :ClrHome
  148. :Menu("<<AREA/VOL/ETC>>","TRIANGLE",H,"TRAPEZOID",I,"CIRCLE",J,"CIRCUMFERENCE",K,"VOLUME",T,"PHYSICS",L,"EXIT",G
  149. :Lbl H
  150. :ClrHome
  151. :Disp "((ENTER SIDES)))"
  152. :Disp "","->BASE"
  153. :Input A
  154. :Disp "","->HEIGHT"
  155. :Input B
  156. :.5(A*B)→C
  157. :ClrHome
  158. :Disp "THE AREA","OF THE","TRIANGLE IS:",C
  159. :Pause
  160. :ClrHome
  161. :prgmFORMULAS
  162. :Lbl I
  163. :ClrHome
  164. :Disp "((ENTER SIDES)))"
  165. :Disp "","->BASE ONE"
  166. :Input A
  167. :Disp "","->BASE TWO"
  168. :Input B
  169. :Disp "","->HEIGHT"
  170. :Input C
  171. :(1/2)C→F
  172. :F(A+B)→D
  173. :ClrHome
  174. :Disp "THE AREA","OF THE","TRAPEZOID","IS:",D
  175. :Pause
  176. :ClrHome
  177. :prgmFORMULAS
  178. :Lbl J
  179. :ClrHome
  180. :Disp "((ENTER RADIUS))"
  181. :Disp "","->RADIUS"
  182. :Input R
  183. :(πR2)→A
  184. :ClrHome
  185. :Disp "THE AREA","OF THE","CIRCLE","IS:",A
  186. :Pause
  187. :ClrHome
  188. :prgmFORMULAS
  189. :Lbl K
  190. :ClrHome
  191. :Disp "((ENTER RADIUS))"
  192. :Disp "","->RADIUS"
  193. :Input R
  194. :(2πR)→C
  195. :ClrHome
  196. :Disp "THE","CIRCUMFERENCE","OF THE CIRCLE","IS:",C
  197. :Pause
  198. :ClrHome
  199. :prgmFORMULAS
  200. :Lbl T
  201. :Menu("<VOLUME FORMULA>","SPHERE",U,"CYLINDER",V,"CONE",W,"PYRAMID",X,"EXIT",G
  202. :Lbl U
  203. :ClrHome
  204. :Disp "((ENTER RADIUS))"
  205. :Disp "","->RADIUS"
  206. :Input R
  207. :((4πR3)/3)→A
  208. :ClrHome
  209. :Disp "THE VOLUME","OF THE SPHERE","IS:",A
  210. :Pause
  211. :ClrHome
  212. :prgmFORMULAS
  213. :Lbl V
  214. :Disp "ENTER DIMENSIONS"
  215. :Disp "","->RADIUS"
  216. :Input R
  217. :Disp "","->HEIGHT"
  218. :Input H
  219. :(πR2H)→A
  220. :ClrHome
  221. :Disp "THE VOLUME","OF THE CYLINDER","IS:",A
  222. :Pause
  223. :ClrHome
  224. :prgmFORMULAS
  225. :Lbl W
  226. :ClrHome
  227. :Disp "ENTER DIMENSIONS"
  228. :Disp "","->RADIUS"
  229. :Input R
  230. :Disp "","->HEIGHT"
  231. :Input H
  232. :((πR2H)/3)→A
  233. :ClrHome
  234. :Disp "THE VOLUME","OF THE CONE","IS:",A
  235. :Pause
  236. :ClrHome
  237. :prgmFORMULAS
  238. :Lbl X
  239. :Disp "ENTER DIMENSIONS"
  240. :Disp "","->LENGTH OF BASE"
  241. :Input L
  242. :Disp "","->WIDTH OF BASE"
  243. :Input W
  244. :Disp "","->HEIGHT"
  245. :Input H
  246. :(LW)→B
  247. :(1/3)HB→A
  248. :ClrHome
  249. :Disp "THE VOLUME","OF THE PYRAMID","IS:",A
  250. :Pause
  251. :ClrHome
  252. :prgmFORMULAS
  253. :Lbl L
  254. :ClrHome
  255. :Menu("<<PHYS FORMULA>>>","RANGE",M,"MAX. HEIGHT",N,"TIME AT APEX",O,"EXIT",G
  256. :Lbl M
  257. :ClrHome
  258. :Disp "ENTER VARIABLES",""
  259. :Prompt V
  260. :Disp ""
  261. :Prompt θ
  262. :Disp ""
  263. :Prompt G
  264. :(‾V2sin(2θ)/G)→R
  265. :ClrHome
  266. :Disp "THE RANGE","OF THE","PROJECTILE","IS:",R
  267. :Pause
  268. :ClrHome
  269. :prgmFORMULAS
  270. :Lbl N
  271. :ClrHome
  272. :Disp "ENTER VARIABLES",""
  273. :Prompt V
  274. :Disp ""
  275. :Prompt θ
  276. :Disp ""
  277. :Prompt G
  278. :Disp ""
  279. :(‾V2(sin(θ)2))/(2G)→A
  280. :ClrHome
  281. :Disp "THE MAX. HEIGHT","OF THE","PROJECTILE","IS:",A
  282. :Pause
  283. :ClrHome
  284. :prgmFORMULAS
  285. :Lbl O
  286. :ClrHome
  287. :Disp "ENTER VARIABLES",""
  288. :Prompt V
  289. :Disp ""
  290. :Prompt θ
  291. :Disp ""
  292. :Prompt G
  293. :Disp ""
  294. :(‾Vsin(θ)/G)→T
  295. :ClrHome
  296. :Disp "THE TIME","AT THE APEX IS:",T,"TOTAL TIME IS:",2T
  297. :Pause
  298. :ClrHome
  299. :prgmFORMULAS
Add Comment
Please, Sign In to add comment
Public Pastes
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!