prim-城市联盟

问题描述：
  某国有n个城市，它们互相之间没有公路相通，因此交通十分不便。为解决这一“行路难”的问题，政府决定修建公路。修建公路的任务由各城市共同完成。
  修建公路分若干轮完成。在每一轮中，每个城市选择一个与它最近的城市，申请修建通往该城市的公路。政府负责审批这些申请以决定是否同意修建。
 政府审批的规则如下：
 1）如果两个或以上城市申请修建同一条公路，则让它们共同修建。
 2）如果三个或以上的城市申请修建的公路成环。则政府否决其中一条最长的公路修建申请。造成环太浪费了。
3）其他情况的申请一律同意。
  一轮修建结束后，可能会有若干城市可以通过公路直接或间接相连。这些可以互相连通的城市即组成“城市联盟”。在下一轮修建中，每个“城市联盟”将被看作一个城市，发挥一个城市的作用。
  当所有城市被组合成一个“城市联盟”时，修建工程就完成了。
  你的任务是根据城市的分布和前面讲到的规则，计算出讲要修建的公路总长度。
  下面给出城市的每个坐标(x,y)，两个城市之间的距离公式如下：s=sqrt(sqr(x1-x2)+sqr(y1-y2))，即横坐标差的平方+纵坐标差的平方 ,再开方。
输入：
  第一行一个整数n，表示城市的数量
  以下n行，每行两个整数x和y，表示一个城市的坐标
输出：
　　一个实数，四舍五入保留两位小数，表示公路总长度。（保证有唯一解）
样例输入 Sample Input
 4
0 0
1 2
-1 2
0 4
样例输出 Sample Output
 6.47
说明：
(0,4)->(-1,2)->(1,2)->(0,0)

40%的数据n<=200

100%的数据n<=5000,坐标x,y都大于等于-1000000,小于等于1000000

var f:array[0..5000]of real;
a,b:array[1..5000]of longint;
p:array[1..5000]of boolean;
n,i,j,k:longint;
x,y,xx,yy:int64;
ans,min:real;
begin
  fillchar(p,sizeof(p),true);
  fillchar(f,sizeof(f),$7f);
  readln(n);
  for i:=1 to n do readln(a[i],b[i]);
  f[1]:=0;
  for i:=1 to n do
  begin
    k:=0;
    for j:=1 to n do
    if(p[j])and(f[j]<f[k]) then k:=j;
    p[k]:=false;
    for j:=1 to n do
    if p[j] then
    begin
      x:=a[k]-a[j];
      y:=b[k]-b[j];
      xx:=x*x;
      yy:=y*y;
      if sqrt(xx+yy)<f[j] then f[j]:=sqrt(xx+yy);
    end;
  end;
  ans:=0;
  for i:=1 to n do ans:=ans+f[i];
  write(ans:0:2);
end.