1048 【图论进阶】截断通路.docVIP

【图论进阶】截断通路 Time Limit:10000MS? Memory Limit:65536KTotal Submit:8 Accepted:1 Description 截断通路 (sever) 　　苏联在天才总书记天凯的带领下，迅速发展，一片欣欣向荣之势。经过一个星期的努力，苏联已经兴建起了n多道路，这使得想对其进行轰炸的美帝国感到十分的不爽。好战的美帝国头头LYNN制定了初步的攻击计划：切断苏联两个重镇之间的联系（也就是使这两城之间没有通路）。他们掌握了苏联道路的准确情况，并估算出轰炸一条道路所需的耗费。 　　现在，请你计算出切断s,t两城之间联系的最少耗费。(双向边) Input 　　第一行包含三个整数，分别为N,S,T。（N = 100） 　　接下来的若干行每行包含三个正整数a,b,c。分别表示城市a,b之间有道路相连，摧毁这条道路的耗费为c (c = 100)。 Output 　　一个整数：最少耗费。 Sample Input sever.in 3 1 3 1 2 1 2 3 2 Sample Output sever.out 1 Source 解法： 直接用最大流求两点间的最少费用。 程序： const maxn=100; var i,j,k,n,s,t,ans,m:longint; a:array[1..maxn,1..maxn]of longint; b:array[1..maxn]of boolean; g,d:array[0..maxn]of longint; found:boolean; procedure dfs(x:longint); var i,temp,md:longint; begin if x=t then begin ans:=ans+m; found:=true; exit end; temp:=m; md:=n-1; for i:=1 to n do if a[x,i]0 then begin if d[i]md then md:=d[i]; if (not b[i]) and (d[i]+1=d[x]) then begin b[i]:=true; if a[x,i]m then m:=a[x,i]; dfs(i); if found then break; m:=temp; b[i]:=false end end; if found then begin dec(a[x,i],m); inc(a[i,x],m) end else begin dec(g[d[x]]); d[x]:=md+1; inc(g[d[x]]) end end; begin readln(n,s,t); while not eoln do begin read(i,j,k); if a[i,j]0 then begin if ka[i,j] then a[i,j]:=k end else a[i,j]:=k; a[j,i]:=a[i,j]; readln; end; for i:=1 to n do a[i,i]:=0; m:=maxlongint; b[s]:=true; g[0]:=n; dfs(s); while d[s]n do begin found:=false; fillchar(b,sizeof(b),false); b[s]:=true; m:=maxlongint; dfs(s) end; writeln(ans); end.