fortran求解方程一元二次方程的根,并输出.a,b,c的值由键盘输出.哪位大侠帮我看看这段程序哪个地方出错program example6_7integer a,b,creal d,d0write(*,"('请输入系数A,B,C:'\)")read*,a,b,cd=b*b-4*a*cif(a==0)then if

fortran求解方程一元二次方程的根,并输出.a,b,c的值由键盘输出.哪位大侠帮我看看这段程序哪个地方出错program example6_7integer a,b,creal d,d0write(*,"('请输入系数A,B,C:'\)")read*,a,b,cd=b*b-4*a*cif(a==0)then if
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

fortran求解方程一元二次方程的根,并输出.a,b,c的值由键盘输出.哪位大侠帮我看看这段程序哪个地方出错program example6_7integer a,b,creal d,d0write(*,"('请输入系数A,B,C:'\)")read*,a,b,cd=b*b-4*a*cif(a==0)then if
xi=sqrt(-d)/(2a)
改为
xi=sqrt(-d)/(2*a)