Randomize-Chaos

[Popov]

Zitat von Delphi-Laie:

Wer behauptet denn so etwas? Man kann ihn ständig bzw. nach jedem ersten random neu initialisieren. Dann hätte man wohl eine echte Zufallszahlenfolge.

Jajn. Eine kleine Erweiterung des oberen Beispiels:

Delphi-Quellcode:

var
  x, y: Integer;
begin
  with Canvas do
    for x := 0 to ClientWidth - 1 do
      for y := 0 to ClientHeight - 1 do
      begin
        Randomize;
        Pixels[Random(ClientWidth), Random(ClientHeight)] := clBlack;
      end;
end;

Die Verteilung ist immer noch fast gleichmäßig. Nur sind hier doch tatsächlich Rechtecke zu erkennen