sort.pas

来自「PASCAL光盘资料PASCAL光盘资料PASCAL光盘资料」· PAS 代码 · 共 32 行

program sort(input,output);
  type arr=array[0..31] of longint;
  var a:arr;
      n,i,j,k:longint;
  begin
    assign(input,'sort.in');
    assign(output,'sort.out');
reset(input);
rewrite(output);
    readln(n,k);                {读入}
    fillchar(a,sizeof(a),0);
    a[n]:=1; a[0]:=1;
    for i:=n-1 downto 1 do      {a[i]=2i-n}
      a[i]:=a[i+1]*2;
    i:=0; j:=1;
    while k>1 do                {以下为一位一位推出数字}
      begin
        while (i<=n) and (k>a[i]) do
          begin
            dec(k,a[i]);
            inc(i)
          end;
        if j<>1 then write(' ');
        inc(j);
        write(i);
        a[i]:=1
      end;
    if i=0 then writeln(0);  {判空集}
    close(input);
    close(output)
  end.