home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / math / formulas / prog3.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1988-12-26  |  982 b   |  36 lines
  1. 5500  CLS
  2. 5510  F$="******** PARALLEL RESISTOR CIRCUITS ********"
  3. 5520  F=40-LEN(F$)/2
  4. 5530  LOCATE 1,F
  5. 5540  PRINT F$
  6. 5550  PRINT:GOSUB 5780:PRINT" ":PRINT
  7. 5560  LOCATE 5,62:PRINT"1"
  8. 5570  LOCATE 6,50:PRINT"R= ------------------"
  9. 5580  LOCATE 7,54:PRINT"1    1        1"
  10. 5590  LOCATE 8,52:PRINT CHR$(228);" -- + --";CHR$(249);CHR$(249);CHR$(249);CHR$(249);" + --"
  11. 5600  LOCATE 9,54:PRINT"R1   R2       Rn"
  12. 5610  RN=0:A=0:RT=0:SUMR=0:R=0
  13. 5620  PRINT:PRINT"PLEASE LIMIT THE AMOUNT OF RESISTORS TO BE TOTALED TO 5"
  14. 5630  INPUT"HOW MANY RESISTORS DO YOU HAVE IN PARALLEL";RN
  15. 5640  IF RN>5 THEN GOSUB 5790:IF RN>5 THEN 5500
  16. 5650  PRINT
  17. 5660  FOR RT=1 TO RN
  18. 5670  PRINT"ENTER THE VALUE OF #";RT;"RESISTOR";:INPUT R
  19. 5680  IF RN=1 THEN SUMR=R:IF RN=1 THEN 5720
  20. 5690  A=A+(1/R)
  21. 5700  NEXT
  22. 5710  SUMR=1/A
  23. 5720  PRINT:PRINT"THE TOTAL RESISTANCE IN PARALLEL IS ------------> ";SUMR;" OHMS"
  24. 5730  PRINT:GOSUB 5780:PRINT" "
  25. 5740  PRINT"HIT ANY KEY TO RETURN TO MAIN MENU OR (C) TO CONTINUE";
  26. 5750  Z$=INKEY$:IF Z$="" THEN 5750
  27. 5760  IF Z$="C" THEN 5500
  28. 5770  RUN "MAINMENU"
  29. 5780  FOR M=1 TO 80:PRINT CHR$(178);:NEXT M:RETURN
  30. 5790  CLS:F$="YOU ENTER TO LARGE A NUMBER"
  31. 5800  F=40-LEN(F$)/2:LOCATE 12,F:PRINT F$
  32. 5810  FOR I=1 TO 100
  33. 5820  SOUND 1200,0.5
  34. 5830  SOUND 1400,0.5
  35. 5840  NEXT:RETURN
  36.