输入输出求帮忙

kyra

你想实现什么呢？

试试下面的代码，是你想要的效果吗？

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

Program Exercise
  Implicit None
  Character(len=20) title(5)
  integer :: i
  Open(20,File="Ex.in")
  Open(60,File="Ex.out")
  Do i = 1 , size(title)
    Read( 20 , "(a20)" ) title(i)
    Write( 60 , "(a)" ) trim(title(i))
  End Do
End Program Exercise  

kyra

带格式读取的话，是从第一个字符开始算。
表控格式读取（*），是从第一个有效字符（除去空格，TAB，逗号等分隔符之外）开始算。
都是从左到右。

error 信息是什么