home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / math / formulas / prog5.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1988-12-26  |  818 b   |  31 lines
  1. 6500  CLS
  2. 6510  F$="******** PARALLEL CAPACITOR CIRCUITS ********"
  3. 6520  F=40-LEN(F$)/2
  4. 6530  LOCATE 1,F
  5. 6540  PRINT F$:PRINT:GOSUB 6730:PRINT" ":PRINT
  6. 6550  LOCATE 6,50
  7. 6560  PRINT"CT=";CHR$(228);"C=C1+C2+C3....+Cn"
  8. 6570  R=0:A=0:SUMR=0:RT=0:RN=0
  9. 6580  PRINT:PRINT
  10. 6590  PRINT"PLEASE LIMIT THE AMOUNT OF CAPACITORS TO BE TOTALED TO 7"
  11. 6600  INPUT"HOW MANY CAPACITORS DO YOU HAVE IN PARALLEL";RN
  12. 6610  IF RN>7 THEN GOSUB 6740:IF RN>7 THEN 6500
  13. 6620  PRINT
  14. 6630  FOR RT=1 TO RN
  15. 6640  PRINT"ENTER THE VALUE OF #";RT;"CAPACITOR";:INPUT R
  16. 6650  SUMR=R+SUMR
  17. 6660  NEXT
  18. 6670  PRINT:PRINT"THE SUM OF THE CAPACITORS IS --------------------> ";SUMR;" FARADS"
  19. 6680  PRINT:GOSUB 6730:PRINT" "
  20. 6690  PRINT"HIT ANY KEY TO RETURN TO MAIN MENU OR (C) TO CONTINUE";
  21. 6700  Z$=INKEY$:IF Z$="" THEN 6700
  22. 6710  IF Z$="C" THEN 6500
  23. 6720  RUN "MAINMENU"
  24. 6730  FOR M=1 TO 80:PRINT CHR$(178);:NEXT M:RETURN
  25. 6740  CLS:F$="YOU ENTERED TO LARGE A NUMBER"
  26. 6750  F=40-LEN(F$)/2:LOCATE 12,F:PRINT F$
  27. 6760  FOR I=1 TO 100
  28. 6770  SOUND 1200,0.5
  29. 6780  SOUND 1400,0.5
  30. 6790  NEXT:RETURN
  31.