Game Of Life - ich könnte etwas Hilfe gebrauchen, bitte

[DeddyH]

Zitat:

if (Zellen[x-1,y-1]=1)

Im ersten Durchlauf werden hier für x und y jeweils 1 übergeben, d.h. Du bleibst unterhalb der Array-Grenzen, da Du ja auf Zellen[0,0] zugreifst. Das musst Du schon abfangen, genauso wie im umgekehrten Fall (also + 1 beim jeweils letzten Element).

[Maya]

Zitat von DeddyH:

Im ersten Durchlauf werden hier für x und y jeweils 1 übergeben, d.h. Du bleibst unterhalb der Array-Grenzen, da Du ja auf Zellen[0,0] zugreifst. Das musst Du schon abfangen, genauso wie im umgekehrten Fall (also + 1 beim jeweils letzten Element).

*Head meets desk* Natürlich!
Danke für die schnelle Antwort! *Stirn mit der Hand reib*

[DeddyH]

Tipp: Bereichsprüfung einschalten, dann fällt so etwas sofort auf

[implementation]

Wenn du bei Panel (1,1) den Nachbarn links, oben, oder links oben betrachten willst, stößt du auf einen unbekannten Eintrag
Genau wie die Nachbarn rechts, unten und rechts unten von (4,4).

[Maya]

Das dachte ich mir schon, als ich den Hinweis von DeddyH las.
Ich hab deswegen die Funktion jetzt wie folgt umgebaut.

Delphi-Quellcode:

function GameOfLife(x,y: Integer): Integer;
var Temp: Integer;
begin
  Temp:=0;
  if (x>1) and (y>1) and (Zellen[x-1,y-1]=1) then Temp:=Temp+1;
  if (y>1) and (Zellen[x,y-1]=1) then Temp:=Temp+1;
  if (x<4) and (y>1) and (Zellen[x+1,y-1]=1) then Temp:=Temp+1;

  if (x>1) and (Zellen[x-1,y]=1) then Temp:=Temp+1;
  if (x<4) and (Zellen[x+1,y]=1) then Temp:=Temp+1;

  if (x>1) and (y<4) and (Zellen[x-1,y+1]=1) then Temp:=Temp+1;
  if (y<4) and (Zellen[x,y+1]=1) then Temp:=Temp+1;
  if (x<1) and (y<4) and (Zellen[x+1,y+1]=1) then Temp:=Temp+1;

  case Temp of
  0,1,4..8: Result:=0;
  2: if (Zellen[x,y]=1) then Result:=1 else Result:=0;
  3: Result:=1;
  end;
end;

Leider stimmt das Ergebnis immer noch nicht mit dem überein, was eigentlich auftauchen sollte. Ist irgendwo ein Denkfehler noch enthalten?
Bei Optionen habe ich ausgestellt, dass die boolschen Ausdrücke vollständig überprüft werden.

[Jumpy]

Da man das nicht sehen kann: Arbeitest du auch mit zwei Arrays?
Dem alten und dem neuen, das danach zum alten wird?
Oder hast du nur ein Array, in dem du Einträge änderst, was Einfluss auf spätere Felder haben kann?

[Maya]

Ich lese in ein Array (Zellen) die ganzen Informationen ein, also ob das Feld schwarz ist (also lebt) oder weiß ist (tot).
Danach lese ich in der Funktion ja aus, wie viele Nachbarn die Zelle hat, das speichere ich in der Temp-Variable. D.h. das Array nutze ich eigentlich nur, um zu speichern, ob die Zelle lebendig ist oder nicht und am Ende um es immer wieder auszulesen.