USACO 3.1 Agri-Net 最短网络 (最小生成树)(克鲁斯卡尔算法)

题意

农民约翰被选为他们镇的镇长！他其中一个竞选承诺就是在镇上建立起互联网，并连接到所有的农场。当然，他需要你的帮助。约翰已经给他的农场安排了一条高速的网络线路，他想把这条线路共享给其他农场。为了用最小的消费，他想铺设最短的光纤去连接所有的农场。你将得到一份各农场之间连接费用的列表，你必须找出能连接所有农场并所用光纤最短的方案。每两个农场间的距离不会超过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.