題意

農民約翰被選為他們鎮的鎮長！他其中一個競選承諾就是在鎮上建立起互聯網，并連接到所有的農場。當然，他需要你的幫助。約翰已經給他的農場安排了一條高速的網絡線路，他想把這條線路共享給其他農場。為了用最小的消費，他想鋪設最短的光纖去連接所有的農場。你將得到一份各農場之間連接費用的列表，你必須找出能連接所有農場并所用光纖最短的方案。每兩個農場間的距離不會超過100000 ?

分析

假設連通網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/9500151.html

總結

以上是生活随笔為你收集整理的USACO 3.1 Agri-Net 最短网络 (最小生成树)(克鲁斯卡尔算法)的全部內容，希望文章能夠幫你解決所遇到的問題。

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