home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / QUADRATIC (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  768 b   |  32 lines
  1. 1 PRINT"":POKE 53280,0:POKE 53281,0
  2. 10 PRINT"[147]"
  3. 13 PRINT"  A(X**2)+B(X)+C=0":PRINT""
  4. 14 A=0:B=0:C=O
  5. 15 PRINT"  ENTER A:"
  6. 17 INPUT A
  7. 20 PRINT"  ENTER B:"
  8. 25 INPUT B
  9. 30 PRINT"  ENTER C:"
  10. 32 INPUT C
  11. 35 PRINT
  12. 39 PRINT"THE QUADRATIC IS;":PRINT""
  13. 40 PRINT" "A"(X**2)+"B"(X)+"C"=0":PRINT""
  14. 45 X=(B^2)-(4*A*C)
  15. 46 IF A=0 THEN PRINT"THIS IS NOT A QUADRATIC, A=0":GOTO 120
  16. 50 IF X<0 THEN GOTO 100
  17. 60 Y(1)=((-B)+(X^0.5))/(2*A)
  18. 62 Y(2)=((-B)-(X^0.5))/(2*A)
  19. 70 PRINT"":PRINT""
  20. 75 PRINT"THE ROOTS ARE;":PRINT""
  21. 76 PRINT"ROOT1="Y(1):PRINT"":PRINT"ROOT2="Y(2):PRINT""
  22. 80 GOTO 120
  23. 100 PRINT"":PRINT""
  24. 105 PRINT"THE ROOTS ARE IMAGINARY,THEY ARE;":PRINT""
  25. 109 D=(-B):E=((-X)^0.5):F=(2*A)
  26. 110 PRINT"ROOT1="D/F"+("E/F")J":PRINT""
  27. 115 PRINT"ROOT1="D/F"-("E/F")J"
  28. 120 PRINT"":PRINT"":PRINT"DO YOU WANT TO RUN AGAIN?(Y/N)"
  29. 130 GET A$:IFA$="" THEN 130
  30. 132 IF A$="Y" THEN GOTO 10
  31. 134 NEW:END
  32.