作业帮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
来源：学生作业帮助网 编辑：作业帮 时间：2024/08/01 17:22:56
xoK@ 8D
N\ J%% k
K(Tfv7}ݦ X
j5]}S:Y۶zbg;4noDJ/v5,7)խrUUiнC,oVG6S'fgaT $20'ڂ(0Va&V
ċm2wm?<ӣX+U'0"7eQ̉P1 AXGǩr},W~y\Q!Wp04-q^(p RS3k1>J؎i䌉
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)