fortran计算1-1/2+1/3-1/4+...+1/99-1/100结果等于1,什么地方错了?programmainintegera,brealsuma=1sum=1dob=2,100a=-1*asum=sum+a*(1/b)enddowrite(*,*)sumend

Question

fortran计算1-1/2+1/3-1/4+...+1/99-1/100 结果等于1,什么地方错了?
program main
integer a,b
real sum
a=1
sum=1
do b=2,100
a=-1*a
sum=sum+a*(1/b)
enddo
write(*,*)sum
end

Answer 1

你的错误在于你没有把整型转换为实型
program main
integer a,b
real sum
a=1
sum=1.0
do b=2,100
a=-1*a
sum=sum+float(a)*(float(1)/float(b))
enddo
write(*,*)sum
end