normale zufallsgeneratoren werden ja mit zufallszahlen-listen gemacht. in denen kommen alle Ziffern, Ziffernpaare, ZiffernTripel gleich oft vor (sollten sie zumindest). Je genauer das beachtet wird, desto genauer wird der generator.
Ich hab hier versucht, etwas zu schreiben, das hinkommen könnte:
Delphi-Quellcode:
TRandom = object
Strings: TStrings;
procedure Create;
procedure Destroy;
procedure Randomize;
function Random: integer;
procedure SetLength(l: integer);
end;
procedure TRandom.Create;
begin
Strings := TStrings.Create;
end;
procedure TRandom.Destroy;
begin
Strings.Destroy;
end;
procedure TRandom.SetLength(l: integer);
begin
strings.Clear;
for i := 1 to l do
strings.Add(IntToStr(i);
end;
procedure Randomize;
begin
Randomize;
end;
function Random;
begin
result := StrToInt(strings[random(strings.count)]);
end;
Man könnte auch selbst eine solche liste schreiben schreiben und den zufallsgenerator total selbst programmieren!!
(für listen eignen sich auch die kommastellen von unendlichen, aber nicht periodischen Zahlen, wie Pi, Wurzel2 und Eulersche Zahl!)!!