24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 407  |  回复: 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 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 一志愿深大085601材料工程专业(专硕)300分可以调剂去哪 +7 10160315 2026-04-02 7/350 2026-04-02 22:48 by liveagain126
[考研] 085602 找调剂 +3 逆时针快乐 2026-04-02 3/150 2026-04-02 21:23 by dongzh2009
[考研] +4 雾与海 2026-04-02 5/250 2026-04-02 19:16 by 土木硕士招生
[考研] 316求调剂 +12 舟自梗 2026-04-01 16/800 2026-04-02 17:33 by zzsw+
[考研] 318求调剂 +3 笃行致远. 2026-03-31 4/200 2026-04-02 15:56 by Jaylen.
[考研] 311求调剂 +14 蓝月亮亮 2026-03-30 14/700 2026-04-02 12:18 by 1753564080
[考研] 一志愿南师大0703化学 275求调剂 +6 Ripcord上岸 2026-03-27 6/300 2026-04-02 11:19 by TTTpp
[考研] 337求调剂 +11 《树》 2026-03-29 11/550 2026-04-02 10:20 by 不吃魚的貓
[考研] 生物学327,求调剂 +5 书上的梅子 2026-04-01 6/300 2026-04-02 06:47 by ilovexiaobin
[考研] 292求调剂 +17 木虫er12138 2026-04-01 17/850 2026-04-01 21:37 by 七度不信任
[考研] 考研生物与医药调剂 +7 铁憨憨123425 2026-03-31 7/350 2026-04-01 08:45 by JourneyLucky
[考研] 070300化学专业279调剂 +10 哈哈哈^_^ 2026-03-31 10/500 2026-03-31 23:13 by liu823948201
[考研] 289求调剂 +7 BrightLL 2026-03-29 7/350 2026-03-31 22:05 by 544594351
[考研] 375求调剂 +7 雨夏整夜 2026-03-29 7/350 2026-03-31 18:52 by xhai2011
[考研] 318求调剂 +10 陈晨79 2026-03-30 10/500 2026-03-31 17:37 by 544594351
[考研] 求调剂 +8 11ggg 2026-03-30 8/400 2026-03-31 13:56 by nanaliuyun
[考研] 22408 359分调剂 +4 Qshers 2026-03-27 8/400 2026-03-31 08:53 by Qshers
[考研] 291求调剂 +5 Y-cap 2026-03-29 6/300 2026-03-29 13:18 by mumin1990
[考研] 一志愿南京航空航天大学材料学硕求调剂 +3 @taotao 2026-03-28 3/150 2026-03-28 10:26 by JourneyLucky
[考研] 调剂 +3 李嘉图·S·路 2026-03-27 3/150 2026-03-27 11:19 by wangjy2002
信息提示
请填处理意见