作者QQ1512 (Anderson)
看板Fortran
標題[問題] 關於排序
時間Mon Feb 6 22:50:49 2012
小弟不才 有一個關於排序問題
想請教各位大大 用以下的陣列舉例:
(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
1F：推 terryys:在b(i)b(j)互換那裡把矩陣c也互換就可以了 02/07 11:11
2F：→ QQ1512:意思是再加一行 ? 02/07 12:13
3F：→ QQ1512:試過了 但還是跑不出來 可以請大大詳細說明嗎感恩 02/07 12:21
4F：推 terryys:就是你b(i)b(j)互換那裡也把c(i)c(j)互換 02/07 12:38
5F：→ QQ1512:OK了 謝謝大大幫忙>Q< 02/07 12:57