SSL 1612 最優佈線問題(最小生成樹)

2021-07-29 12:12:11 字數 1326 閱讀 3828

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)

與一樣。

**如下:

var  n,i,j,k,t,min,ans:longint; 

a:array[0..101,0..101]of longint;

v:array[0..101]of 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),#0);

v[1]:=1;

for i:=1

to n-1

dobegin

min:=maxlongint;

for j:=1

to n do

if v[j]=1

then

for k:=1

to n do

if v[k]=0

then

if (a[j,k]and(a[j,k]<>0) then

begin

min:=a[j,k];

t:=k;

end;

if min<>maxlongint then

begin

v[t]:=1;

ans:=ans+min;

end;

end;

write(ans);

end.

最優佈線問題 SSL 1612

description 學校有n臺計算機,為了方便資料傳輸,現要將它們用資料線連線起來。兩台計算機被連線是指它們之間有資料線連線。由於計算機所處的位置不同,因此不同的兩台計算機的連線費用往往是不同的。當然,如果將任意兩台計算機都用資料線連線,費用將是相當龐大的。為了節省費用,我們採用資料的間接傳輸手...

ssl1612 最優佈線問題

最優佈線問題 time limit 10000ms memory limit 65536k total submit 132 accepted 105 case time limit 1000ms description 學校有n臺計算機,為了方便資料傳輸,現要將它們用資料線連線起來。兩台計算機被連...

SSL 1612 最優佈線問題(最小生成樹)

description 學校有n臺計算機,為了方便資料傳輸,現要將它們用資料線連線起來。兩台計算機被連線是指它們之間有資料線連線。由於計算機所處的位置不同,因此不同的兩台計算機的連線費用往往是不同的。當然,如果將任意兩台計算機都用資料線連線,費用將是相當龐大的。為了節省費用,我們採用資料的間接傳輸手...