|
PROCEDURE Init; VAR i: INTEGER; BEGIN i := 0; WHILE i < letters DO marks[i] := -1; INC(i); END; END Init; |
Zu Beginn werden alle denkbaren Markierungen mit -1
vor initialisiert.
| |
Sie werden erst benutzbar, wenn Sie mit einer
(nicht-negativen) Position belegt werden.
|
Copyright © 2004, 2005 Andreas Borchert, in HTML konvertiert am 18.02.2005 |