您所在位置：主题：【求助】关于循环中阶乘运算的一个问题
Nason野猫
[专家分：0] 发布于 2012-05-02 05:11:00
题目以及传上图片，看图片
本人编写的代码如下：
program max
implicit none
real ans,anc
integer n
ans=0
anc=0
do n=1,2
ans=1/n+ans
anc=ans+anc
end do
write(*,*) anc
end
以上代码fortran系统检测无错误，但是结果是错的，我自己感觉运算过程没有问题
ans=1/n+ans
anc=ans+anc
这样不会有错啊，求大侠解答，留一个交流群：170502164
本人编写的代码如下：
program max
implicit none
real ans,anc
integer n
ans=0
anc=0
do n=1,2
ans=1/n+ans
anc=ans+anc
end do
write(*,*) anc
end
以上代码fortran系统检测无错误，但是结果是错的，我自己感觉运算过程没有问题
ans=1/n+ans
anc=ans+anc
这样不会有错啊，求大侠解答，留一个交流群：170502164
