计算txt两列文件数据

vvt

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

Program main
  implicit none
  real a,b
  open(10,file='C:\Users\Lenovo\Desktop\3.txt')
  open(20,file="C:\Users\Lenovo\Desktop\4.txt")
  Do
    read(10,*,end=1) a , b
    write(20,*) b/a
  End Do
1 close(20)
  close(10)
End Program Main

vvt

lumlngz 发表于 2023-4-25 18:33
你好老师，我想问一下第7行代码read语句里面的end=1的作用是什么，这里我在教科书上没有找到。 ...

遇到文件结束的话，跳转到语句标号为 1 的语句继续执行。

这种写法现在不推荐，可以用 iostat 代替