| 查看: 1557 | 回复: 1 | ||
q1036210267木虫 (正式写手)
|
[求助]
fortran 中 排序问题
|
|
fortran 中 排序问题， integer::a(size)=(/5,3,6,4,8,7,1,90,21,10/) integer::b(size)=(/5,3,6,4,8,7,1,9,200,100/) 对a 进行从小到大排序，前提是b和a对应的，b随a排序而变化。 也就是我想得到这样的一个结果，排完序后写成： （*，10）i, a（i），b（i） 10 format（3i4） 结果为： 1 1 1 2 3 3 3 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 10 100 9 21 200 10 90 9 谢谢啦 |
回复此楼» 猜你喜欢
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有4人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有5人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有5人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有4人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有4人回复
-
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急
已经有4人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有6人回复
-
售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急
已经有4人回复
-
售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急
已经有3人回复
-
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急
已经有6人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- fortran程序中write输出格式有问题
已经有5人回复
- 菜鸟求助fortran数组声明及子程序的一些问题啊
已经有4人回复
- fortran程序在SSH计算中心上运行的问题！
已经有13人回复
- 论文作者排序问题
已经有13人回复
- FORTRAN 赋值错乱问题，求大神解答~~~~急。。５５５
已经有4人回复
- DLA模型，Fortran 代码，出现问题
已经有4人回复
- 一个采用fortran在linux下运行的程序的安装问题
已经有9人回复
- FORTRAN新手 求助主程序循环问题
已经有10人回复
- Fortran 编译问题
已经有9人回复
- 请教一个fortran小程序编译出错的问题，谢谢
已经有9人回复
- Fortran的格式化输入输出问题
已经有14人回复
- fortran两个问题，文件中的空格，屏幕同一行覆盖输出
已经有23人回复
- 用fortran遇到了一个问题，来求助了，谢谢先
已经有3人回复
- 【求助】Fortran编译目标文件后的链接问题
已经有4人回复
- endnote排序混乱问题
已经有9人回复
q1036210267
木虫 (正式写手)
- 应助: 26 (小学生)
- 金币: 2182.2
- 散金: 806
- 红花: 4
- 帖子: 893
- 在线: 262.1小时
- 虫号: 1346635
- 注册: 2011-07-15
- 性别: GG
- 专业: 药物化学
★
jjdg: 金币+1, 感谢分享 2012-04-14 12:48:06
jjdg: 金币+1, 感谢分享 2012-04-14 12:48:06
|
我攻克这个 问题了。现在我把程序贴出来。 program main implicit none integer,parameter:: size=10 integer:: a(size)=(/5,3,6,4,8,7,1,90,21,10/) integer:: b(size)=(/5,3,6,4,8,7,1,9,2,10/) integer:: i, j, t1, t2 do i = 1, size-1 do j = i+1, size if( a(i) > a(j) )then t1=a(i) t2=b(i) a(i) = a(j) b(i) = b(j) a(j) = t1 b(j) = t2 endif enddo enddo do i = 1,10 WRITE(*,10)i, a(i), b(i) enddo 10 format(3i5) end |
2楼2012-04-13 14:35:21
