Joerg,
#generiere Liste L mit N Zahlen
FOR i = 0 TO N-1
  L[i] = i
NEXT i
#Liste Z zufällig gezogener Zahlen
FOR i = N-1 TO 0 STEP -1
  generiere Zufallszahl r aus [0, i[
  Z[i] = L[r]   #nächste gezogene Zahl
  streiche dieses Element aus der Liste L
NEXT i
Live long and prosper,
Gunnar
-- 
„Weisheit ist nicht das Ergebnis der Schulbildung, sondern des lebenslangen Versuchs, sie zu erwerben.“ (Albert Einstein)
  „Weisheit ist nicht das Ergebnis der Schulbildung, sondern des lebenslangen Versuchs, sie zu erwerben.“ (Albert Einstein)
 nicht angemeldet
 nicht angemeldet Gunnar Bittersmann
 Gunnar Bittersmann Der Martin
 Der Martin MudGuard
 MudGuard