home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / basic / math.ark / QUADRATS.BAS < prev    next >
Encoding:
BASIC Source File  |  1986-12-21  |  1.0 KB  |  34 lines
  1. 10 REM THIS IS PROGRAM "QUADROOT" 
  2. 20 REM THIS PROGRAM CALCULATES THE ROOTS OF A QUADRATIC EQUATION
  3. 30 REM Y = A*X^2 + B*X + C HAS TWO ROOTS AT Y = O
  4. 40 LPRINT "PROGRAM QUADROOT"
  5. 50 PRINT "PROGRAM QUADROOT"
  6. 60 INPUT "A=";A
  7. 70 LPRINT "A=";A
  8. 80 INPUT "B=";B
  9. 90 LPRINT "B=";B
  10. 100 INPUT "C=";C
  11. 110 LPRINT "C=";C
  12. 120 DIS = B^2 - 4*A*C
  13. 130 IF DIS > 0 THEN 170
  14. 140 IF DIS < 0 THEN 190
  15. 150 LPRINT "EQUAL ROOTS ="; -B/(2*A); ","; -B/(2*A)
  16. 160 GOTO 210
  17. 170 LPRINT "REAL ROOTS=" (-B+(DIS)^.5)/(2*A) "&" (-B-(DIS)^.5)/(2*A)   
  18. 180 GOTO 210
  19. 190 IMAG = ABS(DIS)
  20. 200 LPRINT "COMPLEX ROOTS="; -B/(2*A);"+i*";((IMAG)^.5)/(2*A); "&"; -B/(2*A);"-i*";((IMAG)^.5)/(2*A)
  21. 210 PRINT "ROOTS ARE ON PRINTOUT"
  22. 220 PRINT "--ooOOOoo--"
  23. 230 LPRINT "--ooOOOoo--"
  24. 240 LPRINT
  25. 250 PRINT
  26. 260 PRINT "DO YOU WANT ANOTHER QUADRATIC? Y/N?"
  27. 270 INPUT ANS$
  28. 280 IF ANS$ = "Y" THEN 10
  29. 290 PRINT "RETURN TO MBASIC COMMAND LEVEL"
  30. 300 END
  31. WANT ANOTHER QUADRATIC? Y/N?"
  32. 270 INPUT ANS$
  33. 280 IF ANS$ = "Y" THEN 10
  34. 290 PRINT "RETURN TO MBASI