Fehler beim Einsatz von Schleife

[felxi]

Hallo,

ich programmiere zur Zeit ein "game of life", welches auch fehlerfrei läuft. Mit einer Prozedur ermittle ich alle benachbarten Felder eins Feldes Feld[x|y], wobei 'k' die Anzahl der bisherigen Nachbarn ist:

Delphi-Quellcode:

 If Feld[x,y+1] = 1 then inc(k,1);
  If Feld[x+1,y+1] = 1 then inc(k,1);
  If Feld[x+1,y] = 1 then inc(k,1);
  If Feld[x+1,y-1] = 1 then inc(k,1);
  If Feld[x,y-1] = 1 then inc(k,1);
  If Feld[x-1,y-1] = 1 then inc(k,1);
  If Feld[x-1,y] = 1 then inc(k,1);
  If Feld[x-1,y+1] = 1 then inc(k,1);

So klappt alles einwandfrei, doch wenn ich dasselbe mit einer Schleife lösen will, kappts irgendwie nicht mehr

Delphi-Quellcode:

  For i := x-1 to x+1 do
    For j := y-1 to y+1 do
      If (i<>x)and(j<>y)and(Feld[i,j] = 1) then inc(k,1);

Finde den Fehler nicht

[3_of_8]

Sieht auf den ersten Blick richtig aus, was genau geht denn nicht?

[felxi]

Hier nochmal die ganze Prozedur:

Delphi-Quellcode:

procedure p_Nachbarn(x,y:integer);
var i,j,k:integer;
begin
  k := 0;
{ das funktioniert
 If Feld[x,y+1] = 1 then inc(k,1);
  If Feld[x+1,y+1] = 1 then inc(k,1);
  If Feld[x+1,y] = 1 then inc(k,1);
  If Feld[x+1,y-1] = 1 then inc(k,1);
  If Feld[x,y-1] = 1 then inc(k,1);
  If Feld[x-1,y-1] = 1 then inc(k,1);
  If Feld[x-1,y] = 1 then inc(k,1);
  If Feld[x-1,y+1] = 1 then inc(k,1); }

  For i := x-1 to x+1 do
    For j := y-1 to y+1 do
      If (i<>x)and(j<>y)and(Feld[i,j] = 1) then inc(k,1);

  Nachbarn := k;
end;

Ich habe gerade mal ein kleines Array mit Nullen gefüllt, bis auf die Felder [1,1][2,1][3,1], diese mit einer 1;

Die einzelne Abfrage hat mir für das Feld[2,2] 3 zurückgegeben - was korrekt ist, die Schleife aber nur 2.

[DelphiProgrammierer]

Zitat von 3rdnuss:

Hier nochmal die ganze Prozedur:

 If (i<>x)and(j<>y)and(Feld[i,j] = 1) then inc(k,1);

Hi 3rdnuss,
der Fehler liegt in der if Bedingung. Damit schließt Du alle Fälle aus mit
Feld[x,irgendwas] und Feld[irgendwas,y] also z.B. Feld[x,y+1] usw.

schreibe stattdessen:
if (not ((i=x) and (j=y))) and (Feld[i,j]=1) then inc(k,1); Gruß


Ulrich

[felxi]

ahh, danke, war wohl schon ein wenig zu spät

[3_of_8]

if (not ((i=x) and (j=y))) and (Feld[i,j]=1) then inc(k,1); Das lösen wir jetzt noch schön auf, nach den De-Morgan'schen Regeln:

if (i<>x) or (j<>y) and (Feld[i,j]=1) then inc(k,1);

[Hawkeye219]

Die ursprüngliche Logik sollte man aber erhalten:

Delphi-Quellcode:

// if (i<>x) or (j<>x) and (Feld[i,j]=1) then inc(k,1);
if ((i <> x) or (j <> y)) and (Feld[i, j] = 1) then
  Inc (k);

Gruß Hawkeye

[3_of_8]

Das j=x war ein Tippfehler, aber das andere stimmt schon so. Or bindet genauso stark wie and, und wenn keine Unterschiede in der Bindungsstärke da sind, wird einfach von links nach rechts abgearbeitet, daher brauchst du das ganze nicht zu klammern.

[Hawkeye219]

Hallo Manuel,

Zitat von 3_of_8:

Das j=x war ein Tippfehler, aber das andere stimmt schon so. Or bindet genauso stark wie and, und wenn keine Unterschiede in der Bindungsstärke da sind, wird einfach von links nach rechts abgearbeitet, daher brauchst du das ganze nicht zu klammern.

AND gilt als Multiplikation und bindet damit stärker als OR, das vergleichbar mit einer Addition ist.

Gruß Hawkeye

[3_of_8]

Kommt drauf an. In der Rechnerarchitektur wird es oft so gesehen, in der Aussagen- und Prädikatenlogik sind and und or gleich stark bindend. In Delphi übrigens auch, habs grade ausprobiert.