Prim algoritmus

Minimális költségű feszítőfa




















Táv (1..Pontszám):=+∞; PrSorba az összes pont

Honnan(p):=p;

Ciklus i=1-től Pontszám-1-ig

	PrSorból(p); Táv(p):=0;
	Ciklus j=1-től SzomszédPontokSzáma(p)-ig
		s:=SzomszédPont(p,j)
		Ha Táv(s)>0 és Élhossz(p,s)<Táv(s)
			akkor Táv(s):=Élhossz(p,s)
				Honnan(s):=p;PrSorbanElőre(s)
	Ciklus vége
Ciklus vége

p:

j:

s:


Sor:



AZ INNOVÁCIÓS ÉS TECHNOLÓGIAI MINISZTÉRIUM ÚNKP-20-6 KÓDSZÁMÚ ÚJ NEMZETI KIVÁLÓSÁG PROGRAMJÁNAK A NEMZETI KUTATÁSI, FEJLESZTÉSI ÉS INNOVÁCIÓS ALAPBÓL FINANSZÍROZOTT SZAKMAI TÁMOGATÁSÁVAL KÉSZÜLT.