Karten-Verteil-Algorithmus

[Romiox]

Zitat von Furtbichler:

Mische die Karten nach Fisher-Yates und verteile die ersten 12 Karten. Genauso, wie Du es in der Realität machen würdest.

Ich hab mich nicht ganz durch deinen Quelltext gequält (Code Tags sind gut, Delphi Tags sind besser ), aber erst Mischen und dann 12 Verteilen ist wirklich die einfachste Variante.

Delphi-Quellcode:

for i = 0 to KartenArray.length - 1 do
  begin
  zufall = Random(KartenArray.length - 1);
  dummy = KartenArray[i];
  KartenArray[i] = KartenArray[zufall];
  KartenArray[zufall] = dummy;
  end;