Fortran解一元二次方程.源程序：program nameimplicit nonereal a,b,c,d,x1,x2print*,'输入系数a,b,c:'read*,a,b,cd=b**2-4.0*a*cif(d>0.0)thenx1=(-b+sqrt(d))/(2.0*a)x2=(-b-sqrt(d))/(2.0*a)print*,'两个不等实根'print*,'x1=',x1print*,'x2=',
来源：学生作业帮助网 编辑：六六作业网 时间：2024/12/25 22:14:48
Fortran解一元二次方程.源程序：program nameimplicit nonereal a,b,c,d,x1,x2print*,'输入系数a,b,c:'read*,a,b,cd=b**2-4.0*a*cif(d>0.0)thenx1=(-b+sqrt(d))/(2.0*a)x2=(-b-sqrt(d))/(2.0*a)print*,'两个不等实根'print*,'x1=',x1print*,'x2=',
Fortran解一元二次方程.
源程序：
program name
implicit none
real a,b,c,d,x1,x2
print*,'输入系数a,b,c:'
read*,a,b,c
d=b**2-4.0*a*c
if(d>0.0)then
x1=(-b+sqrt(d))/(2.0*a)
x2=(-b-sqrt(d))/(2.0*a)
print*,'两个不等实根'
print*,'x1=',x1
print*,'x2=',x2
end if
end
当运行时,输入1.0,2.0,-3.0出现了错误,但是输入1.0（enter键）2.0（enter键）-3.0（enter键）却可以正确运行,why?注：版本是Fortran Powerstation 4.0
Fortran解一元二次方程.源程序：program nameimplicit nonereal a,b,c,d,x1,x2print*,'输入系数a,b,c:'read*,a,b,cd=b**2-4.0*a*cif(d>0.0)thenx1=(-b+sqrt(d))/(2.0*a)x2=(-b-sqrt(d))/(2.0*a)print*,'两个不等实根'print*,'x1=',x1print*,'x2=',
程序没有问题,我试过可以运行.
会不会把逗号输成全角的了?
要不然把 read*,a,b,c 改成 read(*,*)a,b,c 试试.我这里两种写法效果一样.