作者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