random

[marabu]

Hallo Adela,

die Funktion Random() ist zwar ganz nützlich für das Ziehen der Lottozahlen, aber alleine schafft sie das dann doch nicht. Die Funktion Random() garantiert dir über einen ausgeklügelten mathematischen Ansatz eine ausreichend gute Gleichverteilung der Funktionswerte bei entsprechend großen Stichproben, aber sie garantiert dir keine Duplikatfreiheit bei den ersten 6 Werten.

Du wirst dir etwas überlegen müssen, damit bei der Ziehung der zweiten Zahl die erste nicht wieder Teil der Ziehungsmenge ist.

Grüße vom marabu


Ein Beispiel:

Delphi-Quellcode:

type
  TOddSet = set of byte;

var
  Ziehung: TOddset;

procedure Draw(count, total: byte; var oddSet: TOddSet);
begin
  oddSet := [];
  while SizeOf(oddSet) < count do
    oddSet := oddSet + [Succ(Random(total))];
end;