Question

运行程序出现如图情况，fortran语句编的程序如下，求解

program main
implicit none
integer i,j
real b(117,2)
open(10,file='nacadata.txt',status='old')open(11,file='gambitdata.txt',status='old')
do i=1,117 read(10,*) (b(i,j),j=1,2)end do
do i=1,117 write(11,100) (b(i,j),j=1,2)end do
100 format("vertex create coordinates",2(f10.6,1x),"0")
end

Answer 1

你确定这段代码运行结果是这样的？你用的哪个编译器？

代码看不出来问题。但输出文件，一般不要用 old，除非纤洞贺你确定输出文件已经存在了。否则就直接：
open(11,file='gambitdata.txt')
这样表示：如果文件存在，则覆盖颤颤。如果文件不存在，则新建该文件。

一般来说，输出文件是不存在的，即使存在，覆盖输出就可以了。
你写成 status = 'old' 就是说，强制要求输出文件存在，这在多数情况下的逻辑上，是不科学的。

而且这个问题不应该是你贴图里的，你贴图里的意思是：“文件已经毁派存在”。这个提示，通常是在 status = 'new' 是出现的。它表示，如果文件存在，则提示错误。如果文件不存在，则新建该文件。

追问

编译器Compaq Visual Fortran，那段代码是我改后的，也出现同样的问题，原来是
program main
implicit none
integer i,j
real b(117,2)
open(10,file='nacadata.txt',status='old')
open(11,file='gambitdata.txt',status='new')
那个位置是“new”，然后源程序目录下已经存在nacadata.txt文件，

追答

问题没解决之前，请不要采纳。否则无法继续追问。

你的代码确定就这么长？没有其他代码存在了？如果是你改后的代码，不应该再出现已经存在文件的提示的。

我建议你重新创建工程（如果非必要，请选择 console 类型，除非你知道 QuickWin 是什么，否则不要选择它。）
重建工程后，新建代码，然后把你的代码复制进去，再试试。