记录编号 14667 评测结果 AAAAA
题目名称 复原几何图形 最终得分 100
用户昵称 GravatarAchilles 是否通过 通过
代码语言 Pascal 运行时间 0.001 s
提交时间 2009-11-02 20:54:39 内存使用 0.12 MiB
显示代码纯文本
program resume;
var
  i,j,n,a,b:integer;
  tab:array[1..50,1..50]of integer;
  point,sz:array[1..50]of integer;
procedure find(c,last:integer);
var
  i:integer;
begin
  if (c=n)and(tab[last,1]=1) then begin
    write(1,' ');
    if sz[1]<sz[n-1] then begin
      for i:=1 to n-1 do
        write(sz[i],' ');
    end
    else
      for i:=n-1 downto 1 do
        write(sz[i],' ');
    close(input);
    close(output);
    halt;
  end
  else begin
    for i:=1 to n do
    begin
      if (point[i]=0)and(tab[last,i]=1) then begin
        sz[c]:=i;
        point[i]:=1;
        find(c+1,i);
        point[i]:=0;
      end;
    end;
  end;
end;
begin
  fillchar(tab,sizeof(tab),0);
  assign(input,'resume.in');
  assign(output,'resume.out');
  reset(input);
  rewrite(output);
  readln(n);
  while not(eof) do
  begin
    readln(a,b);
    tab[a,b]:=1;
    tab[b,a]:=1;
  end;
  fillchar(point,sizeof(point),0);
  point[1]:=1;
  find(1,1);
  close(input);
  close(output);
end.