高中纪中OJ3078. 【备战NOIP2012图论专项模拟试题】无线通讯网

problem：

国防部计划用无线网络连接若干个边防哨所。2种不同的通讯技术用来搭建无线网络：每个边防哨所都要配备无线电收发器；有一些哨所还可以增配卫星电话。

任意两个配备了一条卫星电话线路的哨所均可以通话，无论它们相距多远。而只通过无线电收发器通话的哨所之间的距离不能超过D，这是受收发器的功率限制。收发器的功率越高，通话距离D会更远，但同时价格也更贵。

收发器需要统一购买和安装，所以全部哨所只能选择安装一种型号的收发器。换句话说，每一对哨所之间的通话距离都是同一个D。

你的任务是确定收发器必须的最小通话距离D，使得每一对哨所之间至少有一条通话路径(直接的或者间接的)。

Input

第1行：2个整数S(1 <= S <= 100)和P(S < P <= 500)，S表示可安装的卫星电话的线路数，P表示边防哨所的数量。

接下来P行，每行描述一个哨所的平面坐标(x,y)，以km为单位，整数，0<=x,y<=10,000

Output

第1行：1个实数D，表示无线电收发器的最小传输距离。精确到小数点后2位。

Sample Input

2 4

0 100

0 300

0 600

150 750
Sample Output
     
     

      
      
212.13
      
      
思路：最小生成树而已，克鲁斯卡尔+并查集优化就可以了，枚举到k=p-s 就输出
      
      
伪代码：
      
      
function father(x:longint):longint;
begin
        if fat[x]=x then exit(x)
        else fat[x]:=father(fat[x]);
        exit(fat[x]);
end;找爸爸
procedure union(x,y:longint);
var
        fa,fb:longint;
begin
        fa:=father(x);
        fb:=father(y);
        if fa<>fb then fat[fa]:=fb;
end;合并爸爸
procedure zx(l,r:longint);
var
        i,j,t:longint;
        mid:real;
begin
        i:=l;
        j:=r;
        mid:=a[(l+r)div 2].sum;
        repeat
                while a[i].sum<mid do inc(i);
                while a[j].sum>mid do dec(j);
                if i<=j then
                begin
                        a[0]:=a[i];
                        a[i]:=a[j];
                        a[j]:=a[0];
                        inc(i);
                        dec(j);
                end;
        until i>j;
        if l<j then zx(l,j);
        if i<r then zx(i,r);
end;快拍，找权值最小的边
   for i:=1 to n-1 do
        begin
                for j:=i+1 to n do
                begin
                        inc(num);
                        a[num].x1:=i;
                        a[num].y1:=j;
                        a[num].sum:=sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j]));
                 end;
        end;创建a数组
        zx(1,num);
        for i:=1 to num do
        begin
                if father(a[i].x1)<>father(a[i].y1)then判断是否·同一爸爸
                begin加入队列
                        union(a[i].x1,a[i].y1);
                        if a[i].sum>tot then tot:=a[i].sum;
                        inc(k);
                end;
                if k=k1 then break;判断队列是否满
        end;