作业帮 > 综合 > 作业

fortran求解方程一元二次方程的根,并输出.a,b,c的值由键盘输出.哪位大侠帮我看看这段程序哪个地方出错

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/27 16:18:17
fortran求解方程一元二次方程的根,并输出.a,b,c的值由键盘输出.哪位大侠帮我看看这段程序哪个地方出错
program example6_7
integer a,b,c
real d,d0
write(*,"('请输入系数A,B,C:'\)")
read*,a,b,c
d=b*b-4*a*c
if(a==0)then
if(b/=0)then
write(*,*) "方程只有一个解",-c/b
else if(c/=0)then
write(*,*) "方程无解"
else
write(*,*) "方程有无穷个解"
end if
else if(d
xi=sqrt(-d)/(2a)
改为
xi=sqrt(-d)/(2*a)