作者jubilee2 (3321)
看板Fortran
标题Re: [问题] 排序法
时间Thu Nov 24 01:12:28 2011
subroutine c(k,a,n)
real a(n)
integer k,i,n
real temp
temp=a(1)
do i=2,k
a(i-1)=a(i)
end do
a(k)=temp
end
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 111.255.164.215
※ 编辑: jubilee2 来自: 111.255.164.215 (11/24 01:23)
1F：→ jubilee2:照着latinboy说的程式码 11/24 01:26
2F：→ gilocustom:这样的操作可以用cshift代替。 11/24 10:55