real x,y,s,t
x=2
y=1
s=0
do i=1,20
s=s+x/y
t=x
x=x+y
y=t
end do
print *,s
end
这样写就对了
结果是 s=32.66026
real x,y,s
x=2
y=1
s=0
do i=1,20
s=s+x/y
t=x
x=x+y
y=t
end do
print *,s
end
你这样再试试。。
把read*，那行去掉应该就可以了
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024