Forum: FreePascal
by DesWeeedert,
23. Mai 2017
Hallo zusammen und vielen Dank für eure Antworten =)
Die Schreibweise von Zacherl war mir in der Form noch unbekannt und ich habe seinen Code erstmal für mich übersetzt:
function BlattMax ( inRefWurzel : tRefBinBaum; inPfadMax : tNatZahl) : Boolean;
{ prüft ob alle Blätter des Baumes die Maxima der Pfade zu ihnen sind }
begin
if (inRefWurzel^.links = nil) and...
Forum: FreePascal
by DesWeeedert,
20. Mai 2017
Hallo,
ich habe hier mal wieder eine Aufgabe, an der ich gerade scheitere:
Schreiben Sie eine rekursive Funktion, die einen Binärbaum mit mindestens zwei Knoten übergeben bekommt und den gesamten Baum durchläuft. Dabei entscheidet Ihre Funktion ob der Wert jedes Blattes des Baumes größer ist als jeder der Werte der Knoten auf dem Pfad von der Wurzel zu diesem Blatt. Neben dem üblichen...