pku1325 Machine Schedule

有两台机器A，B，分别有n，m个进程，有k个任务，每个任务要么在A的x进程上完成，要么在B的y进程上完成，但机器换进程要时间，求完成方案下的最短时间。

最小覆盖问题，

通式：方案有两个，作为二分图的对立点，而任务为点，完成每一个任务的两种方案连边，求最大匹配即可，因为“最小覆盖=最大匹配”

很不理解输入里面的那个i有什么用？？

View Code

program pku1325(input,output);
var
f     : array[0..201,0..201] of boolean;
lk     : array[0..201] of longint;
v     : array[0..201] of boolean;
n,m,k : longint;
procedure init;
var
i,ii,xx,yy : longint;
begin
fillchar(f,sizeof(f),false);
fillchar(lk,sizeof(lk),0);
for i:=1 to k do
begin
readln(ii,xx,yy);
f[xx,yy+n]:=true;
end;
end; { init }
function find(now : longint):boolean;
var
i : longint;
begin
for i:=n+1 to n+m do
if (not v[i])and(f[now,i]) then
begin
v[i]:=true;
if (lk[i]=0)or(find(lk[i])) then
begin
lk[i]:=now;
exit(true);
end;
end;
exit(false);
end; { find }
function main():longint;
var
i : longint;
begin
main:=0;
for i:=1 to n do
begin
fillchar(v,sizeof(v),false);
if find(i) then
inc(main);
end;
exit(main);
end; { main }
begin
read(n);
while n<>0 do
begin
readln(m,k);
init;
writeln(main);
read(n);
end;
end.