题目

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

提问时间：2021-04-08

答案

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