Karten-Verteil-Algorithmus

[gammatester]

Zitat von idefix2:

Bei so einem Code schaudert es mich:
...

Mich macht etwas ganz anderes schaudern:

Delphi-Quellcode:

Status:=false;
repeat
  Status:=false;
  zufall:=Random(1)+ 20;
  ...
until Status = False;
...
//Orgie mit if Zufall=...

Abgesehen davon, daß das erste Status:=false; völlig überflüssig ist, nimmt Zufall immer nur den Wert 20 an! Selbst Dein verbesserter Code wird da nichts bringen.