zufall sollte aber vorher wenigstens initialisiert werden, denn so wäre es ja beim ersten Aufruf
von
while karte[zufall] > 0 do noch undefiniert und könnte sonsteinen Wert enthalten, was nicht so gut wäre, da der Index (
zufall) so schnell mal außerhalb des Wertebereiches für das Array liegen könnte.
Delphi-Quellcode:
repeat
begin
zufall := random(16) + 1;
while karte[zufall] > 0 do
zufall := random(16) + 1;
aber da hier Zufall eh nochmal geprüft wird, ginge auch sowas
Delphi-Quellcode:
zufall := random(16) + 1;
repeat
begin
while karte[zufall] > 0 do
zufall := random(16) + 1;
PS: zwischen Repeat und Until ist kein Begin und End nötig