DGL • Thema anzeigen - Selbstaufruf von proceduren

Selbstaufruf von proceduren

Moderator: DGL-Team

Seite 1 von 1

[ 7 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

geo

Betreff des Beitrags: Selbstaufruf von proceduren

Verfasst: Di Aug 23, 2005 17:10

DGL Member

Registriert: Di Dez 02, 2003 12:47
Beiträge: 300
Wohnort: Marburg

Gibt es etwas, dass ich bechten muss, wenn ich funktionen oder proceduren schreibe, die sich beabsichtigt selbst aufrufen?

Etwa, wenn ich möchte, dass ein schachprogramm fünf züge im vorraus rechnet, könnte ich entweder fünf repeat-schleifen ineinander schreiben (die fast alle dass selbe beinhalten) oder ich schreibe eine funktion mit einer schleife, die sich in der schleife selber aufruft (natürlich mit abfrage um auch wiklich nur fünf züge zu berechnen)...

Ich stelle die Frage, weil ich probleme mit den variable, die in der funktion deklariert sind, habe, die ich mir nicht erklären kann!

Das sieht in etwa so aus (stark vereinfacht!):

Code:

  function CalculateNextStep(S,G,AP,PP: Byte): smallint;
  var
    i: Integer;
    B: Smallint;
  begin
    CalculatePossibilitys(@Sets[S-1,G],@Sets[S],AP,PP);
    if S=N then begin
      if (S/2)=Trunc(S/2) then begin
        result:=100;
        for i := 1 to Sets[S-1,G].Possibilitys do begin
          if Sets[S,i].Balance<result then begin
            result:=Sets[S,i].Balance;
          end;
        end
      end else begin
        result:=-100;
        for i := 1 to Sets[S-1,G].Possibilitys do begin
          if Sets[S,i].Balance>result then
            result:=Sets[S,i].Balance;
        end
      else result:=-99;
      end;
    end else begin
      if (S/2)=Trunc(S/2) then begin
        result:=100;
        for i := 1 to Sets[S-1,G].Possibilitys do begin
          B:=CalculateNextStep(S+1,i,PP,AP); /// selbstaufruf!!!
          if (B<result) and (B<>-100) then begin
            result:=B;
          end;
        end
      end else begin
        result:=-100;
        for i := 1 to Sets[S-1,G].Possibilitys do begin
          B:=CalculateNextStep(S+1,i,PP,AP); /// selbstaufruf!!!
          if (B>result) and (B<>100) then begin
            result:=B;
          end;
        end
      end;
    end;
  end;

_________________
Nothing, oh sweet nothing,
today we are doing nothing at all...
http://www.geo-progs.de

Nach oben

Grizzly

Betreff des Beitrags:

Verfasst: Di Aug 23, 2005 17:16

DGL Member

Registriert: Sa Nov 13, 2004 11:00
Beiträge: 229
Wohnort: Steinhude

ausser ddass du keine entlosaufrufe produzierst gibts da ansich nich soviel zu beachten. vll. könntest du etwas spezifischer bezüglich deiner Probleme werden.

ps: nennt sich übrigens rekursion

Nach oben

LarsMiddendorf

Betreff des Beitrags:

Verfasst: Di Aug 23, 2005 17:51

DGL Member

Registriert: Sa Dez 28, 2002 11:13
Beiträge: 2244

Falls du viele lokale Variablen und eine hohe Rekursivstiefe hast, kann es passieren, dass der Stack nicht ausreicht, aber das kann man dann in den Projektoptionen/Linkereinstellungen umstellen.

Nach oben

geo

Betreff des Beitrags:

Verfasst: Di Aug 23, 2005 18:38

DGL Member

Registriert: Di Dez 02, 2003 12:47
Beiträge: 300
Wohnort: Marburg

Dass programm ansich läuft (~1000 zeilen).
Ich erhalte allerdings ergebnisse, die ich nicht so ganz erwarte.
Dass programm spielt absulut regelkonform, aber schlecht.
Ich habe mir deshalb die variablen angeschaut, welche zur Bewertung der züge diehnen und hier tauchen zahlen auf, die ich mir nicht erklähren kann...

und mir ist dabei aufgefallen:
die Schleifenvariablen zeigen wehrte an um 98722156 obwohl die Schleife nur bis ~30 (die Obergrentze wird korrekt angezeigt) zählt?!?

kann es sein, dass delphi in bestimmten Situationen Variabkenwehrte falsch anzeigt, wenn ich dass programm anhalte?

Und danke für die antworten (jetzt weiß ich wenigstens, dass es eigentlich funktionieren müsste :-)

_________________
Nothing, oh sweet nothing,
today we are doing nothing at all...
http://www.geo-progs.de

Nach oben

LarsMiddendorf

Betreff des Beitrags:

Verfasst: Di Aug 23, 2005 18:40

DGL Member

Registriert: Sa Dez 28, 2002 11:13
Beiträge: 2244

Ja im Debugger werden Zählvariablen manchmal falsch angezeigt. Optimierung des Programms ausschalten und neu erstellen hilft da meistens.

Nach oben

geo

Betreff des Beitrags:

Verfasst: Di Aug 23, 2005 19:31

DGL Member

Registriert: Di Dez 02, 2003 12:47
Beiträge: 300
Wohnort: Marburg

meinst du unter projekt-optionen-compiler? hilft nicht!

Aber andere variablen haben auch zahlensalat (die schachbretter in den tieferen zug ebenen :-)

, aber nur sehr selten, scheinbar zufällig...)

Ich glaube ich habe da irgendwo noch nen gröberen fehler! nur witzig , dass das programm eigentlich läuft... Nur gelegentlich macht es schwachsinnige züge und hat eine völlige unfähigkeit schach matt zu setzen :shock:

Hm, werde wohl noch mal alles durchgehen und nochmal und... Binn mal gespannt auf den fehler!

_________________
Nothing, oh sweet nothing,
today we are doing nothing at all...
http://www.geo-progs.de

Nach oben

Sidorion

Betreff des Beitrags:

Verfasst: Mo Sep 05, 2005 15:52

DGL Member

Registriert: Mo Dez 20, 2004 08:58
Beiträge: 442
Wohnort: Mittweida (Sachsen)

Wenn Deine Schleife mehrzeilig ist, marke:

Code:

For iLoop:=0 to 100
Do Begin
...
End;

, also das Do unter dem For steht, wird die Zeile mit dem For 'fehlinterpretiert', d.h. da einen Unterbrechungspunkt gesetzt, bewirkt, dass 1. erst beim ZWEITEN Schleifendurchlauf angehalten wird und dass 2. wenn du mit F8 arbeitest, die Schleifenvariable beim ersten mal nicht initialisiert wird.
Unterbrechungspunkt auf die Zeile mit dem Do behebt das Problem.

_________________
Manchmal sehen Dinge, die wie Dinge aussehen wollen, mehr wie Dinge aus, als Dinge.
<Esmerelda Wetterwax>
Es kann vorkommen, dass die Nachkommen trotz Abkommen mit ihrem Einkommen nicht auskommen und umkommen.

Nach oben

Seite 1 von 1

[ 7 Beiträge ]

Foren-Übersicht » Programmierung » Allgemein

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 10 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.