"mischen"

[DerDan]

ich finde die kombination aus BenjaminH und himitsu am besten:

hier wird einfach jede karte (1..18) mit einer beliebigen anderen getauscht.

Delphi-Quellcode:

for i := 1  to 18 do begin 
  i2 := random(18); 
  TauscheKarten(i2, i); 
end;

mfg DerDan