home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / basic / math.ark / ROOTS.BAS < prev    next >
BASIC Source File  |  1986-12-20  |  1KB  |  32 lines
  1. 10 REM THIS IS PROGRAM "ROOTS" A PROGRAM TO SOLVE QUADRATIC EQUATIONS
  2. 20 REM
  3. 30 REM THIS PROGRAM WAS WRITTEN BY M. FINERTY ON 10/16/84
  4. 40 REM A QUADRATIC IS WRITEN A*X^2 + B*X + C = 0
  5. 50 REM IF A = 0, THE EQUATION IS NOT QUADRATIC.
  6. 60 REM ******************************************************************
  7. 70 REM
  8. 80 INPUT "A =";A
  9. 90 INPUT "B =";B
  10. 100 INPUT "C =";C
  11. 110 DISCRIM = B^2 - 4*A*C
  12. 120 REM
  13. 130 ON SGN(DISCRIM) + 2 GOTO 140,170,200
  14. 140 PRINT "ROOTS ARE:";-B/(2*A);"+ i*";SQR(ABS(DISCRIM))/(2*A)
  15. 150 PRINT "AND:      ";-B/(2*A);"- i*";SQR(ABS(DISCRIM))/(2*A)
  16. 160 GOTO 220
  17. 170 PRINT "ROOTS ARE:";-B/(2*A)
  18. 180 PRINT "AND:      ";-B/(2*A)
  19. 190 GOTO 220
  20. 200 PRINT "ROOTS ARE:";-B/(2*A) + SQR(DISCRIM)/(2*A)
  21. 210 PRINT "AND:      ";-B/(2*A) - SQR(DISCRIM)/(2*A)
  22. 220 PRINT "--ooO0Ooo--"
  23. 230 PRINT "DO YOU WANT ANOTHER QUADRATIC? Y/N?"
  24. 240 INPUT A$
  25. 250 IF A$ = "Y" THEN 10
  26. 260 END
  27. *A)
  28. 220 PRINT "--ooO0Ooo--"
  29. 230 PRINT "DO YOU WANT ANOTHER QUADRATIC? Y/N?"
  30. 240 INPUT A$
  31. 250 IF A$ = "Y" THEN 10
  32.