dimension A(10,8)
open(5.file='I.dat')
read(*,*)B
read(*,*)C
read(5,*)N
do L=1,N
read(*,*)A(L,K)K=1,M
write(*,*)A(L,K)K=1,M
enddo
T=A(B,K) k=1,M
A(C,K)=A(B,K) K=1,M
DO L=1,N
WRITE(*,*) A(L,K) K=1,M
ENDDO
STOP
END
這是一個矩陣轉換的題目...
也是蠻多地方錯的
有人可以幫一下嗎@@?
--
來相本看看吧 *^__^*
http://www.wretch.cc/album/
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 125.232.131.194