الگوريم پريم (Prim )

Prime(n,L[1..n,1..n]){
t={ }
for i=2 to n do{
nearset=1
mindist=L[1,i]
}
repeat n-1 times
{min=bi nahayat
for i=2 to n do
{if 0<mindist<min
min=mindist , k=i
t=tu{(neraset[k],k)}
for i=2 to n do
if L[k, j]<mindist
mindist=L[k,j] , neraset=k
}//end of repeat
return t
}