关于最小生成树的 prim 算法

前几天，算法的大概思路大概还是清楚了，就是不知道实现，唉，补作业去了，今天晚上弄了下，没什么头绪，于是先看了百度百科里的程序。

一开始还是搞不懂，后面应该大概明白了，

这是一个 样例数据，储存的方式是邻接矩阵。

(0,6,1,5,0,0),
(6,0,5,0,3,0),
(1,5,0,5,6,4),
(5,0,5,0,0,2),
(0,3,6,0,0,6),
(0,0,4,2,6,0);
prim 算法的大概思路是 一开始随便选一个点，找到与之相邻的最小权值，用数组f记录最小，百度百科里的意思大概就是这样了，貌似和向总讲的不一样，为什么他说要用到插入排序，或者用堆优化，可能有其他的实现方法，目前还没想出来。

program self_prim;
const map:array [1..6,1..6] of integer=((0,6,1,5,0,0),
(6,0,5,0,3,0),
(1,5,0,5,6,4),
(5,0,5,0,0,2),
(0,3,6,0,0,6),
(0,0,4,2,6,0));
var
i,j,k,l,m,n,min,minn:longint;
u,v:set of 1..6;
s:array[1..3,1..6]of longint;
f:array[1..6]of longint;
d:array[1..6]of longint;

begin
u:=[ ];
v:=[ ];
for i:=1 to 6 do
f[i]:=1000;
for i:=2 to 6 do
v:=v+[i];
l:=1;
for i:=1 to 5 do
begin
min:=1000;
for j:=1 to 6 do
begin
if(map[l,j]<>0)and(map[l,j]<f[j])and(j in v) then
begin
d[j]:=l; f[j]:=map[l,j];
end;
if(f[j]<min)and(f[j]<>0) then
begin
min:=f[j];
minn:=j;
end;
end;
f[minn]:=0;
v:=v-[minn];
s[1,i]:=d[minn];
s[2,i]:=minn;
s[3,i]:=min;
l:=minn;
writeln(s[1,i],' to ',s[2,i],' = ',s[3,i]);
end;
end.