15rshl.c

c语言的常用函数集,比较全的.有些BUG我已经做过修改,可以在turbo c,borland c,Visual c++6.0(当然可能麻烦一点)上使用

  void rshl(p,n)
  int n;
  double p[];
  { int k,j,i;
    double t;
    k=n/2;
    while (k>0)
      { for (j=k; j<=n-1; j++)
          { t=p[j]; i=j-k;
            while ((i>=0)&&(p[i]>t))
              { p[i+k]=p[i]; i=i-k;}
            p[i+k]=t;
          }
        k=k/2;
      }
    return;
  }