您所在位置：主题：初学者-求助一个编程中遇到的错误
mengyingmengying
[专家分：0] 发布于 2012-03-31 14:31:00
!计算arctanx=x-(1/3)*(x**3)+(1/5)*(x**5)+...+((-1)**n)*(2n+1)*(x**(2n+1))，
program arctac
implicit none
integer::n,i
real::x,arctan
write(*,*) '请输入x'
read(*,*) x
arctan=0
n=0
do while((1/(1+2*n)) .gt. 1e-6)
i=2*n+1
arctan= arctan+(((-1.0)**n)*(1/i)*(x**i))
n=n+1
print*,n,'arctan=',arctan
enddo
end program
运行的时候总是只循环一次，那位高手帮忙看看哪错了？
program arctac
implicit none
integer::n,i
real::x,arctan
write(*,*) '请输入x'
read(*,*) x
arctan=0
n=0
do while((1/(1+2*n)) .gt. 1e-6)
i=2*n+1
arctan= arctan+(((-1.0)**n)*(1/i)*(x**i))
n=n+1
print*,n,'arctan=',arctan
enddo
end program
运行的时候总是只循环一次，那位高手帮忙看看哪错了？
