(Co-Admin)
Registriert seit: 29. Mai 2002
Ort: Hamburg
11.116 Beiträge
Delphi 11 Alexandria
|
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
|