trgovac.pas

PASCAL光盘资料PASCAL光盘资料PASCAL光盘资料

uses trg_lib;
program trgovac(input,output);
const maxn = 900;
var way:array[1..maxn] of Integer;
    head,tail,mid,i,j,n:longint;
begin
    n:=init;
    way[1]:=1;
    for i:=2 to n do
      begin
        if pitaj(i,way[1])=i
          then begin
                 for j:=i downto 2 do way[j]:=way[j-1];
                 way[1]:=i;
               end
          else  if pitaj(way[i-1],i)=way[i-1]
                  then way[i]:=i
                  else begin
                         head:=1; tail:=i-1;
                         while (head+1)<tail do
                           begin
                             mid:=(head+tail) div 2;
                             if pitaj(i,way[mid])=i then tail:=mid
                                                    else head:=mid;
                           end;
                         for j:=i downto tail+1 do way[j]:=way[j-1];
                         way[tail]:=i;
                       end;
      end;
    Gotovo(way);
end.