題意

學校有n臺計算機，為了方便數據傳輸，現要將它們用數據線連接起來。兩臺計算機被連接是指它們之間有數據線連接。由于計算機所處的位置不同，因此不同的兩臺計算機的連接費用往往是不同的。
當然，如果將任意兩臺計算機都用數據線連接，費用將是相當龐大的。為了節省費用，我們采用數據的間接傳輸手段，即一臺計算機可以間接的通過若干臺計算機（作為中轉）來實現與另一臺計算機的連接。
現在由你負責連接這些計算機，你的任務是使任意兩臺計算機都連通（不管是直接的或間接的）。?

分析

這題跟最短網絡一模一樣

假設連通網G＝（V，E），則令最小生成樹的初始狀態為只有n個頂點而無邊的非連通網，圖中每個頂點自成一個連通分量。在E中選擇代價最小的邊，若該邊依附的頂點落在T中不同的連通分量上，則將此邊加入到T中，否則舍去此邊而選擇下一條代價最小的邊。依此類推，直至T中所有頂點都在同一連通分量上為止。

var
n,i,j,tj,q,p,min,k,t:longint;
a:array[0..200,0..200]of longint;
f:array[0..200]of longint;
begin
? ? readln(n);
? ? for i:=1 to n do
? ? for j:=1 to n do
? ? read(a[i,j]);
? ? tj:=0;
? ? for i:=1 to n do
? ? f[i]:=i;
? ? for k:=1 to n-1 do
? ? begin
? ? ? ? min:=maxlongint;
? ? ? ? for i:=1 to n do
? ? ? ? for j:=1 to n do
? ? ? ? if (f[i]<>f[j])and(a[i,j]<min)and(a[i,j]<>0) then
? ? ? ? begin
? ? ? ? ? ? min:=a[i,j];
? ? ? ? ? ? p:=j;
? ? ? ? ? ? q:=i;
? ? ? ? end;
? ? ? ? tj:=tj+min;
? ? ? ? t:=f[p];
? ? ? ? for i:=1 to n do
? ? ? ? if f[i]=t then f[i]:=f[q];
? ? end;
? ? write(tj);
end.

轉載于:https://www.cnblogs.com/YYC-0304/p/9500149.html

總結

以上是生活随笔為你收集整理的最优布线问题(克鲁斯卡尔)的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。