Fortran解一元二次方程.源程序：programnameimplicitnonereala,b,c,d,x1,x2print*,#39;输入系数a,b,c:#39;read*,a,b,cd=b**2-4.0*a*cif(dgt;0.0)thenx1=(-b+sqrt(d))/(2.0*a)x2=(-b-sqrt(d))/(2.0*a)print*,#39;两个不等实根#39;print*,#3

问题：Fortran解一元二次方程.源程序：programnameimplicitnonereala,b,c,d,x1,x2print*,#39;输入系数a,b,c:#39;read*,a,b,cd=b**2-4.0*a*cif(dgt;0.0)thenx1=(-b+sqrt(d))/(2.0*a)x2=(-b-sqrt(d))/(2.0*a)print*,#39;两个不等实根#39;print*,#39;x1=#39;,x1print*,#39;x2=#39;,

答案：↓↓↓

陈善文的回答：

网友采纳　　程序没有问题,我试过可以运行.　　会不会把逗号输成全角的了?　　要不然把read*,a,b,c改成read(*,*)a,b,c试试.我这里两种写法效果一样.