SSL 1682——USACO 3.1 Agri-Net 最短網路 (最小生成樹)

Description

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

Input

第一行： 農場的個數，N（3<=N<=100）。
第二行..結尾: 後來的行包含了一個N*N的矩陣,表示每個農場之間的距離。理論上，他們是N行，每行由N個用空格分隔的陣列成，實際上，他們限制在80個字元，因此，某些行會緊接著另一些行。當然，對角線將會是0，因為不會有線路從第i個農場到它本身。

Output

只有一個輸出，其中包含連線到每個農場的光纖的最小長度。

Sample Input

4
0 4 9 21
4 0 8 17
9 8 0 16
21 17 16 0
Sample Output

28

---

圖論！！！！！
最小生成樹！！！！！
普里姆演算法（貪心）
列舉每一個被記錄過的點，找到這些被記錄過的點的到任何一個沒有記錄過的點最小長度，再記錄下來，標記為1.

---

程式碼如下：

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 do
    begin
      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]<min)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.