題意
/description
:設有m個工人x1, x2, …, xm，和n項工作y1, y2, …, yn，規定每個工人至多做一項工作，而每項工作至多分配一名工人去做。由於種種原因，每個工人只能勝任其中的一項或幾項工作。問應怎樣分配才能使盡可能多的工人分配到他勝任的工作。這個問題稱為人員分配問題。 讀入/
input
：第一行兩個整數m，n分別為工人數和工作數。
接下來乙個整數s，為二分圖的邊數。
接下來s行，每行兩個數ai,bi表示第ai個工人能勝任第bi份工作 輸出
/output
：乙個整數，表示最多能讓多少個工人派到自己的勝任的工作上。 題解
/solution：
赤裸裸的匹配。下面是o(n3)的演算法。**/
code
：
var
n,m,oo:longint;
a:array [0..101,0..101] of boolean;
cover:array [0..101] of boolean;
ls:array [0..101] of longint;
procedure init;
var i,x,y:longint;
begin
readln(n,m);
readln(oo);
for i:=1 to oo do
begin
readln(x,y);
a[x,y]:=true;
end;
end;
function find(i:integer):boolean;
var j,t:integer;
begin
find:=true;
for j:=1 to m do
if a[i,j] and not cover[j] then
begin
t:=ls[j]; ls[j]:=i; cover[j]:=true;
if(t=0) or find(t) then exit;
ls[j]:=t;
end;
find:=false;
end;
procedure main;
var i:longint;
begin
for i:=1 to n do
begin
fillchar(cover,sizeof(cover),false);
find(i);
end;
end;
procedure print;
var i,sum:longint;
begin
sum:=0;
for i:=1 to n do
if ls[i]<>0 then inc(sum);
write(sum);
end;
begin
init;
main;
print;
end.
SSL 1338 人員分配
設有m個工人x1,x2,xm，和n項工作y1,y2,yn，規定每個工人至多做一項工作，而每項工作至多分配一名工人去做。由於種種原因，每個工人只能勝任其中的一項或幾項工作。問應怎樣分配才能使盡可能多的工人分配到他勝任的工作。這個問題稱為人員分配問題。第一行兩個整數m，n分別為工人數和工作數。接下來乙個...
SSL P1338 最大匹配之人員分配
有m個工人x1,x2,xm，和n項工作y1,y2,yn，規定每個工人至多做一項工作，而每項工作至多分配一名工人去做。由於種種原因，每個工人只能勝任其中的一項或幾項工作。問應怎樣分配才能使盡可能多的工人分配到他勝任的工作。總共有s組x,y表示工人x能勝任工作y。求最多能讓多少個工人派到自己的勝任的工作...
最大匹配 人員分配
題目大意 設有m個工人x1,x2,xm，和n項工作y1,y2,yn，規定每個工人至多做一項工作，而每項工作至多分配一名工人去做。由於種種原因，每個工人只能勝任其中的一項或幾項工作。問應怎樣分配才能使盡可能多的工人分配到他勝任的工作。分析 對於1 i m，1 j n，當且僅當工人xi勝任工作yi時，g...