最大净获利的策略与实现-优快云博客

。。起初以为基本的最大流最少也能过个4 ~5组数据。。可是不然。。。
就拿NOI2006-Day2的profit来说吧。。。
【问题描述】
新的技术正冲击着手机通讯市场，对于各大运营商来说，这既是机遇，更是挑战。THU集团旗下的CS&T通讯公司在新一代通讯技术血战的前夜，需要做太多的准备工作，仅就站址选择一项，就需要完成前期市场研究、站址勘测、最优化等项目。
在前期市场调查和站址勘测之后，公司得到了一共N个可以作为通讯信号中转站的地址，而由于这些地址的地理位置差异，在不同的地方建造通讯中转站需要投入的成本也是不一样的，所幸在前期调查之后这些都是已知数据：建立第i个通讯中转站需要的成本为Pi（1≤i≤N）。
另外公司调查得出了所有期望中的用户群，一共M个。关于第i个用户群的信息概括为Ai, Bi和Ci：这些用户会使用中转站Ai和中转站Bi进行通讯，公司可以获益Ci。（1≤i≤M, 1≤Ai, Bi≤N）
THU集团的CS&T公司可以有选择的建立一些中转站（投入成本），为一些用户提供服务并获得收益（获益之和）。那么如何选择最终建立的中转站才能让公司的净获利最大呢？（净获利 = 获益之和 - 投入成本之和）
【输入格式】
输入文件中第一行有两个正整数N和M 。
第二行中有N个整数描述每一个通讯中转站的建立成本，依次为P1, P2, …, PN 。
以下M行，第(i + 2)行的三个数Ai, Bi和Ci描述第i个用户群的信息。
所有变量的含义可以参见题目描述。
【输出格式】
你的程序只要向输出文件输出一个整数，表示公司可以得到的最大净获利。
【输入样例】
5 5
1 2 3 4 5
1 2 3
2 3 4
1 3 3
1 4 2
4 5 3
【输出样例】
4
【样例说明】
选择建立1、2、3号中转站，则需要投入成本6，获利为10，因此得到最大收益4。
【评分方法】
本题没有部分分，你的程序的输出只有和我们的答案完全一致才能获得满分，否则不得分。
【数据规模和约定】
80%的数据中：N≤200，M≤1 000。
100%的数据中：N≤5 000，M≤50 000，0≤Ci≤100，0≤Pi≤100。

最基本的最大流用邻接表只能过2组。。。不用邻接表。。1组
我起初做没用邻接表。。只过了一组

这是我宽搜加邻接表后的程序

program as;
var
   i,j,k,m,n,sum,min,big : longint;
   q1          : boolean;
   a,less      : array[0..2500,0..2500] of integer;
   b,c,s  : array[0..2000] of integer;
   bool          : array[0..2000] of boolean;
procedure findway(h :integer);
begin
   min:=s[h];
   repeat
      dec(a[b[c[h]],b[h]],min);
      inc(a[b[h],b[c[h]]],min);
      h:=c[h];
   until h=1;
   sum:=sum+min;
end; { findway }
procedure dps;
var
   i,j,k,q,h,min :integer;
begin
   q:=1;
   h:=2;
   b[1]:=1;
   c[1]:=1;
   s[1]:=10000;
   while q<>h do
   begin
      for j:=1 to less[b[q],0] do
        begin
         i:=less[b[q],j];
  if (a[b[q],i]<>0) and (bool[i]) then
     begin
        b[h]:=i;
        c[h]:=q;
        bool[i]:=false;
        if a[b[q],b[h]]<=s[q] then
    s[h]:=a[b[q],b[h]]
                  else
                    s[h]:=s[q];
        if i=n then
    begin
       findway(h);
       exit;
    end;
        inc(h);
     end;
          end;
      inc(q);
   end;
   q1:=false;
end; { shensou }
procedure duru;
var
   i,j,k,x,y,z,s : integer;
   b:array[1..201] of integer;
begin
   readln(n,m);
   for i:=1 to n do
     read(b[i]);
   q1:=true;
   fillchar(a,sizeof(a),0);
   for i:=1 to m do
     begin
       read(x,y,z);
       a[i+1,x+m+1]:=100;
       a[i+1,y+m+1]:=100;
       inc(less[i+1,0]);
       a[1,i+1]:=z;
       big:=big+z;
     end;
    s:=0;
   for i:=m+2 to m+n+1 do
     begin
      inc(s);
      a[i,m+n+2]:=b[s];
     end;
   n:=n+m+2;
   for i:=1 to n do
     for j:=1 to n do
       if (a[i,j]<>0)or(a[j,i]<>0) then
         begin
           inc(less[i,0]);
           less[i,less[i,0]]:=j;
         end;
end; { duru }
begin
   assign(input,'profit.in');
   reset(input);
   assign(output,'profit.ans');
   rewrite(output);
   duru;
   repeat
      fillchar(bool,sizeof(bool),true);
      fillchar(b,sizeof(b),0);
      fillchar(s,sizeof(s),0);
      fillchar(c,sizeof(c),0);
      bool[1]:=false;
      dps;
   until q1=false;
   writeln(big-sum);
   close(input);
   close(output);
end.