[输入输出] 递归函数运行，输入数据后，没报错但程序不动

159 帖子	2 主题	1 精华

大师

Vim

F 币: 961 元
贡献: 469 点

发消息

楼主

发表于 2022-10-8 11:17:42 | 显示全部楼层

本帖最后由 Transpose 于 2022-10-8 11:28 编辑

gfortran的函数里面写输出会发生混乱,ifort应该没这个问题

[Fortran] 纯文本查看 复制代码

      integer(kind=4) :: n
      integer(kind=4), external :: fact
      integer::f
      write(unit=6, fmt="('N = ')") 
      read (unit=5, fmt=*) n
      f=fact(n)
      write(unit=6, fmt="(I3,'! = ', I8)") n, f

不要同时输出即可

评分

参与人数 1	F 币 +1	收起理由
布衣龙共	+ 1	很给力!

查看全部评分

使用道具举报

返回列表发新帖