最優佈線問題

2021-07-29 12:13:15 字數 1503 閱讀 8196

最優佈線問題

time limit:10000ms  memory limit:65536k

total submit:116 accepted:95

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

varn,i,j,w,ans:longint;

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

b:array[0..1000] of boolean;

min:array[0..1000] of longint;

begin

read(n);

for i:=1 to n do

for j:=1 to n do

read(a[i,j]);

for i:=1 to n do min[i]:=a[1,i];

fillchar(b,sizeof(b),true);

b[1]:=false;

min[0]:=maxlongint;

for i:=2 to n do

begin

w:=0;

for j:=2 to n do

if b[j] then

if min[j]inc(ans,min[w]);

b[w]:=false;

for j:=2 to n do

if b[j] then

if a[w,j]end;

writeln(ans);

end.

最優佈線問題

time limit 1000ms memory limit 65536k 有疑問?點這裡 學校有n臺計算機,為了方便資料傳輸,現要將它們用資料線連線起來。兩台計算機被連線是指它們中間有資料線連線。由於計算機所處的位置不同,因此不同的兩台計算機的連線費用往往是不同的。當然,如果將任意兩台計算機都用資...

最優佈線問題

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

最優佈線問題

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