Einlesen der zu mischenden Werte

ShuffleInts.om

len := 0; LOOP Read.Int(value[len]); IF Streams.stdin.count = 0 THEN EXIT END; INC(len); IF len = maxlen THEN EXIT END; END;

Der Inhalt der Variablen len entspricht genau der Zahl der erfolgreich eingelesenen Werte.

Die Schleife wird beendet, sobald wir keine Zahl einlesen konnten oder das Array vollständig gefüllt ist.

Auf eine Fehlermeldung für den Fall, daß das Array zu klein ist, wurde verzichtet. In diesem Falle werden die überzähligen Zahlen stillschweigend nicht eingelesen.

	Der Inhalt der Variablen len entspricht genau der Zahl der erfolgreich eingelesenen Werte.
	Die Schleife wird beendet, sobald wir keine Zahl einlesen konnten oder das Array vollständig gefüllt ist.
	Auf eine Fehlermeldung für den Fall, daß das Array zu klein ist, wurde verzichtet. In diesem Falle werden die überzähligen Zahlen stillschweigend nicht eingelesen.