bobbycao 发表于 2004-12-28 01:07:00

nafmo 发表于 2004-12-28 07:22:55

Re:有关数组的，感觉比较难

Check this if it works for your case:
-------------------------------------------
program hehe
real xx (4),yy (4),zz(4)
integer n,i,j
read(*,*)n
open(1,file="12.28.txt")
do i=1,n,1
read (1,50) xx ( i ),yy ( i ),zz( i )
enddo
do i=1,n,1
write(*,50) xx ( i ),yy (i ),zz(i )
enddo
write(*,*)
do i=1,n
do j=i,n
if (yy(i )>yy(j )) then
temp0=yy(i )
temp1=yy(j )
yy ( i)=temp1
yy ( j)=temp0
temp0=xx ( i)
temp1=xx (j )
xx ( i)=temp1
xx (j )=temp0
temp0=zz( i)
temp1=zz(j )
zz(i )=temp1
zz(j )=temp0
endif
enddo   
enddo
do i=1,n,1
write(*,50) xx ( i),yy (i ),zz(i )
enddo
close(1)
50 format(3f13.5)
end

bobbycao 发表于 2004-12-28 23:31:55

苍山负雪 发表于 2004-12-29 20:00:32

Re:有关数组的，感觉比较难

一个快速排序子程序

bobbycao 发表于 2004-12-29 23:39:09

iwtry 发表于 2005-1-2 20:43:22

Re:有关数组的，感觉比较难

是不是可以将相关的程序作成一个模，这样的工作很有意义，可是……
页: [1]
查看完整版本: 有关数组的，感觉比较难