【GDKOI2010】载重量问题

题目

小王是个货车司机，当他在送货的时候需要注意一个问题，就是有一些道路是有载重量限制的。他想一次性载货越多越好，但又不想被罚款。已知有N个地点，假设每两个点间有且只有一条道路连接，他想查询从A地到B地的最大载重量是多少。

第一行有两个整数N,M,分别表示地点数和有载重量限制的道路数。(1≤N≤100；0≤M≤N×(N-1)/2)
接下来M行，每行三个整数a,b,c，分别表示地点a和b之间的道路的载重量限制是c。输入保证同一条道路不会出现两次或以上。而没有给出载重量限制的道路都是没有限制的。（1≤a,b≤N; 1≤c≤100）
接下来一行有一个正整数Q，表示查询的次数。
最后Q行每行有两个整数A,B(1≤A,B≤N),表示小王想查询从A到B地的最大载重量。

输出有Q行，每行给出相应的查询结果，即A地到B地的最大载重量。如果载重量没有限制，则输出-1。

数据范围:
对于30%的数据，1≤N≤10, 1≤Q≤10
对于60%的数据 ，1≤N≤50，1≤Q≤500
对于100%的数据，1≤N≤100, 1≤Q≤1000

分析

这题的考察的是细心，若是粗心看不仔细就容易陷入陷阱里。
首先这题咋看起来这么像网络流？
其实也就是找一条A->B的路使得最小的边权最大。
又是二分！
所以我们每次二分出一个值mid，判断大于等于mid的边是否能使A->B。
那么我们便可以用并查集来判连通了。
然而我们需要注意两点：
1.没有给出的边是连maxlongint;
2.最后要注意-1的情况。

var
    l,r,ri,q,x,y,i,n,m,mid,j:longint;
    a:array[1..20000,1..3] of longint;
    bz:array[1..100,1..100] of boolean;
    f:array[1..1000] of longint;
function max(l,r:longint):longint;
begin
    if l<r then exit(r);exit(l);
end;
function get(x:longint):longint;
begin
    if f[x]=0 then exit(x);f[x]:=get(f[x]);exit(f[x]);
end;
function pd(x,y,z:longint):boolean;
var i,fx,fy:longint;
begin
    fillchar(f,sizeof(f),0);
    for i:=1 to m do
    if a[i,3]>=z then begin
       fx:=get(a[i,1]);fy:=get(a[i,2]);
       if fx<>fy then f[fx]:=fy;
    end;
    exit(get(x)=get(y));
end;
begin
    readln(n,m);
    for i:=1 to m do begin readln(a[i,1],a[i,2],a[i,3]);bz[a[i,1],a[i,2]]:=true;bz[a[i,2],a[i,1]]:=true;ri:=max(ri,a[i,3]);end;
    readln(q);
    for i:=1 to n do
       for j:=i+1 to n do
       if not bz[i,j] then begin inc(m);a[m,1]:=i;a[m,2]:=j;a[m,3]:=maxlongint;end;
    for q:=1 to q do begin
        readln(x,y);
        l:=0;r:=ri;
        while l<r do begin
           mid:=(l+r)shr 1;
           if pd(x,y,mid) then l:=mid else r:=mid-1;
           if l=r-1 then break;
        end;
        if pd(x,y,r) then l:=r;
        if pd(x,y,maxlongint-1) then writeln(-1) else writeln(l);
    end;
end.