题目背景
在农夫约翰的农场上，每逢下雨，贝茜最喜欢的三叶草地就积聚了一潭水。这意味着草地被水淹没了，并且小草要继续生长还要花相当长一段时间。因此，农夫约翰修建了一套排水系统来使贝茜的草地免除被大水淹没的烦恼（不用担心，雨水会流向附近的一条小溪）。作为一名一流的技师，农夫约翰已经在每条排水沟的一端安上了控制器，这样他可以控制流入排水沟的水流量。
题目描述
农夫约翰知道每一条排水沟每分钟可以流过的水量，和排水系统的准确布局（起点为水潭而终点为小溪的一张网）。需要注意的是，有些时候从一处到另一处不只有一条排水沟。
根据这些信息，计算从水潭排水到小溪的最大流量。对于给出的每条排水沟，雨水只能沿着一个方向流动，注意可能会出现雨水环形流动的情形。
输入格式：
第1行: 两个用空格分开的整数N (0 <= N <= 200) 和 M (2 <= M <= 200)。N是农夫John已经挖好的排水沟的数量，M是排水沟交叉点的数量。交点1是水潭，交点M是小溪。
第二行到第N+1行: 每行有三个整数，Si, Ei, 和 Ci。Si 和 Ei (1 <= Si, Ei <= M) 指明排水沟两端的交点，雨水从Si 流向Ei。Ci (0 <= Ci <= 10,000,000)是这条排水沟的最大容量。
输出格式：
输出一个整数，即排水的最大流量。
题解
值得新手练的题。
代码
const
maxn=201;
var
n,m,ans:longint;
c,f:array [0..maxn,0..maxn] of longint;
a,b,q:array [0..maxn] of longint;
v:array [0..maxn] of boolean;
function min(o,p:longint):longint;
begin
if othen exit(o);
exit(p);
end;
procedure init;
var
i,x,y,z:longint;
begin
fillchar(c,sizeof(c),0);
fillchar(f,sizeof(f),0);
readln(n,m);
ans:=0;
for i:=1 to n do
begin
readln(x,y,z);
c[x,y]:=c[x,y]+z;
end;
end;
procedure main;
var
h,t,i,j:longint;
begin
repeat
fillchar(v,sizeof(v),0);
h:=0; t:=1; q[1]:=1; v[1]:=true;
a[1]:=0; b[1]:=maxlongint;
while hdo
begin
inc(h); i:=q[h];
for j:=1 to m do
if (c[i,j]>0) and (f[i,j]and (not v[j]) then
begin
inc(t); q[t]:=j;
v[j]:=true;
a[j]:=i; b[j]:=min(c[i,j]-f[i,j],b[i]);
end else
if (c[j,i]>0) and (f[j,i]>0) and (not v[j]) then
begin
inc(t); q[t]:=j;
v[j]:=true;
a[j]:=i; b[j]:=min(f[j,i],b[i]);
end;
if v[m] then break;
end;
if v[m] then
begin
i:=m;
while i<>0 do
begin
if a[i]<>0 then inc(f[a[i],i],b[m]);
i:=a[i];
end;
end;
until not v[m];
end;
procedure print;
var
i:longint;
begin
for i:=1 to m-1 do
ans:=ans+f[i,m];
writeln(ans);
end;
begin
while not eof do
begin
init;
main;
print;
end;
end.
// (`~(oo)~)