Thema: Delphi Spiel des Lebens

Einzelnen Beitrag anzeigen

Stillmatic

Registriert seit: 25. Apr 2007
110 Beiträge
 
#16

Re: Spiel des Lebens

  Alt 10. Mai 2007, 20:39
Hi!!

Ich hab noch eine Frage zur genauen Berechnung der Nächsten Generation!
Wann passiert bei wievielen Nachbarn was??

Wir haben eine kleine case Anweisung geschrieben die aber irgendwie Fehlerhaft sein muss, kann da mal jemand rüber schauen??

Code:
for i := (low(UTypes.cMaxWidth)+1) to UTypes.cMaxWidth do
 Begin
  for j := (low(UTypes.cMaxHeight)+1) to UTypes.cMaxHeight do
   Begin
    FeldNachbarn := Nachbarn(i,j);
    case FeldNachbarn of
    0..1: curGen[i,j] := false;     //weniger als Zwei Nachbarn
       3: curGen[i,j] := true;      //Zelle mit drei Nachbarn --> NeuGeboren
       2: curGen[i,j] := curgen[i,j];// Nix tun
    4..8: curGen[i,j] := false;

    end;
   end;
 end;
*THX*
  Mit Zitat antworten Zitat