比赛 |
20091102 |
评测结果 |
AAAAA |
题目名称 |
复原几何图形 |
最终得分 |
100 |
用户昵称 |
.Xmz |
运行时间 |
0.000 s |
代码语言 |
Pascal |
内存使用 |
0.00 MiB |
提交时间 |
2009-11-02 10:31:35 |
显示代码纯文本
program xmz;
var
f1,f2:text;
f:array[0..50,0..50]of boolean;
y:array[0..50,0..50]of boolean;
d:array[1..50]of boolean;
t:array[1..50]of integer;
t1,t2,a,s,n:integer;
procedure dfs(nn:integer);
var
i:integer;
begin
if (s=n)and(f[nn,1])and(not y[nn,1]) then
begin
for i:=1 to n do
write(f2,t[i],' ');close(f1);close(f2);halt;
end;
if s<n then
for i:=1 to n do
if (f[nn,i])and(not y[nn,i])and(not d[i]) then
begin
y[nn,i]:=true;y[i,nn]:=true;d[i]:=true;
inc(s);t[s]:=i;
dfs(i);
y[nn,i]:=false;y[i,nn]:=false;dec(s);d[i]:=false;
end;
end;
begin
assign(f1,'resume.in');assign(f2,'resume.out');
reset(f1);rewrite(f2);
read(f1,n);
while not eof(f1) do
begin
read(f1,t1,t2);
f[t1,t2]:=true;
f[t2,t1]:=true;
end;
s:=1;t[s]:=1;d[1]:=true;
dfs(1);
close(f1);close(f2);
end.