| 查看: 1388 | 回复: 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 帮忙介绍下每一句话什么意思。 |
回复此楼» 收录本帖的淘帖专辑推荐
 程序 |
» 猜你喜欢
一志愿华中科技大学071000，求调剂
已经有4人回复
-
生物学一志愿985，分数349求调剂
已经有4人回复
-
生物学调剂
已经有4人回复
-
求调剂院校信息
已经有4人回复
-
085600材料与化工306
已经有4人回复
-
286求调剂
已经有10人回复
-
328求调剂，英语六级551，有科研经历
已经有9人回复
-
一志愿北京化工大学070300 学硕336求调剂
已经有4人回复
-
286分人工智能专业请求调剂愿意跨考！
已经有8人回复
-
资源与环境 调剂申请(333分)
已经有5人回复
FMStation
至尊木虫 (知名作家)
- 应助: 591 (博士)
- 贵宾: 0.03
- 金币: 18348.2
- 红花: 97
- 帖子: 8891
- 在线: 1489.9小时
- 虫号: 2400059
- 注册: 2013-04-04
- 专业: 计算机应用技术
15楼2016-08-18 11:25:27
hjnwsuaf2楼2016-08-16 10:45:07
hjnwsuaf
金虫 (著名写手)
- 应助: 10 (幼儿园)
- 金币: 1675.1
- 散金: 569
- 红花: 11
- 帖子: 1069
- 在线: 101.6小时
- 虫号: 3543986
- 注册: 2014-11-18
- 性别: GG
- 专业: 土壤学
3楼2016-08-16 10:57:31
4楼2016-08-16 11:06:28
5楼2016-08-16 11:07:42
hjnwsuaf
金虫 (著名写手)
- 应助: 10 (幼儿园)
- 金币: 1675.1
- 散金: 569
- 红花: 11
- 帖子: 1069
- 在线: 101.6小时
- 虫号: 3543986
- 注册: 2014-11-18
- 性别: GG
- 专业: 土壤学
6楼2016-08-16 11:26:49
7楼2016-08-16 11:28:09
FMStation
至尊木虫 (知名作家)
- 应助: 591 (博士)
- 贵宾: 0.03
- 金币: 18348.2
- 红花: 97
- 帖子: 8891
- 在线: 1489.9小时
- 虫号: 2400059
- 注册: 2013-04-04
- 专业: 计算机应用技术
【答案】应助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +1
hjnwsuaf: 金币+30, ★★★很有帮助 2016-08-18 09:46:28
感谢参与，应助指数 +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
sk时空
新虫 (小有名气)
- 应助: 1 (幼儿园)
- 金币: 2078.8
- 散金: 20
- 红花: 3
- 帖子: 140
- 在线: 40.3小时
- 虫号: 3273422
- 注册: 2014-06-14
- 专业: 原子和分子物理
9楼2016-08-16 13:42:37
wz_work
木虫 (小有名气)
- 应助: 4 (幼儿园)
- 金币: 2793.9
- 红花: 1
- 帖子: 204
- 在线: 21.9小时
- 虫号: 3930194
- 注册: 2015-06-18
- 性别: GG
- 专业: 结构工程
10楼2016-08-16 16:52:52
