谁能帮我一下，编写这个程序,求解一元二次方程ax平方+bx+c=0的根(假设b平方-4ac=0)

推荐回答

var a,b,c,m:real;begin readln(a,b,c); m:=b*b-4*a*c; if m>0 then begin write((-1*b+sqrt(m))/(2*a):0:3); write(','); write((-1*b-sqrt(m))/(2*a):0:3); end else write((-1*b)/(2*a):0:3);end.