Thema: Delphi Game of Life

Einzelnen Beitrag anzeigen

Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.116 Beiträge
 
Delphi 11 Alexandria
 
#12
  Alt 16. Jun 2003, 10:36
Moin Luckie,

also wenn ich meinen stilisierten Code mit Deinen Bezeichnern umsetze sieht er so aus:

Delphi-Quellcode:
// Feld besiedelt
if MicrobeArray2[x,y] = 1 then begin
  // und nicht 2 oder 3 Nachbarn, Besiedelung wird aufgehoben
  if not ((Summe = 3) or (Summe = 2)) then MicrobeArray2[x,y] := 0;
end else begin
// Feld nicht besiedelt
  // aber genau 3 Nachbarn, Feld wird besiedelt
  if Summe = 3 then MicrobeArray2[x,y] := 1
end;
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat