最小生成树（并查集）

题意：

找一课最小生成树

思路：

基本思想：每次选不属于同一连通分量(保证无圈)且边权值最小的2个顶点，将边加入MST，并将所在的2个连通分量合并，直到只剩一个连通分量
算法实现：
将边按非降序排列(Quicksort,O(E㏒E))
While 合并次数少于|V|-1
取一条边(u,v)(因为已经排序，所以必为最小)
If u,v不属于同一连通分量 then
合并u,v所在的连通分量
输出边(u,v)
合并次数增1；tot=tot+W(u,v)
算法结束：tot为MST的总权值
直接复制了一波课件，因为这题太简单、

type
  arr=record
  x,y,w:longint;
 end;
const
 maxn=1000;
var
 a:array [0..maxn*maxn] of arr;
 f:array [0..maxn*maxn] of longint;
 i,j,n,m,p,ans:longint;

procedure qsort(l,r:longint);
var
 i,j,mid:longint;
begin
 i:=l; j:=r;
 mid:=a[(l+r) div 2].w;
 while i<j do
 begin
  while a[i].w<mid do inc(i);
  while a[j].w>mid do dec(j);
  if i<=j then
  begin
   a[0]:=a[i];
   a[i]:=a[j];
   a[j]:=a[0];
   inc(i); dec(j);
  end;
 end;
 if i<r then qsort(i,r);
 if l<j then qsort(l,j);
end;

function father(x:longint):longint;
var
 i,j:longint;
begin
 if x<>f[x] then father:=father(f[x])
            else father:=x;
 f[x]:=father;

end;

begin
 readln(n);
 for i:=1 to n do
 begin
  for j:=1 to n do
  if i<j then
  begin
   inc(p);
   read(a[p].w);
   a[p].x:=i;
   a[p].y:=j;
  end;
  readln;
 end;
 qsort(1,p);
 for i:=1 to p do
  f[i]:=i;
 for i:=1 to p do
  if f[father(a[i].x)]<>f[father(a[i].y)] then
  begin
   f[father(a[i].x)]:=f[father(a[i].y)];
   ans:=ans+a[i].w;
  end;
 writeln(ans);

end.