Question

Fortran 程序文件读写问题。

按照书上例子练习有格式顺序文件读取，先用记事本编辑了123.dat文件在项目里面，但是运行后发生以下问题，且没有321.dat文件生成。





Answer 1

fortran77程序，调试通过。
dimension a(10)
integer a,sum,ave
open(1,file='123.dat',status='old')
read(1,*)(a(i),i=1,10)
close(1)
sum=0
do 10 i=1,10
sum=sum+a(i)
10 continue
ave=sum/10
open(2,file='321.dat',status='new')
write(2,200) (a(i),i=1,10)
write(2,210)sum
write(2,220)ave
200 format('numbers are:',10i5)
210 format('sum is:',i5)
220 format('average is:',i5)
close(2)
stop
end

追问

你好！谢谢你的回答，我运行了一下你的程序，结果还是这样。还有321.TXT会自动生成吗？还是我需要在项目里面建立一个？

追答

自动生成321.txt文件。此程序用ms fortran77在dos下调试通过。