落谷_2740/poj_1273/USACO_4.2/网络流

题目背景

在农夫约翰的农场上，每逢下雨，贝茜最喜欢的三叶草地就积聚了一潭水。这意味着草地被水淹没了，并且小草要继续生长还要花相当长一段时间。因此，农夫约翰修建了一套排水系统来使贝茜的草地免除被大水淹没的烦恼（不用担心，雨水会流向附近的一条小溪）。作为一名一流的技师，农夫约翰已经在每条排水沟的一端安上了控制器，这样他可以控制流入排水沟的水流量。

题目描述

农夫约翰知道每一条排水沟每分钟可以流过的水量，和排水系统的准确布局（起点为水潭而终点为小溪的一张网）。需要注意的是，有些时候从一处到另一处不只有一条排水沟。
根据这些信息，计算从水潭排水到小溪的最大流量。对于给出的每条排水沟，雨水只能沿着一个方向流动，注意可能会出现雨水环形流动的情形。

输入格式：

第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 o<p then 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 h<t do
      begin
        inc(h); i:=q[h];
        for j:=1 to m do
          if (c[i,j]>0) and (f[i,j]<c[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)~)