| 查看: 1502 | 回复: 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 谢谢啦 |
回复此楼» 猜你喜欢
362求调剂
已经有14人回复
-
求调剂 302分初试 0854
已经有4人回复
-
299求调剂
已经有4人回复
-
266分，一志愿电气工程，本科材料，求材料专业调剂
已经有3人回复
-
312求调剂
已经有4人回复
-
315求调剂
已经有7人回复
-
土木304求调剂
已经有3人回复
-
316求调剂
已经有16人回复
-
一志愿华东理工大学，080500学硕，317分，求调剂
已经有13人回复
-
材料与化工306分找调剂
已经有9人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 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
