home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / engprog / parres.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-05-20  |  599 b   |  19 lines
  1. 10  CLS
  2. 20  PRINT TAB(36)"RT=(R1*R2)/(R1+R2)
  3. 30  PRINT:PRINT STRING$(79,22):PRINT
  4. 40  PRINT "THE TOTAL RESISTANCE OF TWO RESISTORS IN PARALLEL IS EQUAL TO"
  5. 50  PRINT"THE PRODUCT OF THE TWO RESISTORS DIVIDED BY THE SUM OF THE TWO RESISTORS":PRINT
  6. 60  INPUT"ENTER FIRST RESISTOR IN OHMS ";R1
  7. 70  INPUT"ENTER SECOND RESISTOR IN OHMS ";R2
  8. 80  RT=(R1*R2)/(R1+R2)
  9. 90  REM FOR SPACE ONLY
  10. 100  PRINT:PRINT"TOTAL RESISTANCE = ";RT;:PRINT" OHMS"
  11. 110  PRINT:PRINT STRING$(79,250)
  12. 120  PRINT:PRINT"CHOOSE"
  13. 130  PRINT:PRINT"DO ANOTHER .........................A"
  14. 140  PRINT:PRINT"RETURN TO MAIN MENU.................R"
  15. 150  A$= INKEY$: IF A$= "" THEN 150
  16. 160  IF A$= "A" THEN CLS: GOTO 60
  17. 170  IF A$= "R" THEN CLS:RUN "MAINMENU"
  18. 180  GOTO 110
  19.