作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/07/14 23:06:10
谁能帮我一下,编写这个程序,求解一元二次方程ax平方+bx+c=0的根(假设b平方-4ac=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.