记录编号 |
14667 |
评测结果 |
AAAAA |
题目名称 |
复原几何图形 |
最终得分 |
100 |
用户昵称 |
Achilles |
是否通过 |
通过 |
代码语言 |
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.