回帖：附上Shell排序PASCAL和C的代码：
PASCAL语言：
procedure shell(max:longint);
var
i,j,x,d:longint;
begin
d:=max div 2;
while d>=1 do
begin
for i:=d+1 to max do
begin
x:=work;
j:=i-d;
while (j>0) and (x=1)
{
for (i=d+1;i0) && (x