1:
2:
3:
4:
5:
6:
7:
8:

const
  N = 4;

type
  TFeld = array[0..N-1, 0..N-1] of Boolean;

var
  Feld: TFeld;                    

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:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls;

const
  N = 4; // Seitenlänge des Feldes

type
  TFeld = array[0..N-1, 0..N-1] of Boolean; // Aufbau des Feldes festlegen (2-dimensionales array)

  TForm1 = class(TForm)
    Shape1: TShape;
    ...
    Shape16: TShape;
    btnLesen: TButton;
    btnSchreiben: TButton;
    procedure Shape1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure btnLesenClick(Sender: TObject);
    procedure btnSchreibenClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    Feld: TFeld; // das ist der interne Speicher für die Zellen (=Shapes in der GUI)
    // mit den Werten in diesem Array arbeiten wir später, die Shapes in der GUI
    // sind nur zum Anzeigen der unsichtbaren Werte in diesem Feld da
  end;

...

procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
...
end;

procedure TForm1.btnLesenClick(Sender: TObject);
  var
    x, y, snr: Integer;
    Shape: TShape;
begin
  for y := 0 to N-1 do // von unten nach oben
    for x := 0 to N-1 do begin // von rechts nach links
      snr := x +y *N +1; // Nr. des Shapes berechnen
      Shape := TShape(FindComponent('Shape' +IntToStr(snr))); // Komponente suchen
      Feld[x, y] := (Shape.Brush.Color = clBlack); // Wert ermitteln
    end;
end;

procedure TForm1.btnSchreibenClick(Sender: TObject);
begin
  // hier muss dein Code zum Übertragen der Werte aus dem Feld in die Shapes hin
end;                    

1:

 Feld[x, y] := (Shape.Brush.Color = clBlack); // Wert ermitteln                    

1:
2:
3:
4:

if (Shape.Brush.Color = clBlack) then
  Feld[x, y] := True
else
  Feld[x, y] := False;                    

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:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  StdCtrls;

const
  N = 4;
type
  TFeld = array[0..N-1, 0..N-1] of Boolean;

  { TForm1 }

  TForm1 = class(TForm)
    btnSchreiben: TButton;
    btnLesen: TButton;
    Shape1: TShape;
    Shape10: TShape;
    Shape11: TShape;
    Shape12: TShape;
    Shape13: TShape;
    Shape14: TShape;
    Shape15: TShape;
    Shape16: TShape;
    Shape2: TShape;
    Shape3: TShape;
    Shape4: TShape;
    Shape5: TShape;
    Shape6: TShape;
    Shape7: TShape;
    Shape8: TShape;
    Shape9: TShape;
    procedure btnLesenClick(Sender: TObject);
    procedure btnSchreibenClick(Sender: TObject);
    procedure Shape1ChangeBounds(Sender: TObject);
    procedure Shape1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { private declarations }
  public
    { public declarations }
    Feld: TFeld;
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Shape1ChangeBounds(Sender: TObject);
begin

end;

procedure TForm1.btnSchreibenClick(Sender: TObject);
var  x, y, snr: Integer;
    Shape: TShape;
begin
   for y := 0 to N-1 do
       for x := 0 to N-1 do begin
           if (feld[x,y] = true) then begin
             snr := x +y *N +1; // Nr. des Shapes berechnen
             Shape := TShape(FindComponent('Shape' +IntToStr(snr))); // Komponente suchen
             shape.brush.color := clblack
           end;
           else shape.brush.color := clwhite;

       end;

end;

procedure TForm1.btnLesenClick(Sender: TObject);
var
    x, y, snr: Integer;
    Shape: TShape;
begin
    for y := 0 to N-1 do // von unten nach oben
        for x := 0 to N-1 do begin // von rechts nach links
            snr := x +y *N +1; // Nr. des Shapes berechnen
            Shape := TShape(FindComponent('Shape' +IntToStr(snr))); // Komponente suchen
            if (Shape.Brush.Color = clBlack) then
               Feld[x, y] := True
            else
               Feld[x, y] := False; // Wert ermitteln
        end;
end;

procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var Thisshape : TShape;
begin
  ThisShape := (Sender as TShape);
  if (ThisShape.Brush.Color = clWhite) then
    ThisShape.Brush.Color := clBlack
  else
    ThisShape.Brush.Color := clWhite;
end;

end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.btnSchreibenClick(Sender: TObject);
var  x, y, snr: Integer;
    Shape: TShape;
begin
   for y := 0 to N-1 do
       for x := 0 to N-1 do begin
           if (feld[x,y] = true) then begin
             snr := x +y *N +1; // Nr. des Shapes berechnen
             Shape := TShape(FindComponent('Shape' +IntToStr(snr))); // Komponente suchen
             shape.brush.color := clblack
           end;
           else shape.brush.color := clwhite;

       end;
end;                    

1:

if (feld[x,y]) then begin // das ist funktional identisch zu "= True"                    

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

procedure TForm1.btnSchreibenClick(Sender: TObject);
var  x, y, snr: Integer;
    Shape: TShape;
begin
   for y := 0 to N-1 do
       for x := 0 to N-1 do begin
           if (feld[x,y]) then begin
             snr := x +y *N +1; // Nr. des Shapes berechnen
             Shape := TShape(FindComponent('Shape' +IntToStr(snr))); // Komponente suchen
             shape.brush.color := clblack
           end
           else begin
             snr := x +y *N +1; // Nr. des Shapes berechnen
             Shape := TShape(FindComponent('Shape' +IntToStr(snr))); // Komponente suchen
             shape.brush.color := clwhite;
           end;

       end;

end;                    

1:
2:
3:
4:
5:
6:
7:
8:

 for y := 0 to N-1 do
       for x := 0 to N-1 do begin
           snr := x +y *N +1; // Nr. des Shapes berechnen
           Shape := TShape(FindComponent('Shape' +IntToStr(snr))); // Komponente suchen
           if (feld[x,y]) then
              shape.brush.color := clblack
           else
             shape.brush.color := clwhite;                    

1:
2:
3:
4:

alt     | neu
---------------------------------------
weiß    | 3 Nachbarn? -> schwarz
schwarz | 2 oder 3 Nachbarn? -> schwarz                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

für alle Zellen im Feld
  wenn die alte Zelle weiß ist
    wenn die Anzahl der schwarzen Nachbarn dieser Zelle = 3 ist
      neue Zelle schwarz machen
    sonst
      neue Zelle weiß machen
  sonst (die alte Zelle ist dann logischerweise schwarz)
    wenn die Anzahl der schwarzen Nachbarn dieser Zelle = 2 oder 3 ist
      neue Zelle schwarz machen
    sonst
      neue Zelle weiß machen                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

  TForm1 = class(TForm)
    Shape1: TShape;
    ...
  public
    Feld: TFeld; // das ist der interne Speicher für die Zellen (=Shapes in der GUI)
    function AnzahlLebenderNachbarn(const x, y: Integer): Integer;
  end;
...

function TForm1.AnzahlLebenderNachbarn(const x, y: Integer): Integer;
begin
  Result := 0; // das ist natürlich Blödsinn
end;                    

1:
2:
3:
4:
5:
6:

procedure TForm1.btnRechnenClick(Sender: TObject);
  var
    FeldNeu: TFeld; // der "Schmierzettel", wird genauso benutzt, wie das andere Feld
begin
  // hier kommt jetzt dein Versuch einer Übersetzung des Pseudo-Codes rein
end;                    

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

var x, y, snr: Integer;

    feldneu : tfeld;
    Shape: TShape;
begin
     for y := 0 to N-1 do
         for x := 0 to N-1 do begin
       snr := x +y *N +1; // Nr. des Shapes berechnen
       Shape := TShape(FindComponent('Shape' +IntToStr(snr))); // Komponente suchen
      if not (feldneu[x,y]) then begin
         if   wenn die Anzahl der schwarzen Nachbarn dieser Zelle = 3 ist
              then (Shape.Brush.Color = clBlack)
              else (Shape.Brush.Color = clWhite) end;
         else if  wenn die Anzahl der schwarzen Nachbarn dieser Zelle = 2 oder 3 ist
      neue Zelle schwarz machen
              then (Shape.Brush.Color = clblack)
              else (Shape.Brush.Color = clwhite);

  end;

end;                    

1:

if   wenn die Anzahl der schwarzen Nachbarn dieser Zelle = 3 ist                    

1:

if (AnzahlLebenderNachbar(x, y) = 3) then                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

for y := 0 to N-1 do
         for x := 0 to N-1 do begin
             snr := x +y *N +1; // Nr. des Shapes berechnen
             Shape := TShape(FindComponent('Shape' +IntToStr(snr))); // Komponente suchen
              if not (feldneu[x,y]) then
                   if   (AnzahlLebenderNachbarn(x, y) = 3)
                   then (Shape.Brush.Color = clBlack)
                   else (Shape.Brush.Color = clWhite)
              else if  (AnzahlLebenderNachbarn(x, y) in [2, 3])
                   then (Shape.Brush.Color = clblack)
                   else (Shape.Brush.Color = clwhite);
         end;                    

1:
2:

begin
end;                    

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

procedure TForm1.btnRechnenclick(Sender: TObject);
 var x, y, snr: Integer;
    Shape: TShape;

begin
     for y := 0 to N-1 do
         for x := 0 to N-1 do begin
             snr := x +y *N +1; // Nr. des Shapes berechnen
             Shape := TShape(FindComponent('Shape' +IntToStr(snr))); // Komponente suchen
              if not (feld[x,y]) then
                   if   (AnzahlLebenderNachbarn(x, y) = 3)
                   then (Shape.Brush.Color := clBlack)
                   else (Shape.Brush.Color := clWhite)
              else if  (AnzahlLebenderNachbarn(x, y) in [2, 3])
                   then (Shape.Brush.Color := clblack)
                   else (Shape.Brush.Color := clwhite);
         end;

end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

  for y := 0 to N-1 do
         for x := 0 to N-1 do begin
             snr := x +y *N +1; // Nr. des Shapes berechnen
             Shape := TShape(FindComponent('Shape' +IntToStr(snr))); // Komponente suchen
              if not (feld[x,y]) then
                   if   (AnzahlLebenderNachbarn(x, y) = 3)
                   then feldneu[x,y] := true
                   else feldneu[x,y] := false
              else if  (AnzahlLebenderNachbarn(x, y) in [2, 3])
                  then feldneu[x,y] := true
                  else feldneu[x,y] := false;
         end;                    

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:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:

function TForm1.AnzahlLebenderNachbarn(const x, y: Integer): Integer;
begin
  Result := 0; // das ist natürlich Blödsinn
end;

procedure TForm1.btnSchreibenClick(Sender: TObject);
var  x, y, snr: Integer;
    Shape: TShape;
begin
   for y := 0 to N-1 do
       for x := 0 to N-1 do begin
           snr := x +y *N +1; // Nr. des Shapes berechnen
           Shape := TShape(FindComponent('Shape' +IntToStr(snr))); // Komponente suchen
           if (feld[x,y]) then
              shape.brush.color := clblack
           else
             shape.brush.color := clwhite;


       end;

end;

procedure TForm1.EndeClick(Sender: TObject);
begin
  close;
end;


  procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  var
    ThisShape: TShape;
begin
  ThisShape := (Sender as TShape);
  if (ThisShape.Brush.Color = clWhite) then
    ThisShape.Brush.Color := clBlack
  else
    ThisShape.Brush.Color := clWhite;
end;




procedure TForm1.btnLesenClick(Sender: TObject);
var
    x, y, snr: Integer;
    Shape: TShape;
begin
    for y := 0 to N-1 do // von unten nach oben
        for x := 0 to N-1 do begin // von rechts nach links
            snr := x +y *N +1; // Nr. des Shapes berechnen
            Shape := TShape(FindComponent('Shape' +IntToStr(snr))); // Komponente suchen
            if (Shape.Brush.Color = clBlack) then
               Feld[x, y] := True
            else
               Feld[x, y] := False; // Wert ermitteln
        end;
    feld := feldneu
end;

procedure TForm1.btnRechnenclick(Sender: TObject);
 var x, y: Integer;

begin
     for y := 0 to N-1 do
         for x := 0 to N-1 do begin
              if not (feld[x,y]) then
                   if   (AnzahlLebenderNachbarn(x, y) = 3)
                   then feldneu[x,y] := true
                   else feldneu[x,y] := false
              else if  (AnzahlLebenderNachbarn(x, y) in [2, 3])
                  then feldneu[x,y] := true
                  else feldneu[x,y] := false;
         end;

end;
end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

 

begin
 result := 0;
 for x = 0 to N-1 do
             for y = 0 to N-1 do begin
                 if feld[x-1,y-1] = true then result:=result+1;
                 if feld[x-1,y] = true then result:=result+1;
                 if feld[x-1,y+1] = true then result:=result+1;
                 if feld[x,y-1] = true then result:=result+1;
                 if feld[x,y+1] = true then result:=result+1;
                 if feld[x+1,y-1] = true then result:=result+1;
                 if feld[x+1,y] = true then result:=result+1;
                 if feld[x+1,y+1] = true then result:=result+1;
            end;
end;                    

1:
2:
3:
4:

function TForm1.AnzahlLebenderNachbarn(const x, y: Integer): Integer;
begin
  Result := 0; // das ist natürlich Blödsinn
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

function TForm1.AnzahlLebenderNachbarn(const x, y: Integer): Integer;

begin
 result := 0;

 if (feld[x-1,y-1]) then result:=result+1;
 if (feld[x-1,y]) then result:=result+1;
 if (feld[x-1,y+1]) then result:=result+1;
 if (feld[x,y-1]) then result:=result+1;
 if (feld[x,y+1]) then result:=result+1;
 if (feld[x+1,y-1]) then result:=result+1;
 if (feld[x+1,y]) then result:=result+1;
 if (feld[x+1,y+1]) then result:=result+1;


end;                    

1:
2:
3:
4:

for dx := -1 to 1 do
  for dy := -1 to 1 do
    if (Feld[x +dx, y +dy]) then
      Result := Result +1;                    

1:
2:
3:
4:

  public
    Feld: TFeld; // das ist der interne Speicher für die Zellen (=Shapes in der GUI)
    function AnzahlLebenderNachbarn(const x, y: Integer): Integer;
    function LebtNachbar(x, y: Integer): Boolean;                    

1:
2:
3:
4:
5:

function TForm1.LebtNachbar(x, y: Integer): Boolean;
begin
  ShowMessageFmt('x=%d, y=%d', [x, y]); // das hier ist nur zum Testen
  Result := Feld[x, y];
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

function TForm1.AnzahlLebenderNachbarn(const x, y: Integer): Integer;
  var
    dx, dy: Integer;
begin
  Result := 0;
  for dy := -1 to 1 do
    for dx := -1 to 1 do
      if LebtNachbar(x +dx, y +dy) then
        Inc(Result); // das ist das Gleiche wie "Result := Result +1", nur kürzer ;)
end;                    

1:
2:
3:
4:

procedure TForm1.btnTestClick(Sender: TObject);
begin
  AnzahlLebenderNachbarn(1, 1); // Test-Aufruf nur für die Zelle[1,1]
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

function TForm1.AnzahlLebenderNachbarn(const x, y: Integer): Integer;
  var
    dx, dy: Integer;
begin
  Result := 0;
  for dy := -1 to 1 do
    for dx := -1 to 1 do
      if not ((x=0) and (y=0)) then
      if LebtNachbar(x +dx, y +dy) then
        Inc(Result); // das ist das Gleiche wie "Result := Result +1", nur kürzer ;)
end;                    

1:
2:
3:
4:

procedure TForm1.btnTestClick(Sender: TObject);
begin
  AnzahlLebenderNachbarn(0, 0); // Test-Aufruf nur für linke obere Ecke (Zelle[0,0])
end;                    

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:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:

  public
    Feld: TFeld; // das ist der interne Speicher für die Zellen (=Shapes in der GUI)
    function LebtNachbar(x, y: Integer): Boolean;
    function AnzahlLebenderNachbarn(const x, y: Integer): Integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

function TForm1.LebtNachbar(x, y: Integer): Boolean;
begin
  ShowMessageFmt('x=%d, y=%d', [x, y]); // das hier ist nur zum Testen
  Result := Feld[x, y];
end;

function TForm1.AnzahlLebenderNachbarn(const x, y: Integer): Integer;
  var
    dx, dy: Integer;
begin
  Result := 0;
  for dy := -1 to 1 do
    for dx := -1 to 1 do
      if not ((x=0) and (y=0)) then
      if LebtNachbar(x +dx, y +dy) then
        Inc(Result); // das ist das Gleiche wie "Result := Result +1", nur kürzer ;)
end;

procedure TForm1.btnTestClick(Sender: TObject);
begin
  AnzahlLebenderNachbarn(0, 0); // Test-Aufruf nur für linke obere Ecke (Zelle[0,0])
end;

procedure TForm1.btnSchreibenClick(Sender: TObject);
var  x, y, snr: Integer;
    Shape: TShape;
begin
   for y := 0 to N-1 do
       for x := 0 to N-1 do begin
           snr := x +y *N +1; // Nr. des Shapes berechnen
           Shape := TShape(FindComponent('Shape' +IntToStr(snr))); // Komponente suchen
           if (feld[x,y]) then
              shape.brush.color := clblack
           else
             shape.brush.color := clwhite;
       end;

end;

procedure TForm1.EndeClick(Sender: TObject);
begin
  close;
end;


  procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  var
    ThisShape: TShape;
begin
  ThisShape := (Sender as TShape);
  if (ThisShape.Brush.Color = clWhite) then
    ThisShape.Brush.Color := clBlack
  else
    ThisShape.Brush.Color := clWhite;
end;




procedure TForm1.btnLesenClick(Sender: TObject);
var
    x, y, snr: Integer;
    Shape: TShape;
begin
    for y := 0 to N-1 do // von unten nach oben
        for x := 0 to N-1 do begin // von rechts nach links
            snr := x +y *N +1; // Nr. des Shapes berechnen
            Shape := TShape(FindComponent('Shape' +IntToStr(snr))); // Komponente suchen
            if (Shape.Brush.Color = clBlack) then
               Feld[x, y] := True
            else
               Feld[x, y] := False; // Wert ermitteln
        end;

end;

procedure TForm1.btnRechnenclick(Sender: TObject);
 var x, y: Integer;
     Feldneu : TFeld;
begin
     for y := 0 to N-1 do
         for x := 0 to N-1 do begin
              if not (feld[x,y]) then
                   if   (AnzahlLebenderNachbarn(x, y) = 3)
                   then feldneu[x,y] := true
                   else feldneu[x,y] := false
              else if  (AnzahlLebenderNachbarn(x, y) in [2, 3])
                  then feldneu[x,y] := true
                  else feldneu[x,y] := false;
         end;
     feld := feldneu
end;
end.                    

1:
2:
3:
4:
5:

function TForm1.LebtNachbar(x, y: Integer): Boolean;
begin
  ShowMessageFmt('x=%d, y=%d', [x, y]); // das hier ist nur zum Testen
  //Result := Feld[x, y];  <-- testweise deaktivieren
end;                    

1:

if not ((dx = 0) and (dy = 0)) then                    

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

function TForm1.AnzahlLebenderNachbarn(const x, y: Integer): Integer;
  var
    dx, dy: Integer;
begin
  Result := 0;
  for dy := -1 to 1 do
    for dx := -1 to 1 do
     if not ((dx=0) and (dy=0)) then begin
        if (dx=-1) then  begin
          dx:=dx+N;
           if (dy=-1) then  begin
           dy:=dy+N;
         if LebtNachbar(x +dx, y +dy) then
        Inc(Result); // das ist das Gleiche wie "Result := Result +1", nur kürzer ;)
     end;
           end;
        end;
        end;                    

1:
2:
3:
4:

function TForm1.LebtNachbar(x, y: Integer): Boolean;
begin
  Result := Feld[x, y];
end;                    

1:
2:
3:
4:
5:
6:
7:

function TForm1.LebtNachbar(x, y: Integer): Boolean;
begin
  if x = -1 then x := x+N;
  if y = -1 then y := y+N;
  ShowMessageFmt('x=%d, y=%d', [x, y]); // das hier ist nur zum Testen
  Result := Feld[x, y];
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

function TForm1.LebtNachbar(x, y: Integer): Boolean;
begin
  ShowMessageFmt('vorher: x=%d, y=%d', [x, y]); // das hier ist nur zum Testen
  if (x < 0) then
    x := x +N;
  if (y < 0) then
    y := y +N;
  ShowMessageFmt('nachher: x=%d, y=%d', [x, y]); // das hier ist nur zum Testen
  Result := Feld[x, y];
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

function TForm1.LebtNachbar(x, y: Integer): Boolean;
begin
  ShowMessageFmt('vorher: x=%d, y=%d', [x, y]); // das hier ist nur zum Testen
  if (x < 0) then
    x := x +N;
  if (y < 0) then
    y := y +N;
   if (x > (N-1)) then
    x := x -N;
  if (y > (N-1)) then
    y := y -N;
  ShowMessageFmt('nachher: x=%d, y=%d', [x, y]); // das hier ist nur zum Testen
  Result := Feld[x, y];
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.btnRechnenClick(Sender: TObject);
  var
    x, y: Integer;
    FeldNeu: TFeld;
begin
  for y := 0 to N-1 do
    for x := 0 to N-1 do
      if Feld[x, y] then // lebende Zelle
        FeldNeu[x, y] := (AnzahlLebenderNachbarn(x, y) in [2..3]) // Überleben
      else // tote Zelle
        FeldNeu[x, y] := (AnzahlLebenderNachbarn(x, y) = 3); // Geburt
  Feld := FeldNeu;
  btnSchreibenClick(Self); // virtuell auf den Button klicken
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.ckAutomatikClick(Sender: TObject);
begin
  if ckAutomatik.Checked then begin // Haken reingeklickt
    btnLesenClick(Self); // Feld einlesen
    Timer.Enabled := True; // Timer einschalten
  end
  else // Haken rausgeklickt
    Timer.Enabled := False; // Timer ausschalten
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.btnLesenClick(Sender: TObject);
var x, y, snr: Integer;
    Shape: TShape;
begin
    for y := 0 to N-1 do // von unten nach oben
        for x := 0 to N-1 do begin // von rechts nach links
            snr := x +y *N +1;
            Shape := TShape(FindComponent('Shape' +IntToStr(snr)));
            if (Shape.Brush.Color = clBlack) then
               Feld[x, y] := True
            else
               Feld[x, y] := False;
        end;
      btnRechnenClick(Self);
end;                    

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:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  StdCtrls;

const
  N = 5;
type
  TFeld = array[0..N-1, 0..N-1] of Boolean;

  { TForm1 }

  TForm1 = class(TForm)
    ckAutomatik: TCheckBox;
    Ende: TButton;
    Shape1: TShape;
    Shape10: TShape;
    Shape11: TShape;
    Shape12: TShape;
    Shape13: TShape;
    Shape14: TShape;
    Shape15: TShape;
    Shape16: TShape;
    Shape17: TShape;
    Shape18: TShape;
    Shape19: TShape;
    Shape2: TShape;
    Shape20: TShape;
    Shape21: TShape;
    Shape22: TShape;
    Shape23: TShape;
    Shape24: TShape;
    Shape25: TShape;

    Timer: TTimer;
    procedure btnLesenClick(Sender: TObject);
    procedure btnRechnenClick(Sender: TObject);
    procedure btnSchreibenClick(Sender: TObject);
    procedure ckAutomatikChange(Sender: TObject);
    procedure EndeClick(Sender: TObject);
    procedure Shape1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure TimerTimer(Sender: TObject);

  private

  public
    Feld: TFeld; // das ist der interne Speicher für die Zellen (=Shapes in der GUI)
    function LebtNachbar(x, y: Integer): Boolean;
    function AnzahlLebenderNachbarn(const x, y: Integer): Integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

function TForm1.LebtNachbar(x, y: Integer): Boolean;
begin
  if (x < 0) then
    x := x +N;
  if (y < 0) then
    y := y +N;
   if (x > (N-1)) then
    x := x -N;
  if (y > (N-1)) then
    y := y -N;
  Result := Feld[x, y];
end;

function TForm1.AnzahlLebenderNachbarn(const x, y: Integer): Integer;
  var
    dx, dy: Integer;
begin
  Result := 0;
  for dy := -1 to 1 do
    for dx := -1 to 1 do begin
     if not ((dx=0) and (dy=0)) then
         if LebtNachbar(x +dx, y +dy) then
        Inc(Result);
    end;
end;


procedure TForm1.btnSchreibenClick(Sender: TObject);
var  x, y, snr: Integer;
    Shape: TShape;
begin
   for y := 0 to N-1 do
       for x := 0 to N-1 do begin
           snr := x +y *N +1;
           Shape := TShape(FindComponent('Shape' +IntToStr(snr)));
           if (feld[x,y]) then
              shape.brush.color := clblack
           else
             shape.brush.color := clwhite;
       end;

end;

procedure TForm1.ckAutomatikChange(Sender: TObject);
begin
    if ckAutomatik.Checked then begin // Haken reingeklickt
    btnLesenClick(Self); // Feld einlesen
    Timer.Enabled := True; // Timer einschalten
  end
  else // Haken rausgeklickt
    Timer.Enabled := False; // Timer ausschalten
end;

procedure TForm1.EndeClick(Sender: TObject);
begin
  close;
end;


procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var  ThisShape: TShape;
begin
  ThisShape := (Sender as TShape);
  if (ThisShape.Brush.Color = clWhite) then
     ThisShape.Brush.Color := clBlack
  else
     ThisShape.Brush.Color := clWhite;
end;

procedure TForm1.TimerTimer(Sender: TObject);
begin
  btnrechnenClick(Self);
end;

procedure TForm1.btnLesenClick(Sender: TObject);
var x, y, snr: Integer;
    Shape: TShape;
begin
    for y := 0 to N-1 do // von unten nach oben
        for x := 0 to N-1 do begin // von rechts nach links
            snr := x +y *N +1;
            Shape := TShape(FindComponent('Shape' +IntToStr(snr)));
            if (Shape.Brush.Color = clBlack) then
               Feld[x, y] := True
            else
               Feld[x, y] := False;
        end;

end;

procedure TForm1.btnRechnenClick(Sender: TObject);
  var
    x, y: Integer;
    FeldNeu: TFeld;
begin
  for y := 0 to N-1 do
    for x := 0 to N-1 do
      if Feld[x, y] then // lebende Zelle
        FeldNeu[x, y] := (AnzahlLebenderNachbarn(x, y) in [2..3]) // Überleben
      else // tote Zelle
        FeldNeu[x, y] := (AnzahlLebenderNachbarn(x, y) = 3); // Geburt
  Feld := FeldNeu;
  btnSchreibenClick(Self); // virtuell auf den Button klicken

end;
end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

function TForm1.LebtNachbar(x, y: Integer): Boolean;
begin
  if (x < 0) then
    x := x +N;
  if (y < 0) then
    y := y +N;
   if (x > (N-1)) then
    x := x -N;
  if (y > (N-1)) then
    y := y -N;
  Result := Feld[x, y];
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

x  | x mod N
------------
0  |
1  |
2  |
3  |
4  |
5  |
6  |
17 |                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

x  | x mod N
------------
0  |0
1  |1
2  |2
3  |3
4  |4
5  |5
6  |1
17 |2                    

1:
2:
3:
4:

procedure TForm1.btnTestClick(Sender: TObject);
begin
  ShowMessageFmt('x=%d, N=%d, x mod N=%d', [0, 5, 0 mod 5]); // das ist praktisch die erste Zeile aus der Tabelle
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

x  | x mod N
------------
0  |0
1  |1
2  |2
3  |3
4  |4
5  |0
6  |1
17 |2                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

function TForm1.LebtNachbar(x, y: Integer): Boolean;
begin
  ShowMessageFmt('vorher: x=%d, y=%d', [x, y]); // das hier ist nur zum Testen
  if (x < 0) then
    x := x +N;
  if (y < 0) then
    y := y +N;
   if (x > (N-1)) then
    x := x -N;
  if (y > (N-1)) then
    y := y -N;
  ShowMessageFmt('nachher: x=%d, y=%d', [x, y]); // das hier ist nur zum Testen
  Result := Feld[x, y];
end;                    

1:

Result := Feld[x mod N, y mod N];                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

function TForm1.LebtNachbar(x, y: Integer): Boolean;
begin
  ShowMessageFmt('vorher: x=%d, y=%d', [x, y]); // das hier ist nur zum Testen
//  if (x < 0) then
//    x := x +N;
//  if (y < 0) then
//    y := y +N;
   if (x > (N-1)) then
    x := x -N;
  if (y > (N-1)) then
    y := y -N;
  x := x mod N; // das mod N schon hier rechnen,
  y := y mod N; // damit man das gleich ausgeben kann
  ShowMessageFmt('nachher: x=%d, y=%d', [x, y]); // das hier ist nur zum Testen
  Result := Feld[x, y]; // hier wieder rausgenommen und nach oben verschoben
end;                    

1:
2:
3:
4:

procedure TForm1.btnTestClick(Sender: TObject);
begin
  AnzahlLebenderNachbarn(0, 0); // Test-Aufruf
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

  
function TForm1.LebtNachbar(x, y: Integer): Boolean;
begin
  if (x < 0) then
    x := x +N;
  if (y < 0) then
    y := y +N;
  
  Result := Feld[x mod N, y mod N];
end;                    

1:
2:
3:
4:

function TForm1.LebtNachbar(x, y: Integer): Boolean;
begin
  Result := Feld[(x+N) mod N, (y+N) mod N];
end;                    

1:

if not ((dx = 0) and (dy = 0)) then                    

1:

   if  ((dx<>0) and (dy<>0)) then                    

1:
2:
3:
4:
5:
6:

a | b | not (a and b) | (not a) and (not b)
-------------------------------------------
0 | 0 |       ?       |          ?
0 | 1 |       ?       |          ?
1 | 0 |       ?       |          ?
1 | 1 |       ?       |          ?                    

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

a | b | a and b
---------------
0 | 0 |    0
0 | 1 |    0
1 | 0 |    0
1 | 1 |    1

a | b | a or b
---------------
0 | 0 |    0
0 | 1 |    1
1 | 0 |    1
1 | 1 |    1

a | not a
---------
0 |   1
1 |   0                    

1:
2:
3:
4:
5:
6:

a | b | not (a and b) | (not a) and (not b)
-------------------------------------------
0 | 0 |       1       |          ?
0 | 1 |       1       |          ?
1 | 0 |       1       |          ?
1 | 1 |       0       |          ?                    

1:
2:
3:
4:
5:
6:

a | b | not (a and b) | (not a) and (not b)
-------------------------------------------
0 | 0 |       1       | (not 0) and (not 0) = 1 and 1 = 1
0 | 1 |       1       |          ?
1 | 0 |       1       |          ?
1 | 1 |       0       |          ?                    

1:
2:
3:
4:
5:
6:

a | b | not (a and b) | (not a) and (not b)
-------------------------------------------
0 | 0 |       1       | (not 0) and (not 0) = 1 and 1 = 1
0 | 1 |       1       | (not 0) and (not 1) = 1 and 0 = 0        
1 | 0 |       1       | (not 1) and (not 0) = 0 and 1 = 0 
1 | 1 |       0       | (not 1) and (not 1) = 0 and 0 = 0                    

1:

if  ((not a) or (not b))<>0)  then                    

1:

if  ((dx<>0) or (dy<>0)) then                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.btnTestClick(Sender: TObject);
  var
    Shape: TShape;
begin
  Shape := TShape.Create(Self); // Shape-Objekt erzeugen, als Eigentümer das Formular (=Self) angeben
  Shape.Parent := Self; // das neue Shape soll auf dem Formular (=Self) angezeigt werden
  Shape.Name := 'Shape1'; // Name der Komponente
  Shape.Left := 8; // 8 Pixel vom linken Rand
  Shape.Top := 8; // 8 Pixel vom oberen Rand
  Shape.Width := 25; // 25 Pixel breit
  Shape.Height := 25; // 25 Pixel hoch
// Shape.OnMouseDown := Shape1MouseDown; // haben wir hier nicht, aber so weist man eine Methode zu
end;                    

1:
2:

uses
  ..., ExtCtrls;                    

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:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls;

type

  { TForm1 }

    TForm1 = class(TForm)
    btnTest: TButton;
    testShape: TShape;
    procedure btnTestClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

  procedure TForm1.btnTestClick(Sender: TObject);
  var
    Shape: TShape;
begin
  Shape := TShape.Create(Self); // Shape-Objekt erzeugen, als Eigentümer das Formular (=Self) angeben
  Shape.Parent := Self; // das neue Shape soll auf dem Formular (=Self) angezeigt werden
  Shape.Name := 'Shape1'; // Name der Komponente
  Shape.Left := 8; // 8 Pixel vom linken Rand
  Shape.Top := 8; // 8 Pixel vom oberen Rand
  Shape.Width := 25; // 25 Pixel breit
  Shape.Height := 25; // 25 Pixel hoch
// Shape.OnMouseDown := Shape1MouseDown; // haben wir hier nicht, aber so weist man eine Methode zu
end;
end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.FormCreate(Sender: TObject);
var i,j,x : integer;
    shape : TShape;
begin
  x := strtoint(edit1.text);
  for j := 1 to x do
   for i := 1 to x do begin
    Shape := TShape.Create(Self); // Shape-Objekt erzeugen, als Eigentümer das Formular (=Self) angeben
    Shape.Parent := Self; // das neue Shape soll auf dem Formular (=Self) angezeigt werden
    Shape.Name := 'Shape'+i; // Name der Komponente
    Shape.Left := 8+i*25; // 8 Pixel vom linken Rand
    Shape.Top := 8+i*25; // 8 Pixel vom oberen Rand
    Shape.Width := 25; // 25 Pixel breit
    Shape.Height := 25; // 25 Pixel hoch
  end;
end;                    

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

procedure TForm1.FormCreate(Sender: TObject);
var i,j,snr : integer;
    shape : TShape;
begin
  for j := 0 to N-1 do
   for i := 0 to N-1 do begin
    Shape := TShape.Create(Self); // Shape-Objekt erzeugen, als Eigentümer das Formular (=Self) angeben
    Shape.Parent := Self; // das neue Shape soll auf dem Formular (=Self) angezeigt werden
    snr := x +y *N +1;
    Shape := TShape(FindComponent('Shape' +IntToStr(snr)));
    //Shape.Name := 'Shape'+inttostr(i); // Name der Komponente
    Shape.Left := 8+i*25; // 8 Pixel vom linken Rand
    Shape.Top := 8+i*25; // 8 Pixel vom oberen Rand
    Shape.Width := 25; // 25 Pixel breit
    Shape.Height := 25; // 25 Pixel hoch
  end;
end;                    

1:

snr := x +y *N +1;                    

1:

Shape := TShape(FindComponent('Shape' +IntToStr(snr)));                    

1:

//Shape.Name := 'Shape'+inttostr(i); // Name der Komponente                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.FormCreate(Sender: TObject);
var i,j,snr : integer;
    shape : TShape;
begin
  for j := 0 to N-1 do
   for i := 0 to N-1 do begin
    Shape := TShape.Create(Self); // Shape-Objekt erzeugen, als Eigentümer das Formular (=Self) angeben
    Shape.Parent := Self; // das neue Shape soll auf dem Formular (=Self) angezeigt werden
    snr := x +y *N +1;
    Shape.Name := 'Shape'+inttostr(snr); // Name der Komponente
    Shape.Left := 8+i*25; // 8 Pixel vom linken Rand
    Shape.Top := 8+i*25; // 8 Pixel vom oberen Rand
    Shape.Width := 25; // 25 Pixel breit
    Shape.Height := 25; // 25 Pixel hoch
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.FormCreate(Sender: TObject);
var snr,y,x : integer;
    shape : TShape;
begin
  for y := 0 to N-1 do
   for x := 0 to N-1 do begin
    Shape := TShape.Create(Self); // Shape-Objekt erzeugen, als Eigentümer das Formular (=Self) angeben
    Shape.Parent := Self; // das neue Shape soll auf dem Formular (=Self) angezeigt werden
    snr := x +y *N +1;
    Shape.Name := 'Shape'+inttostr(snr); // Name der Komponente
    Shape.Left := 8+x*25; // 8 Pixel vom linken Rand
    Shape.Top := 8+y*25; // 8 Pixel vom oberen Rand
    Shape.Width := 25; // 25 Pixel breit
    Shape.Height := 25; // 25 Pixel hoch
  end;
end;