比较简单的费用流,一目了然 ; type node=record next,point,flow,cost:longint; end; ..] of node; q:..] of longint; p,d,pre,cur,u,w:..] of longint; v:..] of boolean; s,i,len,n,m,t:longint; function min(a,b:longint):longint; begin if a>b then exit(b) else exit(a); end…