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:

PROGRAM Ein_Phaenomen;
{ *** Phaenom.pas *** }
USES Crt;

CONST cZeilenzahl = 10;
cSpaltenzahl = 20;
p = 1; {Pause nach jedem Schritt in ms}
{f�r langsame PCs den Wert auf 0 setzen!}
TYPE TZeilen = 1..cZeilenzahl;
TSpalten = 1..cSpaltenzahl;
TZustand = (a, b);
TZustandsmatrix = ARRAY [TZeilen, TSpalten] OF TZustand;

VAR f : TZustandsmatrix;
z0, z1: TZeilen;
s0, s1: TSpalten;

{---------------------- 1. T e i l ------------------------}

PROCEDURE Druck(w: TZustand);

BEGIN
CASE w OF
a: Write(Chr(1)); { "weiáes Gesicht" }
b: Write('-')
END;
END;

{---------------------- 2. T e i l ------------------------}

PROCEDURE ZufaelligeAnfangsbelegung(VAR f: TZustandsmatrix);

TYPE TNullBisEins = 0..1;

VAR i: TZeilen;
k: TSpalten;
r: TNullBisEins;

BEGIN
FOR i := 1 TO cZeilenzahl DO
FOR k := 1 TO cSpaltenzahl DO
BEGIN
r := Random(2);
f[i, k] := TZustand(r);
GotoXY(k, i);
Druck(f[i, k]);
END;
writeln;writeln;
writeln('Anfangszustand ist initialisiert!');
writeln('Zum Start bitte dr�cken!');
readln;
write('Und nun geduldig beobachten!',chr(1));
END;

{---------------------- 3. T e i l ------------------------}

PROCEDURE ZufaelligeWahlEinesNachbarn(zAlt: TZeilen;
sAlt: TSpalten;
VAR zNeu: TZeilen;
VAR sNeu: TSpalten);

TYPE TNullBisSieben = 0..7;

VAR zeile, spalte: Integer;
r : TNullBisSieben;

BEGIN
r := Random(8); { r ist der zuf„llige Nachbar }

CASE r OF
0..2: zeile := zAlt - 1;
3, 7: zeile := zAlt;
4..6: zeile := zAlt + 1
END;

CASE r OF
2..4: spalte := sAlt - 1;
1, 5: spalte := sAlt;
6, 7, 0: spalte := sAlt + 1
END;

{ Ber�cksichtigung der Seiten und Ecken: }

IF zeile = 0 THEN zeile := cZeilenzahl;
IF zeile = cZeilenzahl + 1 THEN zeile := 1;
IF spalte = 0 THEN spalte := cSpaltenzahl;
IF spalte = cSpaltenzahl + 1 THEN spalte := 1;

zNeu := zeile; sNeu := spalte
END;

{---------------------- 4. T e i l ------------------------}

BEGIN
ClrScr;
GotoXY(22, 6);
Write('" D o p p e l t e r Z u f a l l "');
GotoXY(27, 9);
Writeln(' Beginn mit !');
Writeln;
GotoXY(27, 11);
Writeln(' Abbruch durch !');
readln;
ClrScr;
Randomize;
ZufaelligeAnfangsbelegung(f);

REPEAT
z0 := Random(cZeilenzahl) + 1;
s0 := Random(cSpaltenzahl) + 1;
ZufaelligeWahlEinesNachbarn(z0, s0, z1, s1);
f[z0, s0] := f[z1, s1]; { šbernahme des Zustands }
GotoXY(s0, z0);
Delay(p);
Druck(f[z0, s0])
UNTIL KeyPressed
END.