codevs1003

题目地址：http://codevs.cn/problem/1003/

分析：

prim

代码：

const

oo=10003;

var

i,j,n,ans:integer;

cost:longint;

ansg:array[1..10000,1..2] of byte;

g:array[1..100,1..100] of integer;

d:array[1..100] of longint;

procedure prim;

var

i,min,minp:integer;

v:array[1..100] of boolean;

pre:array[1..100] of integer;

begin

for i:=1 to n do d[i]:=oo;

d[1]:=0;

fillchar(v,sizeof(v),false);

fillchar(pre,sizeof(pre),0);

for i:=1 to n do

begin

min:=oo;

for j:=1 to n do

if (not v[j])and(d[j]<min) then

begin

min:=d[j]; minp:=j;

end;

v[minp]:=true;

if (pre[minp]<>0)and(g[pre[minp],minp]<>0) then

begin

inc(ans);

inc(cost,g[pre[minp],minp]);

if minp<pre[minp] then

begin ansg[ans,1]:=minp; ansg[ans,2]:=pre[minp]; end

else

begin ansg[ans,1]:=pre[minp]; ansg[ans,2]:=minp; end;

end;

for j:=1 to n do

if d[j]>g[minp,j] then

begin

d[j]:=g[minp,j];

pre[j]:=minp;

end;

end;

end;

begin

readln(n);

for i:=1 to n do

begin

for j:=1 to n do

read(g[i,j]);

readln;

end;

ans:=0; cost:=0;

prim;

writeln(ans);

for i:=1 to ans do

writeln(ansg[i,1],' ',ansg[i,2]);

writeln(cost);

end.