Weg Gefunden: Programm hängt sich auf, warum?

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

Hallo,

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure TForm1.Ausgang;
begin
  ShowMessage('Ziel gefunden');
end;

procedure TForm1.WegFinden(x,y:Integer);
begin
  if (Map[x,y].Name = '') or ((Ziel.X <> x) and (Ziel.Y <> y))  then begin
    if (Ziel.X = x) and (Ziel.Y = y) then
      Ausgang
    else begin
      if Map[x,y].Name = '' then begin
        Map[x,y].Name:='m';
        WegFinden (x,y+1);  {nach rechts}
        WegFinden (x+1,y);  {nach unten }
        WegFinden (x,y-1);  {nach links }
        WegFinden (x-1,y);  {nach oben  }
        Map[x,y].name:='';

      end;
    end;
  end;
end;

warum hängt sich das Programm auf, wenn er das ziel gefunden hat ?
ich habe eine karte die ich per zufall mit steinen fülle und das ziel wird auch zufällig gesetzt und der start auch.

_________________
MFG
Michael Springwald, "kann kein englisch...."

jasocul · Verfasst: Mo 01.11.04 11:18

Ich hab deinen Source nur mal überflogen.
Meine Vermutung:
Angenommen du kommst irgendwann über deinen ersten Fall (nach rechts) in der Rekursion zum Ausgang, werden nach dem Rücksprung aus der Rekursion immer noch die anderen 3 Fälle durchgerechnet.

BenBE · Verfasst: Mo 01.11.04 11:21

Du musst die outine WegFinden als Funktion machen und im Erfolgsfall True, bei Misserfolg False zurückgeben und die Routine im Else-Zweig verlassen, wenn der Weg bereits gefunden wurde.

_________________

Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

BeenBE: das werde ich gleich mal testen
Jasocul: aber sobalt das ziel gefunden wird, müsste der else teiel doch nicht ausgewührt werden oder ?

_________________
MFG
Michael Springwald, "kann kein englisch...."

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

function TForm1.WegFinden(x,y:Integer):Boolean;
begin
  if (Map[x,y].Name = '') or ((Ziel.X <> x) and (Ziel.Y <> y))  then begin
    if (Ziel.X = x) and (Ziel.Y = y) then begin
      Ausgang;
      result:=True;
    end;

    if result = False then begin
      if Map[x,y].Name = '' then begin
        Map[x,y].Name:='m';
        WegFinden (x,y+1);  {nach rechts}
        WegFinden (x+1,y);  {nach unten }
        WegFinden (x,y-1);  {nach links }
        WegFinden (x-1,y);  {nach oben  }
        Map[x,y].name:='';
        result:=False;
      end;
    end;
  end;
end;

jetzt habe ich das so, nun werden verschiende ziele ausgesucht aber ich woltle gerne, sobalt er das ziel gefunden hat, soll er die funktion beenden und den weg zum ziel anzeigen.

_________________
MFG
Michael Springwald, "kann kein englisch...."

jasocul · Verfasst: Mo 01.11.04 11:57

Kleine Änderung ist noch erforderlich:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

function TForm1.WegFinden(x,y:Integer):Boolean;
var
  ergebnis : boolean;
begin  
  if (Map[x,y].Name = '') or ((Ziel.X <> x) and (Ziel.Y <> y))  then begin  
    if (Ziel.X = x) and (Ziel.Y = y) then begin  
      Ausgang;  
      result:=True;  
    end;  

 
    if result = False then begin  
      if Map[x,y].Name = '' then begin  
        Map[x,y].Name:='m';  
        Ergebnis := WegFinden (x,y+1);  {nach rechts}  
        if Ergebnis then exit;
        Ergebnis := WegFinden (x+1,y);  {nach unten }  
        if Ergebnis then exit;
        Ergebnis := WegFinden (x,y-1);  {nach links }  
        if Ergebnis then exit;
        Ergebnis := WegFinden (x-1,y);  {nach oben  }  
        if Ergebnis then exit;
        Map[x,y].name:='';  
        result:=False;  
      end;  
    end;  
  end;  
end;

sonst läuft er die anderen Aufrufe auch noch durch.

EDIT: Bevor einer mault: Das Exit habe ich hier zur besseren Übersicht eingebaut. Stylistisch besser ist natürlich ein geschachteltes if.

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

hängt sich leider immer noch auf:
wenn ich die funktion starte kommt einmal die showmessage aus der Ausgang funktion wenn ich dann auf OK klicke komme sie noch 2 mal und anschließend hängt sich das Programm auf.

_________________
MFG
Michael Springwald, "kann kein englisch...."

uall@ogc · Verfasst: Mo 01.11.04 13:05

am anfang der funktion nen result := false hin?

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

nein, geht immer noch nicht so wie es gehen soll

(Hängt sich leider immer noch auf)

_________________
MFG
Michael Springwald, "kann kein englisch...."

uall@ogc · Verfasst: Mo 01.11.04 13:16

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

var weggefunden: boolean = false;
procedure TForm1.WegFinden(x,y:Integer); 
begin 
  if not weggefunden then
  begin
    if (Map[x,y].Name = '') or ((Ziel.X <> x) and (Ziel.Y <> y))  then
    begin 
      if (Ziel.X = x) and (Ziel.Y = y) then
      begin 
        Ausgang;
        weggefunden := true;
      end else 
      if Map[x,y].Name = '' then
      begin 
        Map[x,y].Name:='m'; 
        WegFinden (x,y+1);  {nach rechts} 
        WegFinden (x+1,y);  {nach unten } 
        WegFinden (x,y-1);  {nach links } 
        WegFinden (x-1,y);  {nach oben  } 
        Map[x,y].name:=''; 
      end;
    end;  
  end; 
end;

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

@uall@ogc
danke, es hat funtkioniert.

_________________
MFG
Michael Springwald, "kann kein englisch...."

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme