作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/08/05 12:34:14
谁能帮我一下,编写这个程序,求解一元二次方程ax平方+bx+c=0的根(假设b平方-4ac=0)
后面错了,是b平方-4ac>=0
谁能帮我一下,编写这个程序,求解一元二次方程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.