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;