信与信封问题_codevs1222_匹配

题目描述Description
John先生晚上写了n封信，并相应地写了n个信封将信装好，准备寄出。但是，第二天John的儿子Small
John将这n封信都拿出了信封。不幸的是，Small John无法将拿出的信正确地装回信封中了。
 
将Small John所提供的n封信依次编号为1，2，…，n；且n个信封也依次编号为1，2，…，n。假定Small
John能提供一组信息：第i封信肯定不是装在信封j中。请编程帮助Small
John，尽可能多地将信正确地装回信封。
输入描述Input Description
n文件的第一行是一个整数n（n≤100）。信和信封依次编号为1，2，…，n。
 
n接下来的各行中每行有2个数i和j，表示第i封信肯定不是装在第j个信封中。文件最后一行是2个0，表示结束。
输出描述Output Description
输出文件的各行中每行有2个数i和j，表示第i封信肯定是装在第j个信封中。请按信的编号i从小到大顺序输出。若不能确定正确装入信封的任何信件，则输出“none”。
样例输入Sample Input
3
1  2
1  3
2  1
0  0
样例输出Sample Output
1   1
[b]思路：[/b]
很直白的匹配问题，如果x与y肯定不在同一个信封里，那么假如一条边不可获缺,那么没有它一定无法完美匹配,由此可以推得先进行一次匹配,再对匹配的边依次删除,如果不能完美匹配就输出。
源代码/pas:

var
link:array[1..200]of longint;
map:array[1..200,1..200]of boolean;
v:array[1..200]of boolean;
n:longint;
function find(x:longint):boolean;
var
i,k:longint;
begin
find:=true;
for i:=1 to n do
if (not v[i])and(map[x,i]) then
begin
k:=link[i];
link[i]:=x;
v[i]:=true;
if (k=0)or find(k) then exit;
link[i]:=k;
end;
find:=false;
end;
procedure main;
var
x,y,i,ans:longint;
begin
ans:=0;
fillchar(link,sizeof(link),0);
for i:=1 to n do
begin
fillchar(v,sizeof(v),false);
find(i);
end;
for x:=1 to n do
begin
y:=link[x];
link[x]:=0;
map[y,x]:=false;
fillchar(v,sizeof(v),false);
if not find(y) then
begin
link[x]:=y;
writeln(x,' ',y);
ans:=1;
end;
map[y,x]:=true;
end;
if ans=0 then
writeln('none');
end;
procedure init;
var
i,x,y:longint;
begin
fillchar(map,sizeof(map),true);
readln(n);
repeat
readln(x,y);
if x+y=0 then break;
map[y,x]:=false;
until 1<>1;
end;
begin
init;
main;
end.