※ 引述《[email protected] (vieri)》之铭言： > 已知两一维阵列,a=(/2,35,6,7,9/),b=(/34,3,13/) > 试写出一fortran (不能用副程式.函数) > 使结果为c=(/2,3,6,7,9,13,34,35/) > (也就是说将阵列b插入阵列a,变成一个新的阵列,且在插入的过程中,也把 > data排序好) 应该不要理你的，不过为了避免每次都在骂人，给一点提示好了。 1: a, b 各自 bubble sort (课本有) 2: 从a(1)和b(1)开始，比较a, b的各个元素 a(1)比较小 => 把a(1)放进结果阵列，下次改比较a(2) b(1)比较小 => 把b(2)放进结果阵列，下次改比较b(2) 3: 一直重覆 2 到其中一边元素用完为止，然後把另一边的元素放进结果阵列 *: 你当然需要宣告一个结果阵列 c , 不必弄到刚好大小，差不多放得下就可以 要令c(100)或c(1000)也没有什麽关系 　 -- X-URL1: http://www.aviationnow.com/ ‧李登辉＝格达费＝外星人‧有厕 检举匪谍 人人有责 ⊙ 检举匪谍 安居乐业 人所 检举匪谍渗透破坏 人人安居乐业｜肃清贪污经济犯罪 社会繁荣进步 　 破案奖金三百万｜知情不报判徒刑 检举要件：请用真实姓名、地址，受理机关绝对保密 X-Disclaimer: 李登辉一定是外星人！ Mk.22 Mod4 5/15/01 Mod3 6/9/98 -- ┌─────◆ＫＫＣＩＴＹ◆─────┐ ＫＫ免/费/拨/接 ◤ │ bbs.kkcity.com.tw │▏电话(1)：449◤1999 电话(2)：4058-6000 └──《From:218.160.89.15 》──┘▏帐号：kkcity 密码：kkcity --