Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var
- AnzLok: integer; {AnzahlLokal : Wird bei jedem Funktionsaufruf erneut (Lokal) erstellt - Wird über die Funktion zurückgeliefert}
- begin
- AnzLok:= 0;
- if inRefWurzel <> nil then {Prüfe ob der Baum/Knoten Existiert}
- begin
- AnzLok:= AnzLok+ 1; {Erhöhe AnzLok um 1}
- if inRefWurzel^.links <> nil then
- AnzLok:= BBKnotenzahl (inRefWurzel^.links) + AnzLok;
- {AnzLok wird mit dem Aktuellen Lokalen Wert und dem Zurueckgelieferten Wert Summiert und somit Hochgezaehlt}
- if inRefWurzel^.rechts <> nil then
- AnzLok:= BBKnotenzahl (inRefWurzel^.rechts) + AnzLok;
- end;
- BBKnotenzahl := AnzLok
- {Die Erste Rekursionsebene ist auch die letzte Rekursionsebene somit steht in AnzahlLok am ende die Anzahl von Knoten, dieses weisen wir noch der Globalen Variable zu}
- end; { BBKnotenzahl }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement