最优布线

问题描述

学校有n台计算机，为了方便数据传输，现要将它们用数据线连接起来。两台计算机被连接是指它们时间有数据线连接。由于计算机所处的位置不同，因此不同的两台计算机的连接费用往往是不同的。

当然，如果将任意两台计算机都用数据线连接，费用将是相当庞大的。为了节省费用，我们采用数据的间接传输手段，即一台计算机可以间接的通过若干台计算机（作为中转）来实现与另一台计算机的连接。

现在由你负责连接这些计算机，你的任务是使任意两台计算机都连通（不管是直接的或间接的）。

输入格式

第一行为整数n（2<=n<=100），表示计算机的数目。

此后的n行，每行n个整数。第x+1行y列的整数表示直接连接第x台计算机和第y台计算机的费用。

输出格式

一个整数，表示最小的连接费用。

输入样例

3

0 1 2

1 0 1

2 1 0

输出样例

2

（连接1和2，2和3，费用为2）

prim最小生成树

pascal代码：

var g:array[1..100,1..100] of longint;//邻接矩阵
min:array[0..100] of longint;//min[i]存放蓝点i与白点相连的最小边权
u:array[0..100] of boolean;//u[i]=true,表示顶点i还未加入到生成树中；u[i]=false,表示顶点i已加入到生成树中
n,i,j,k,t:longint;
begin
readln(n);
for i:=1 to n do
begin
for j:=1 to n do
read(g[i,j]);
readln;
end;
fillchar(min,sizeof(min),$7f);//初始化为maxlongint
min[1]:=0;
fillchar(u,sizeof(u),true);//初始化为true，表示所有顶点为蓝点
for i:=1 to n do
begin
k:=0;
for j:=1 to n do//找一个与白点相连的权值最小的蓝点k
if u[j] and (min[j]<min[k]) then k:=j;//不需判断连通
u[k]:=false;//蓝点k加入生成树，标记为白点
for j:=2 to n do//修改与k相连的所有蓝点
if u[j] and (g[k,j]<min[j]) then min[j]:=g[k,j];
end;
t:=0;
for i:=1 to n do
inc(t,min[i]);//累加权值
writeln(t);
end.