24小时热门版块排行榜    

查看: 1581  |  回复: 15

hjnwsuaf

金虫 (著名写手)

[求助] 帮忙解释下这段fortran程序,谢谢 已有2人参与

DIMENSION M(6)
     READ (*,*) M
     DO 10 J=1,6
     DO 10 K=J,6
     IF(M(K) .LT. M(J)) THEN
     N=M(K)
     M(K)=M(J)
     M(J)=N
     END IF
10 CONTINUE
     WRITE(*,100)(M(I),I=1,6)
100 FORMAT(2X,614)
     END

帮忙介绍下每一句话什么意思。
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
回帖支持 ( 显示支持度最高的前 50 名 )

FMStation

至尊木虫 (知名作家)

>> J??1??4?????????

j ?? 1 ?? 4
15楼2016-08-18 11:25:27
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通回帖

x0915w

新虫 (小有名气)

读入的数据排序啊

发自小木虫Android客户端

» 本帖已获得的红花(最新10朵)

2楼2016-08-16 10:45:07
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

hjnwsuaf

金虫 (著名写手)

送红花一朵
引用回帖:
2楼: Originally posted by x0915w at 2016-08-16 10:45:07
读入的数据排序啊

解释下每句话吧,谢谢

发自小木虫IOS客户端
3楼2016-08-16 10:57:31
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

x0915w

新虫 (小有名气)

其他的语句没什么吧,就if循环里面,是个排序啊,从小到大排序,这就是冒泡法

发自小木虫Android客户端
4楼2016-08-16 11:06:28
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

x0915w

新虫 (小有名气)

若后面的比前面小,与前面的数据交换

发自小木虫Android客户端
5楼2016-08-16 11:07:42
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

hjnwsuaf

金虫 (著名写手)

引用回帖:
4楼: Originally posted by x0915w at 2016-08-16 11:06:28
其他的语句没什么吧,就if循环里面,是个排序啊,从小到大排序,这就是冒泡法

第二句是什么意思,M是六个元素的数组,第一个元素赋值给M吗?

发自小木虫IOS客户端
6楼2016-08-16 11:26:49
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

x0915w

新虫 (小有名气)

第二句应该是读入六个元素,存入m,

发自小木虫Android客户端
7楼2016-08-16 11:28:09
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

FMStation

至尊木虫 (知名作家)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与,应助指数 +1
hjnwsuaf: 金币+30, ★★★很有帮助 2016-08-18 09:46:28
??? M
DIMENSION M(6)

?x?? M
     READ (*,*) M

?? J ?? 1 ?? 6
     DO 10 J=1??6

?? K ?? J ?? 6
     DO 10 K=J,6

???? M(K) < M(J)
     IF(M(K) .LT. M(J)) THEN

???Q M(K),M(J)
     N=M(K)
     M(K)=M(J)
     M(J)=N

     END IF
10 CONTINUE

???? M
     WRITE(*,100)(M(I),I=1??6)
100  FORMAT(2X,614)
     END
8楼2016-08-16 13:18:53
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

sk时空

新虫 (小有名气)

9楼2016-08-16 13:42:37
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wz_work

木虫 (小有名气)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与,应助指数 +1
hjnwsuaf: 金币+10, 有帮助 2016-08-18 09:46:37
hjnwsuaf: 金币+10, 有帮助 2016-08-18 09:47:03
第一句,定义有六个元素的M数组;
第二句,读入数据,给M数组的六个元素赋值;
下边嵌套的DO循环是给M数组的元素排序;
而后写出排序后的元素。
生命的长河是多么的迂回,希望又是多么的雄壮。
10楼2016-08-16 16:52:52
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 hjnwsuaf 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考博] 【2027博士申请】纳米药物递送方向 20+3 13586093586 2026-08-03 5/250 2026-08-08 21:54 by 13586093586
[基金申请] 2026国自然放榜时间 +3 布布和一二 2026-08-08 3/150 2026-08-08 18:15 by Lightingo
[基金申请] 国基金的申报应该改成非等额制,评价高的钱多评价低的钱少,但是增加资助率 +7 a089 2026-08-07 7/350 2026-08-08 18:05 by gltch
[硕博家园] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +3 qTvzQBRAHjCi 2026-08-07 4/200 2026-08-08 17:19 by oEVWOejN9taj
[基金申请] 售SCI一区T0P文章,我:8.O.55.1.O.54,科目齐全,可+急 +3 qTvzQBRAHjCi 2026-08-07 5/250 2026-08-08 17:02 by oEVWOejN9taj
[考研] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +3 qTvzQBRAHjCi 2026-08-07 5/250 2026-08-08 16:47 by oEVWOejN9taj
[考博] 售一区SCI文章T0P,我:8O.551.O54,科目全,可十急 +3 Vi50GxzrFcSG 2026-08-07 4/200 2026-08-08 16:22 by oEVWOejN9taj
[公派出国] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +3 Vi50GxzrFcSG 2026-08-07 5/250 2026-08-08 15:59 by oEVWOejN9taj
[论文投稿] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +3 Vi50GxzrFcSG 2026-08-07 6/300 2026-08-08 15:07 by oEVWOejN9taj
[基金申请] 这样的filecode谁见过 +5 布布和一二 2026-08-08 8/400 2026-08-08 14:54 by archvillain
[博后之家] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +3 HEQlVqMTIA7d 2026-08-07 6/300 2026-08-08 14:42 by oEVWOejN9taj
[公派出国] 售SCI文章,我:8O5.5.1.O.54,科目齐全,可+急 +3 HEQlVqMTIA7d 2026-08-07 6/300 2026-08-08 14:39 by oEVWOejN9taj
[教师之家] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +4 HEQlVqMTIA7d 2026-08-07 5/250 2026-08-08 14:27 by oEVWOejN9taj
[基金申请] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +3 HEQlVqMTIA7d 2026-08-07 4/200 2026-08-08 14:27 by oEVWOejN9taj
[教师之家] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +3 KXLV3nuBVBY7 2026-08-07 5/250 2026-08-08 14:07 by oEVWOejN9taj
[论文投稿] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +3 KXLV3nuBVBY7 2026-08-07 6/300 2026-08-08 14:01 by oEVWOejN9taj
[基金申请] 化学口download_prp&amp;fileCode的固定段好像这几天一直没变,有变的大神么? +3 Tide man 2026-08-07 4/200 2026-08-07 22:39 by Tide man
[基金申请] 大家散了吧,后缀研究没有意义,别浪费时间了,过好目前的每一天,不要焦虑 +5 Tide man 2026-08-06 7/350 2026-08-07 13:11 by 医学老男孩
[基金申请] filecode +14 等待解的谜 2026-08-06 19/950 2026-08-07 12:20 by wlwhappy
[基金申请] 纯娱乐,不喜欢勿喷 +7 Tide man 2026-08-04 10/500 2026-08-04 15:10 by loufangrui
信息提示
请填处理意见