Forum: FreePascal
by Zacherl,
24. Mai 2017
Stimmt, das wollte ich zu deinem Code auch noch angemerkt haben.
Falls dein Lehrer/Prof. deshalb nachfragen sollte, kannst du ihm ja die offensichtlichen Vorteile präsentieren. Auf das erste Problem der alternativen Schreibweise bist du ja schon von selbst gestoßen: Man kann der Funktion über den konkreten Namen zwar ein Ergebnis zuweisen, nicht aber das momentane Ergebnis nochmal abfragen....
Forum: FreePascal
by Zacherl,
20. Mai 2017
Eine while Schleife hat in einem rein rekursiven Algorithmus eher nichts zu suchen :stupid: An dieser Stelle fehlt außerdem ein begin..end Block, falls du vorhattest nicht nur die erste Bedingung in der Schleife auszuführen. Allgemein ist dein Code aber viel zu kompliziert gedacht:
type
TNodeValue = 1..MAXINT;
PTreeNode = ^TTreeNode;
TTreeNode = record
public
Value:...