1000 rem Micheal H. McCabe
1010 rem quadratic formula
1020 home
1030 print "Find Roots of a Quadratic Equation using the Quadratic Formula:"
1040 print "==============================================================================================="
1050 print
1060 print "Given a general quadratic equation of the form:"
1070 print
1080 print tab (10);"Ax^2 + Bx + C = 0"
1090 print
1100 print "This program will find the roots of the equation using the quadratic formula."
1110 print
1120 print tab (10);" X1 = (-B + SQR(B^2-4*A*C)) / (2 * A)"
1130 print tab (10);" X2 = (-B - SQR(B^2-4*A*C)) / (2 * A)"
1140 print
1150 input "Enter a value for A: ";a
1160 input "Enter a value for B: ";b
1170 input "Enter a value for C: ";c
1180 rem
1190 let x1 = (-b+sqr(b^2-4*a*c))/(2*a)
1200 let x2 = (-b-sqr(b^2-4*a*c))/(2*a)
1210 print
1220 print "-----------------------------------------------------------------------------------------------"
1230 print
1240 print "The roots of the equation are:  ";x1;" and ";x2
1250 print
1260 input "Would you like to solve another equation? ";q$
1270 print
1280 if q$ = "Y" or q$ = "YES" then 1020
1290 print "End Program."
1300 end