回 帖 发 新 帖 刷新版面

主题:这个程序执行结果怎么是这样的啊

    DO 10,I=1,7,2
        FACT=1.0
        DO 20,J=1,I,1
            FACT=FACT*J
20        CONTINUE
        PRINT *,J,'!=',FACT
10    CONTINUE
    END

我是想求1!,3!,5!,7!的。但最后的结果却是这样的:
2!=######
4!=######
6!=######
8!=######
其中######表示运行结果
求各位达人帮忙看看吧,怎么想都想不通?

回复列表 (共3个回复)

沙发

program main  
  implicit none   
  integer:: i   ! for loop
  integer:: N = 7
  integer:: FACT
  
  FACT = 1
  Do i = 2, N, 1
    FACT = FACT * i
    if ( mod(i, 2) == 1 ) then
      write(*, *) i, "! = ", FACT 
    end if
  End Do   ! i
  
  stop
end program main

板凳

是干部赖收的说是要先统计下户口本不能给?

3 楼

交委或者运管处直面网络媒体,及时答复网民的留言,真的是大有进步,赞一个。

我来回复

您尚未登录,请登录后再回复。点此登录或注册