Question

编写一元二次方程ax^2+bx+c=0的求根程序,要求能判断方程是否有根,如果有则输出其

Answer 1

1.计算b^-4ac的值；
2.（1）若b^-4ac小于0，则此方程无解；
（2）若b^-4ac大于0，则继续计算；
3.计算“根号”b^-4ac；
4.x=-b“加减”“根号”b^-4ac/2a
5.解出两根。

Answer 2

INPUT “a,b,c=”;a,b,c
d=b*b-4*a*c
IF d>=0 THEN
P=-b/(2*a)
q=SQR(d)/(2*a)
IF d=0 THEN
PRINT “One read root:”;p
ELSE
x1=p+q
x2=p-q
PRINT “Two read toors:”;x1,x2
END IF
ELSE
PRINT “No real root.”
END IF
END