[問題] 關於排序

看板Fortran作者 (Anderson)時間12年前 (2012/02/06 22:50), 編輯推噓2(203)
留言5則, 2人參與, 最新討論串1/2 (看更多)
小弟不才 有一個關於排序問題 想請教各位大大 用以下的陣列舉例: (a) (b) (c) (d) 3.4 12.4 1 8 4.8 10.1 2 4 8.9 9.8 3 6 10.1 9.2 4 9 8.8 8.9 5 3 9.8 8.8 6 5 4.2 4.8 7 2 12.4 4.2 8 7 9.2 3.4 9 1 內容: (a)矩陣:原始實數 (b)矩陣:經由(a)由大到小排序而成 (c)矩陣:為(a)設定原始編號1至9 (d)矩陣:為(b)對應到(c)的編號產生 小弟只會寫(a)排序成(b) 如下: program homework real a(9),k,b(9) integer i,j open(10,file='a.txt') open(11,file='b.txt') read(10,*)a b = a 20 do i=1,9 do j=i,9 if(b(i).lt.b(j)) then k=b(i) b(i)=b(j) b(j)=k goto 20 end if end do end do do i=1,9 write(11,*) b(i) end do stop end 而要由(a)對定到(c)矩陣產生成(d)矩陣 不知如何編寫 請問各位神人大大能幫忙小弟嗎 感激不盡!!!!!!!!!! -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 163.22.18.23

02/07 11:11, , 1F
在b(i)b(j)互換那裡把矩陣c也互換就可以了
02/07 11:11, 1F

02/07 12:13, , 2F
意思是再加一行 ?
02/07 12:13, 2F

02/07 12:21, , 3F
試過了 但還是跑不出來 可以請大大詳細說明嗎感恩
02/07 12:21, 3F

02/07 12:38, , 4F
就是你b(i)b(j)互換那裡也把c(i)c(j)互換
02/07 12:38, 4F

02/07 12:57, , 5F
OK了 謝謝大大幫忙>Q<
02/07 12:57, 5F
文章代碼(AID): #1FB-ZBAG (Fortran)
討論串 (同標題文章)
文章代碼(AID): #1FB-ZBAG (Fortran)