(ssl1612)最优布线问题

最优布线问题

Time Limit:10000MS  Memory Limit:65536K
Total Submit:132 Accepted:105 
Case Time Limit:1000MS

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）

Hint

Fillchar(f,sizeof(f),$7f)把所有值赋值为最大

Source

elba

var
 a:array[0..100,0..100]of longint;
 l:array[0..100]of longint;//到某个点的费用的最小值
 v:array[0..100]of boolean;//true为可加入，false为不可加入(都在里面了还加入什么)
 n,i,j,k,ans:longint;
begin
 readln(n);
 for i:=1 to n do
  begin
   for j:=1 to n do read(a[i,j]);
   readln;
  end;
 fillchar(v,sizeof(v),true);//一开始什么都没有，全都能加入
 fillchar(l,sizeof(l),$7F);//初始化为maxint
 l[1]:=0;//连第一个点的费用为0
 for i:=1 to n do
  begin
   k:=0;
   for j:=1 to n do//找目前可以连得到，而且费用最小的点
    if (l[j]<l[k]) and (v[j]) then k:=j;
   v[k]:=false;//进入后就不用再加入了
   for j:=1 to n do//换新点，可以有更多的路，把之前大一些的更新了
    if (a[k,j]<l[j]) and (v[j]) then l[j]:=a[k,j];
  end;
 for i:=1 to n do//累加最小的值
  ans:=ans+l[i];
 writeln(ans);
end.