Prof. Dr. Franz Schweiggert -- Sektion Angewandte
Informationsverarbeitung -- 4. Februar 1999
Dr. Andreas Borchert Blatt 13
Ingo Melzer
[c]
Allgemeine Informatik I (WS 1998/99)
Abgabetermin 10. Februar 1999
Tips:
DEFINITION MODULE World; TYPE Mode = (border, torus); PROCEDURE GetMaximumSize(): CARDINAL; (* Maximale Spielfeldgroesse *) PROCEDURE Init(columns, lines: CARDINAL; mode: Mode); PROCEDURE Lines(): CARDINAL; (* Anzahl der Zeilen des Feldes *) PROCEDURE Columns(): CARDINAL; (* Anzahl der Spalten des Feldes *) PROCEDURE GetMode(): Mode; (* Mit oder ohne Rand *) PROCEDURE Get(line, column: CARDINAL): CHAR; (* Lese Status eines Feldes *) PROCEDURE Set(line, column: CARDINAL; char: CHAR); PROCEDURE NextGeneration; (* Auf in die naechste Generation *) END World.