Ergebnis der Suchanfrage

• Forum: FreePascal

  AW: Prüfe: Sind alle Blätter in einem Baum die Maxima der Pfade zu ihnen?

   
    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

  AW: Prüfe: Sind alle Blätter in einem Baum die Maxima der Pfade zu ihnen?

   
    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:...