4. Prozedurales Programmieren

Initialisieren des Randes R:
R = ∅ ;
// R initialisieren, d.h. die Nachfolger von s eintragen:
ergänzeRand(s,R);
// Auswählen von Knoten aus R und R ergänzen:
while R != ∅ do {
// wähle nächst gelegenen Randknoten aus:
wähle v∈R mit v.dist minimal ;
entferne v aus R ;
v.inB = true ;
ergänzeRand(v,R);
}
where
procedure ergänzeRand( v, R ) {
}
for all (v,w)∈E do {
}
if not w.inB and
}
( v.dist + c((v,w)) < w.dist ){
// w ist (kürzer) über v erreichbar
w.pred = v ;
w.dist = v.dist + c((v,w)) ;
R = R ∪ {w} ;
04.12.08 © A. Poetzsch-Heffter, TU Kaiserslautern
159