最优布线问题

Description

学校有n台计算机，为了方便数据传输，现要将它们用数据线连接起来。两台计算机被连接是指它们之间有数据线连接。由于计算机所处的位置不同，因此不同的两台计算机的连接费用往往是不同的。
当然，如果将任意两台计算机都用数据线连接，费用将是相当庞大的。为了节省费用，我们采用数据的间接传输手段，即一台计算机可以间接的通过若干台计算机（作为中转）来实现与另一台计算机的连接。
现在由你负责连接这些计算机，你的任务是使任意两台计算机都连通（不管是直接的或间接的）。

Input

输入文件wire.in，第一行为整数n（2<=n<=100），表示计算机的数目。此后的n行，每行n个整数。第x+1行y列的整数表示直接连接第x台计算机和第y台计算机的费用。

Output

输出文件wire.out，一个整数，表示最小的连接费用。

Sample Input

3
0 1 2
1 0 1
2 1 0
Sample Output

2（注：表示连接1和2，2和3，费用为2）

题解：

 作为第一篇最小生成树的博客，记录一下克鲁斯卡尔和prim吧：
 prim：
 算法从一个点（偷偷告诉你其实是随便一个点）开始，重复执行下述操作：在另一个集合中找一点最小的边相连。
 克鲁斯卡尔：
 一开始每一个点为一个集合，重复：在不同的两个集合中选择代价最小的边，知道所有顶点都为同一个集合。
克鲁斯卡尔：

var
  a:array[1..200,1..200] of real;
  d:array[1..200,1..2] of real;
  b:array[1..1000] of longint;
  n,i,j,k,x,y,c:longint;
  min,ans:real;
procedure init;
begin
  readln(n);
  for i:=1 to n do
    readln(d[i,1],d[i,2]);
  for i:=1 to n do
    for j:=1 to n do
      a[i,j]:=sqrt(sqr(d[i,1]-d[j,1])+sqr(d[i,2]-d[j,2]));
end;
begin
  init;
  for i:=1 to n do b[i]:=i;
  for i:=1 to n-1 do
    begin
      min:=maxlongint;
      for j:=1 to n do
        for k:=1 to n do
          if (b[j]<>b[k])and(a[j,k]<>0)and(a[j,k]<min) then
            begin
              min:=a[j,k];
              x:=j;
              y:=k;
            end;
      ans:=ans+min;
      c:=b[y];
      for j:=1 to n do if b[j]=c then b[j]:=b[x];
    end;
  writeln(ans:0:2);
end.

prim:

var
  a:array[1..200,1..200] of longint;
  b:array[1..1000] of longint;
  n,i,j,k,x,y,ans,min,c:longint;
procedure init;
begin
  readln(n);
  for i:=1 to n do
    begin
    for j:=1 to n do
      read(a[i,j]);
    readln;
    end;
end;
begin
  init;
  b[1]:=1;
  for k:=1 to n-1 do
   begin
     min:=maxlongint;
     for i:=1 to n do
      if b[i]=1 then
       for j:=1 to n do
         if b[j]=0 then
               if (a[i,j]<min) and (a[i,j]<>0)  then
        begin
          min:=a[i,j];
          x:=j;
        end;
     if min<>maxlongint
       then begin
              ans:=ans+min;
              b[x]:=1;
            end;
   end;
  writeln(ans);
end.