用pascal语言实现希尔排序算法.txt

来自「高斯回代算法源代码 蚁群算法的matlab源码 蚁群算法TSP(旅行商问题)」· 文本 代码 · 共 34 行

procedure prshl(p,n) 

begin 

k:=n/2; 

while(k>0) do begin 


for j:=k to n-1 do begin 



t:=p[j];i:=j-k; 

while((i>=0) and (p[i]>t)) do begin 



p[i+k]:=p[i];i:=i-k; 

end; 

p[i+k]:=t; 

end; 

k:=k/2; 

end; 

end; 
大体上就是这样