用Fortran语言读入写在txt文件里的一个矩阵，程序应该怎么写？
programREADTESTimplicitnoneinteger,parameter::NX=10integer,parameter::NY=10integeri,j...
program READTEST
implicit none
integer,parameter::NX=10
integer,parameter::NY=10
integer i,j,HP(NX,NY)
open(12,file="maze.txt",status="old")
do j=NY,1,1
read(12,*) HP(1:NX:1,j)
end do
close(12)
open(13,file="result.txt")
do j=NY,1,1
write(13,*) HP(1:NX:1,j)
end do
close(13)
end program READTEST
我在maze.txt.里面写了一个10X10的矩阵，也放在Fortran程序文件同一文件下了，但输出的result.txt文档总是空的，求高人帮着修改一下
j=NY,1,1 应该是 j=NY,1,-1 但运行结果还是不对…… 展开
implicit none
integer,parameter::NX=10
integer,parameter::NY=10
integer i,j,HP(NX,NY)
open(12,file="maze.txt",status="old")
do j=NY,1,1
read(12,*) HP(1:NX:1,j)
end do
close(12)
open(13,file="result.txt")
do j=NY,1,1
write(13,*) HP(1:NX:1,j)
end do
close(13)
end program READTEST
我在maze.txt.里面写了一个10X10的矩阵，也放在Fortran程序文件同一文件下了，但输出的result.txt文档总是空的，求高人帮着修改一下
j=NY,1,1 应该是 j=NY,1,-1 但运行结果还是不对…… 展开
2个回答
展开全部
program READTEST
implicit none
integer,parameter::NX=10
integer,parameter::NY=10
integer i,j,HP(NX,NY)
open(12,file="maze.txt",status="old")
open(13,file="result.txt")
do j=NY,1,1
read(12,*) HP(1:NX:1,j)
write(13,*) HP(1:NX:1,j)
end do
close(12)
close(13)
end program READTEST
试试！
别急着关闭文件通道！！！！！
implicit none
integer,parameter::NX=10
integer,parameter::NY=10
integer i,j,HP(NX,NY)
open(12,file="maze.txt",status="old")
open(13,file="result.txt")
do j=NY,1,1
read(12,*) HP(1:NX:1,j)
write(13,*) HP(1:NX:1,j)
end do
close(12)
close(13)
end program READTEST
试试！
别急着关闭文件通道！！！！！
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
