24小时热门版块排行榜    

查看: 386  |  回复: 1

zyj8119

木虫 (著名写手)

[交流] 【求助】FORTRAN 90程序问题2【已解决】 已有1人参与

PROGRAM rotate
INTEGER,DIMENSION(1:3,1:3)::a
INTEGER::i,j,temp,m
a=RESHAPE((/11,22,33,44,55,66,77,88,99/),(/3,3/))
PRINT'(3I3)',((a(i,j),j=1,3),i=1,3)
DO i=1,2
    m=4 - i
    temp=a(m,3)
    a(m,3)=a(3,i);    a(3,i)=a(i,1);   a(i,1)=a(1,m)
    a(1,m)=temp
END DO
PRINT'(3I3)',((a(i,j),j=1,3),i=1,3)
END PROGRAM rotate
此程序为什么第四行是77 88 99
第六行是11 22 33?

[ Last edited by jjdg on 2010-4-22 at 21:00 ]
回复此楼
好好学习,天天向上。
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zyj8119

木虫 (著名写手)

解决了,我搞错了逻辑顺序结构和存储顺序结构的差别。
好好学习,天天向上。
2楼2010-04-22 19:23:52
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 zyj8119 的主题更新
普通表情 高级回复 (可上传附件)
信息提示
请填处理意见