Thema: Delphi Game of Life

Einzelnen Beitrag anzeigen

Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#11
  Alt 16. Jun 2003, 01:28
Verd***t. Ich glaube, ich habe hier gerade dieses Hasenvermehrungsprogramm geschrieben.

Ich habe jetzt Christians stilisierten Code wie folgt umgesetzt:
Delphi-Quellcode:
      { Feld besetzt ... }
      if MicrobeArray2[x,y] = 1 then
      begin
        { ... und 3 Nachbarnfelder besetzt ... }
        if Summe = 3 then
          { ... lebt weiter }
          MicrobeArray2[x,y] := 1
        else
          MicrobeArray2[x,y] := 0;
      end;
      { Feld leer ... }
      if MicrobeArray2[x,y] = 0 then
      begin
        { ... 3 Nachbarfelder besetzt ... }
        if Summe = 3 then
          { ... Feld wird bevölkert }
          MicrobeArray2[x,y] := 1
        else
          Microbearray2[x,y] := 0;
      end;
Das führt aber zu einer Bevölkerungsexplosion ohne gleichen.

Zitat von Help - The Beatles:
Help me if you can, I'm feeling down
And I do appreciate you being round.
Help me, get my feet back on the ground,
Won't you please, please help me, help me, help me, oh
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat