home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCTORY / GEOGRAPY / M18.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-04  |  512 b   |  17 lines
  1. 0  CLS:PRINT
  2. 10   PRINT "ROOTS OF QUADRATIC EQUATIONS"
  3. 20   PRINT 
  4. 30   PRINT "COEFFICIENTS A,B,C";
  5. 40   INPUT A,B,C
  6. 50  S = B ^ 2 - 4 * A * C
  7. 60  R =  SQR ( ABS (S))
  8. 70   IF S < 0 THEN 100
  9. 80   PRINT "ROOTS (REAL):  ";( - B - R) / (2 * A);",  ";( - B + R) / (2 * A)
  10. 90   GOTO 110
  11. 100   PRINT "ROOTS (COMPLEX):  "; - B / (2 * A);" + OR - ";R / (2 * A);" I"
  12. 110   PRINT 
  13. 120   PRINT "MORE DATA (1=YES,0=NO)";
  14. 130   INPUT X
  15. 140   IF X = 1 THEN 20
  16. 150   RUN "MATH"
  17.