| 查看: 773 | 回复: 3 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
alvin510银虫 (小有名气)
|
[求助]
求解决一个数的排序问题，谢谢
|
||
|
现有1-36的数，当前排序为： 1 7 13 19 25 31 2 8 14 20 26 32 3 9 15 21 27 33 4 10 16 22 28 34 5 11 17 23 29 35 6 12 18 24 30 36 如何将这些数按从小到大排列 |
回复此楼» 猜你喜欢
346求调剂[0856]
已经有7人回复
-
一志愿山大07化学 332分 四六级已过 本科山东双非 求调剂！
已经有3人回复
-
310求调剂
已经有3人回复
-
机械专硕299求调剂至材料
已经有4人回复
-
070300化学319求调剂
已经有7人回复
-
08工科 320总分 求调剂
已经有6人回复
-
一志愿天津大学化学工艺专业（081702）315分求调剂
已经有12人回复
-
307求调剂
已经有3人回复
-
265求调剂
已经有3人回复
-
301求调剂
已经有10人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 抛物型偏微分方程的数值解求解问题，谢谢！
已经有14人回复
- 求一目标函数最小化优化问题的解法，谢谢大家啦
已经有5人回复
- 求矩阵2范数的导数如何求？谢谢
已经有6人回复
- 求问一个问题，dNTP浓度过低是否在PCR反应中就会形成引物二聚体 谢谢
已经有5人回复
- 求助一个三维坐标轴旋转的问题，谢谢。
已经有12人回复
- 论文数据处理出问题了，是撤稿还是给出说明呢？求建议，谢谢！
已经有6人回复
- 求助混凝土用环氧腻子，解决腻子渗透性问题，谢谢
已经有7人回复
- 求大侠帮忙解决一个B类错误！！谢谢
已经有5人回复
- 求助fotran双精度数据的问题，谢谢
已经有6人回复
- 求助一简单matlab程序的出错问题，谢谢
已经有3人回复
- 求助参考文献排列顺序，谢谢！
已经有8人回复
- 100金币求解决如下问题，谢谢啦
已经有5人回复
- 求助各位大侠一个去羟基化的问题，谢谢！
已经有8人回复
- 【求助】求助特性粘数的具体算法，谢谢
已经有18人回复
- 【求助】在excel里处理一下数据求微分，请高手指教一下~谢谢啦~
已经有15人回复
- 怎么会出现这样的错误，求解决谢谢
已经有5人回复
- 【求助】请教一个甲基化反应问题，谢谢！
已经有9人回复
- 【求助】请教一个matlab程序，谢谢帮忙！！
已经有15人回复
- 【求助】请教高手解决一道行测问题 谢谢
已经有15人回复
- 【求助】【求助】EIS交流阻抗谱的基础问题 谢谢~~
已经有9人回复
- 【求助】一个关于电化学合成聚吡咯的问题，谢谢！
已经有6人回复
alvin510
银虫 (小有名气)
- 应助: 1 (幼儿园)
- 金币: 1784.3
- 散金: 423
- 红花: 4
- 帖子: 288
- 在线: 225.4小时
- 虫号: 1245360
- 注册: 2011-03-26
- 专业: 人工晶体
送红花一朵 |
我用intel visual fortran 执行这个代码，程序报错。但我看懂了你排序的思想，谢谢了哈。我开这个帖子，其实想解决另一个问题的，如果你有兴趣，麻烦看下下面这个帖子 http://muchong.com/bbs/viewthread.php?tid=6167017 谢谢。 |
3楼2013-07-25 17:46:40
pippi6
铁杆木虫 (著名写手)
工程和科学数值计算咨询
- 应助: 413 (硕士)
- 贵宾: 0.002
- 金币: 7116.5
- 散金: 15
- 红花: 63
- 帖子: 1639
- 在线: 798.9小时
- 虫号: 2469437
- 注册: 2013-05-14
- 专业: 计算数学与科学工程计算
【答案】应助回帖
感谢参与，应助指数 +1
|
! flag subroutine Sorting implicit none integer, parameter :: nmax=36 integer,dimension(nmax) :: p1,p2 integer :: i1,i2,pp open(21,file='dd1') read(21,*) (p1(i1),i1=1,nmax) close(21) p2=p1 do i1=1,nmax-1 do i2=i1+1,nmax if(p2(i2) < p2(i1)) then pp=p2(i1) p2(i1)=p2(i2) p2(i2)=pp end if end do end do do i1=1,nmax print"(3(a,i5))",' i1=',i1,' p1=',p1(i1),' p2=',p2(i1) end do stop end subroutine Sorting |
» 本帖已获得的红花（最新10朵）
2楼2013-07-25 12:11:39
