description
學校有n臺計算機，為了方便資料傳輸，現要將它們用資料線連線起來。兩台計算機被連線是指它們之間有資料線連線。由於計算機所處的位置不同，因此不同的兩台計算機的連線費用往往是不同的。
當然，如果將任意兩台計算機都用資料線連線，費用將是相當龐大的。為了節省費用，我們採用資料的間接傳輸手段，即一台計算機可以間接的通過若干臺計算機（作為中轉）來實現與另一台計算機的連線。
現在由你負責連線這些計算機，你的任務是使任意兩台計算機都連通（不管是直接的或間接的）。
input
輸入檔案wire.in，第一行為整數n（2
<=n<=100），表示計算機的數目。此後的n行，每行n個整數。第x+1行y列的整數表示直接連線第x臺計算機和第y臺計算機的費用。
output
輸出檔案wire.out，乙個整數，表示最小的連線費用。
sample input30
1210
1210
sample output
2（注：表示連線1和2，2和3，費用為2）
hint
fillchar(f,sizeof(f),$7f)把所有值賦值為最大
題解：這道題用prim演算法，隨便從乙個點開始，反覆地執行，在另乙個集合中找一點最小的邊相連。
const
maxn=100;
var a:array[1..maxn,1..maxn] of longint;
b:array[1..1000] of longint;
i,j,k,x,min,ans,n: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
dobegin
min:=maxint;
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]and (a[i,j]<>0) then
begin
min:=a[i,j];
x:=j;
end;
if min<>maxint
then
begin
ans:=ans+min;
b[x]:=1;
end;
end;
writeln(ans);
end.
ssl1612 最優佈線問題
最優佈線問題 time limit 10000ms memory limit 65536k total submit 132 accepted 105 case time limit 1000ms description 學校有n臺計算機，為了方便資料傳輸，現要將它們用資料線連線起來。兩台計算機被連...
SSL 1612 最優佈線問題（最小生成樹）
description 學校有n臺計算機，為了方便資料傳輸，現要將它們用資料線連線起來。兩台計算機被連線是指它們之間有資料線連線。由於計算機所處的位置不同，因此不同的兩台計算機的連線費用往往是不同的。當然，如果將任意兩台計算機都用資料線連線，費用將是相當龐大的。為了節省費用，我們採用資料的間接傳輸手...
SSL 1612 最優佈線問題（最小生成樹）
description 學校有n臺計算機，為了方便資料傳輸，現要將它們用資料線連線起來。兩台計算機被連線是指它們之間有資料線連線。由於計算機所處的位置不同，因此不同的兩台計算機的連線費用往往是不同的。當然，如果將任意兩台計算機都用資料線連線，費用將是相當龐大的。為了節省費用，我們採用資料的間接傳輸手...