home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / math / formulas / prog1.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1988-12-26  |  9.1 KB  |  269 lines
  1. 2000  CLS
  2. 2010  B$="********** DC CIRCUITS **********":F=40-LEN(B$)/2
  3. 2020  LOCATE 1,F:PRINT B$
  4. 2030  PRINT " "
  5. 2040  GOSUB 4670
  6. 2050  PRINT " "
  7. 2060  PRINT"                                       E"
  8. 2070  PRINT"     1.   E=IxR                2.   I= -";"                 3.   P=I"CHR$(253);"R"
  9. 2080  PRINT"                                       R"
  10. 2090  PRINT
  11. 2100  PRINT"             E                                                   P"
  12. 2110  PRINT"     4.   R= -                 5.   P=ExI                6.   R= -"
  13. 2120  PRINT"             I                                                   I";CHR$(253)
  14. 2130  PRINT
  15. 2140  PRINT"             P                         P                        ";CHR$(251);"P";CHR$(251);"R"
  16. 2150  PRINT"     7.   E= -                 8.   I= -                 9.   I= ---"
  17. 2160  PRINT"             I                         E                          R"
  18. 2170  PRINT
  19. 2180  PRINT"                                      E";CHR$(253);"                         E";CHR$(253)
  20. 2190  PRINT"    10.   E=";CHR$(251);"P";CHR$(251);"R";"              11.  P= -";:
  21. 2200  PRINT"                 12.   R= -"
  22. 2210  PRINT"                                      R                          P"
  23. 2220  PRINT
  24. 2230  GOSUB 4670
  25. 2240  PRINT " "
  26. 2250  INPUT"PLEASE ENTER NUMBER OF FORMULA YOU WISH TO USE";A
  27. 2260  IF A=1 THEN 2390
  28. 2270  IF A=2 THEN 2600
  29. 2280  IF A=3 THEN 2820
  30. 2290  IF A=4 THEN 3020
  31. 2300  IF A=5 THEN 3250
  32. 2310  IF A=6 THEN 3430
  33. 2320  IF A=7 THEN 3620
  34. 2330  IF A=8 THEN 3820
  35. 2340  IF A=9 THEN 3990
  36. 2350  IF A=10 THEN 4160
  37. 2360  IF A=11 THEN 4330
  38. 2370  IF A=12 THEN 4500
  39. 2380  GOTO 2000
  40. 2390  CLS
  41. 2400  B$="******** VOLTAGE (E) WHEN (I) AND (R) ARE KNOWN ********"
  42. 2410  F=40-LEN(B$)/2:LOCATE 1,F:PRINT B$
  43. 2420  PRINT
  44. 2430  GOSUB 4670
  45. 2440  PRINT " ":PRINT
  46. 2450  PRINT"                                                      E=IxR"
  47. 2460  PRINT
  48. 2470  INPUT"PLEASE ENTER THE VALUE OF (I) IN AMPS";I
  49. 2480  INPUT"PLEASE ENTER THE VALUE OF (R) IN OHMS";R
  50. 2490  PRINT
  51. 2500  E=I*R
  52. 2510  LOCATE 15,1:PRINT"THE VOLTAGE (E) IS ----------------------> ";E;" VOLTS"
  53. 2520  PRINT:PRINT:PRINT
  54. 2530  GOSUB 4670
  55. 2540  PRINT " "
  56. 2550  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  57. 2560  Z$=INKEY$:IF Z$="" THEN 2560
  58. 2570  IF Z$="C" OR Z$="c" THEN 2390
  59. 2580  IF Z$="S" OR Z$="s" THEN 2000
  60. 2590  RUN "MAINMENU"
  61. 2600  CLS
  62. 2610  B$="******** CURRENT (I) WHEN (E) AND (R) ARE KNOWN ********"
  63. 2620  F=40-LEN(B$)/2:LOCATE 1,F:PRINT B$
  64. 2630  PRINT
  65. 2640  GOSUB 4670
  66. 2650  PRINT " ":PRINT
  67. 2660  PRINT"                                                         E"
  68. 2670  PRINT"                                                      I= -"
  69. 2680  PRINT"                                                         R"
  70. 2690  PRINT:PRINT
  71. 2700  INPUT"PLEASE ENTER THE VALUE OF (E) IN VOLTS";E
  72. 2710  INPUT"PLEASE ENTER THE VALUE OF (R) IN OHMS ";R
  73. 2720  PRINT
  74. 2730  I=E/R
  75. 2740  LOCATE 15,1:PRINT"THE CURRENT (I) IS -----------------------> ";I;" AMPS"
  76. 2750  PRINT:PRINT:PRINT
  77. 2760  GOSUB 4670:PRINT " "
  78. 2770  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  79. 2780  Z$=INKEY$:IF Z$="" THEN 2780
  80. 2790  IF Z$="C" OR Z$="c" THEN 2600
  81. 2800  IF Z$="S" OR Z$="s" THEN 2000
  82. 2810  RUN "MAINMENU"
  83. 2820  CLS
  84. 2830  B$="******** POWER (P) WHEN (I) AND (R) ARE KNOWN ********"
  85. 2840  F=40-LEN(B$)/2:LOCATE 1,F:PRINT B$
  86. 2850  PRINT
  87. 2860  GOSUB 4670
  88. 2870  PRINT " ":PRINT
  89. 2880  PRINT"                                                      P=I";CHR$(253);"R"
  90. 2890  PRINT:PRINT
  91. 2900  INPUT"PLEASE ENTER THE VALUE OF (I) IN AMPS";I
  92. 2910  INPUT"PLEASE ENTER THE VALUE OF (R) IN OHMS";R
  93. 2920  PRINT
  94. 2930  P=I^2*R
  95. 2940  LOCATE 15,1:PRINT"THE POWER (P) IS ------------------------>";P;" WATTS"
  96. 2950  PRINT:PRINT:PRINT:GOSUB 4670
  97. 2960  PRINT" "
  98. 2970  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO CONTINUE";
  99. 2980  Z$=INKEY$:IF Z$="" THEN 2980
  100. 2990  IF Z$="C" OR Z$="c" THEN 2820
  101. 3000  IF Z$="S" OR Z$="s" THEN 2000
  102. 3010  RUN "MAINMENU"
  103. 3020  CLS
  104. 3030  F$="******** RESISTANCE (R) WHEN (E) AND (I) ARE KNOWN ********"
  105. 3040  F=40-LEN(F$)/2:LOCATE 1,F:PRINT F$
  106. 3050  PRINT
  107. 3060  GOSUB 4670
  108. 3070  PRINT " ":PRINT
  109. 3080  PRINT"                                                         E"
  110. 3090  PRINT"                                                      R= -"
  111. 3100  PRINT"                                                         I"
  112. 3110  PRINT
  113. 3120  INPUT"PLEASE ENTER THE VALUE OF (E) IN VOLTS";E
  114. 3130  INPUT"PLEASE ENTER THE VALUE OF (I) IN AMPS ";I
  115. 3140  PRINT
  116. 3150  R=E/I
  117. 3160  LOCATE 15,1:PRINT"THE RESISTANCE (R) IS --------------------> ";R;" OHMS"
  118. 3170  PRINT:PRINT:PRINT
  119. 3180  GOSUB 4670
  120. 3190  PRINT" "
  121. 3200  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  122. 3210  Z$=INKEY$:IF Z$="" THEN 3210
  123. 3220  IF Z$="C" OR Z$="c" THEN 3020
  124. 3230  IF Z$="S" OR Z$="s" THEN 2000
  125. 3240  RUN "MAINMENU"
  126. 3250  CLS:F$="******** POWER (P) WHEN (E) AND (I) ARE KNOWN ********"
  127. 3260  F=40-LEN(F$)/2:LOCATE 1,F:PRINT F$:PRINT
  128. 3270  GOSUB 4670
  129. 3280  PRINT" ":PRINT
  130. 3290  PRINT"                                                      P=ExI"
  131. 3300  PRINT
  132. 3310  INPUT"PLEASE ENTER THE VALUE OF (E) IN VOLTS";E
  133. 3320  INPUT"PLEASE ENTER THE VALUE OF (I) IN AMPS ";I
  134. 3330  PRINT
  135. 3340  P=E*I
  136. 3350  LOCATE 15,1:PRINT"THE POWER (P) IS -------------------------> ";P;" WATTS"
  137. 3360  PRINT:PRINT:PRINT:GOSUB 4670
  138. 3370  PRINT" "
  139. 3380  PRINT"(C) TO CONTINUE,(S) TO SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  140. 3390  Z$=INKEY$:IF Z$="" THEN 3390
  141. 3400  IF Z$="C" OR Z$="c" THEN 3250
  142. 3410  IF Z$="S" OR Z$="s" THEN 2000
  143. 3420  RUN "MAINMENU"
  144. 3430  CLS:F$="******** RESISTANCE (R) WHEN (P) AND (I) ARE KNOWN ********"
  145. 3440  F=40-LEN(F$)/2:LOCATE 1,F:PRINT F$:PRINT:GOSUB 4670
  146. 3450  PRINT" ":PRINT
  147. 3460  PRINT"                                                         P"
  148. 3470  PRINT"                                                      R= -"
  149. 3480  PRINT"                                                         I";CHR$(253)
  150. 3490  PRINT
  151. 3500  INPUT"PLEASE ENTER THE VALUE OF (P) IN WATTS";P
  152. 3510  INPUT"PLEASE ENTER THE VALUE OF (I) IN AMPS ";I
  153. 3520  PRINT
  154. 3530  R=P/I^2
  155. 3540  LOCATE 15,1:PRINT"THE RESISTANCE (R) IS --------------------> ";R;" OHMS"
  156. 3550  PRINT:PRINT:PRINT:GOSUB 4670
  157. 3560  PRINT" "
  158. 3570  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  159. 3580  Z$=INKEY$:IF Z$="" THEN 3580
  160. 3590  IF Z$="C" OR Z$="c" THEN 3430
  161. 3600  IF Z$="S" OR Z$="s" THEN 2000
  162. 3610  RUN "MAINMENU"
  163. 3620  CLS:F$="******** VOLTAGE (E) WHEN (P) AND (I) ARE KNOWN ********"
  164. 3630  F=40-LEN(F$)/2:LOCATE 1,F:PRINT F$
  165. 3640  PRINT
  166. 3650  GOSUB 4670
  167. 3660  PRINT:PRINT
  168. 3670  PRINT " ":PRINT
  169. 3680  PRINT"                                                         P"
  170. 3690  PRINT"                                                      E= -"
  171. 3700  PRINT"                                                         I"
  172. 3710  PRINT
  173. 3720  INPUT"PLEASE ENTER THE VALUE OF (P) IN WATTS";P
  174. 3730  INPUT"PLEASE ENTER THE VALUE OF (I) IN AMPS ";I
  175. 3740  E=P/I
  176. 3750  LOCATE 15,1:PRINT"THE VOLTAGE (E) IS -----------------------> ";E;" VOLTS"
  177. 3760  PRINT:PRINT:PRINT:GOSUB 4670:PRINT" "
  178. 3770  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  179. 3780  Z$=INKEY$:IF Z$="" THEN 3780
  180. 3790  IF Z$="C" OR Z$="c" THEN 3620
  181. 3800  IF Z$="S" OR Z$="s" THEN 2000
  182. 3810  RUN "MAINMENU"
  183. 3820  CLS:F$="******** CURRENT (I) WHEN (P) AND (E) ARE KNOWN ********"
  184. 3830  F=40-LEN(F$)/2:LOCATE 1,F:PRINT F$:PRINT:GOSUB 4670
  185. 3840  PRINT:PRINT
  186. 3850  PRINT"                                                         P"
  187. 3860  PRINT"                                                      I= -"
  188. 3870  PRINT"                                                         E"
  189. 3880  PRINT:PRINT
  190. 3890  INPUT"PLEASE ENTER THE VALUE OF (P) IN WATTS";P
  191. 3900  INPUT"PLEASE ENTER THE VALUE OF (E) IN VOLTS";E
  192. 3910  I=P/E
  193. 3920  LOCATE 15,1:PRINT"THE CURRENT (I) IS -----------------------> ";I;" AMPS"
  194. 3930  PRINT:PRINT:PRINT:GOSUB 4670:PRINT" "
  195. 3940  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  196. 3950  Z$=INKEY$:IF Z$="" THEN 3950
  197. 3960  IF Z$="C" OR Z$="c" THEN 3820
  198. 3970  IF Z$="S" OR Z$="s" THEN 2000
  199. 3980  RUN "MAINMENU"
  200. 3990  CLS:F$="******** CURRENT (I) WHEN (P) AND (R) ARE KNOWN ********"
  201. 4000  F=40-LEN(F$)/2:LOCATE 1,F:PRINT F$:PRINT
  202. 4010  GOSUB 4670:PRINT" ":PRINT
  203. 4020  PRINT"                                                        ";CHR$(251);"P";CHR$(251);"R"
  204. 4030  PRINT"                                                      I= ---"
  205. 4040  PRINT"                                                          R"
  206. 4050  PRINT:PRINT
  207. 4060  INPUT"PLEASE ENTER THE VALUE OF (P) IN WATTS";P
  208. 4070  INPUT"PLEASE ENTER THE VALUE OF (R) IN OHMS ";R
  209. 4080  I=SQR(P*R)/R
  210. 4090  LOCATE 15,1:PRINT"THE CURRENT (I) IS -----------------------> ";I;" AMPS"
  211. 4100  PRINT:PRINT:PRINT:GOSUB 4670:PRINT" "
  212. 4110  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  213. 4120  Z$=INKEY$:IF Z$="" THEN 4120
  214. 4130  IF Z$="C" OR Z$="c" THEN 3990
  215. 4140  IF Z$="S" OR Z$="s" THEN 2000
  216. 4150  RUN "MAINMENU"
  217. 4160  CLS:F$="******** VOLTAGE (E) WHEN (P) AND (R) ARE KNOWN ********"
  218. 4170  F=40-LEN(F$)/2:LOCATE 1,F:PRINT F$:PRINT:GOSUB 4670
  219. 4180  LOCATE 6,1
  220. 4190  PRINT"                                                      E=";CHR$(251);"P";CHR$(251);"R"
  221. 4200  LOCATE 10,1
  222. 4210  INPUT"PLEASE ENTER THE VALUE OF (P) IN WATTS";P
  223. 4220  INPUT"PLEASE ENTER THE VALUE OF (R) IN OHMS ";R
  224. 4230  PRINT
  225. 4240  E=SQR(P*R)
  226. 4250  LOCATE 15,1:PRINT"THE VOLTAGE (E) IS ------------------------> ";E;" VOLTS"
  227. 4260  PRINT:PRINT:PRINT:GOSUB 4670
  228. 4270  PRINT" "
  229. 4280  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  230. 4290  Z$=INKEY$:IF Z$="" THEN 4290
  231. 4300  IF Z$="C" OR Z$="c" THEN 4160
  232. 4310  IF Z$="S" OR Z$="s" THEN 2000
  233. 4320  RUN"MAINMENU"
  234. 4330  CLS:F$="******** POWER (P) WHEN (E) AND (R) ARE KNOWN ********"
  235. 4340  F=40-LEN(F$)/2:LOCATE 1,F:PRINT F$:PRINT:GOSUB 4670
  236. 4350  LOCATE 6,1
  237. 4360  PRINT"                                                         E";CHR$(253)
  238. 4370  PRINT"                                                      P= -"
  239. 4380  PRINT"                                                         R"
  240. 4390  PRINT:PRINT
  241. 4400  INPUT"PLEASE ENTER THE VALUE OF (E) IN VOLTS";E
  242. 4410  INPUT"PLEASE ENTER THE VALUE OF (R) IN OHMS ";R
  243. 4420  P=(E^2)/R
  244. 4430  LOCATE 15,1:PRINT"THE POWER (P) IS ------------------------> ";P;" WATTS"
  245. 4440  PRINT:PRINT:PRINT:GOSUB 4670:PRINT" "
  246. 4450  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  247. 4460  Z$=INKEY$:IF Z$="" THEN 4460
  248. 4470  IF Z$="C" OR Z$="c" THEN 4330
  249. 4480  IF Z$="S" OR Z$="s" THEN 2000
  250. 4490  RUN "MAINMENU"
  251. 4500  CLS:F$="******** RESISTANCE (R) WHEN (E) AND (P) ARE KNOWN ********"
  252. 4510  F=40-LEN(F$)/2:LOCATE 1,F:PRINT F$:PRINT:GOSUB 4670
  253. 4520  LOCATE 6,1
  254. 4530  PRINT"                                                         E";CHR$(253)
  255. 4540  PRINT"                                                      R= -"
  256. 4550  PRINT"                                                         P"
  257. 4560  PRINT:PRINT
  258. 4570  INPUT"PLEASE ENTER THE VALUE OF (E) IN VOLTS";E
  259. 4580  INPUT"PLEASE ENTER THE VALUE OF (P) IN WATTS";P
  260. 4590  R=(E^2)/P
  261. 4600  LOCATE 15,1:PRINT"THE RESISTANCE (R) IS -------------------> ";R;" OHMS"
  262. 4610  PRINT:PRINT:PRINT:GOSUB 4670:PRINT" "
  263. 4620  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  264. 4630  Z$=INKEY$:IF Z$="" THEN 4630
  265. 4640  IF Z$="C" OR Z$="c" THEN 4500
  266. 4650  IF Z$="S" OR Z$="s" THEN 2000
  267. 4660  RUN "MAINMENU"
  268. 4670  FOR M=1 TO 80:PRINT CHR$(178);:NEXT M:RETURN
  269.