AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Zufallszahlen allgemeine Frage

Ein Thema von derseitzer · begonnen am 5. Mär 2018 · letzter Beitrag vom 7. Mär 2018
 
Benutzerbild von Neutral General
Neutral General

Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#6

AW: Zufallszahlen allgemeine Frage

  Alt 5. Mär 2018, 11:57
Die Zeit spielt nur beim Aufruf von "randomize" eine Rolle. Da wird der Seed bestimmt.
Alle Aufrufe von random danach haben mit der (aktuelle) Systemzeit nichts mehr am Hut.
Ganz vereinfacht ist es quasi so:

randomize();
Base := Uhrzeit;

random();
Base := Base + 1;
Result := Base;

Natürlich wird in random mehr gerechnet als nur "+1". Das "+1" steht nur symbolisch für "1x Rechenoperationen auf der aktuellen Base durchführen".
Wenn du RandSeed manuell auf einen Wert setzt dann liefern mehrmalige Aufrufe von random auch immer die gleiche Zahlenfolge.
D.h. um Zufallszahlen hervorzusagen brauchst du zuerst den Seed (der an eine Uhrzeit gekoppelt ist) und du musst wissen wie oft random schon aufgerufen wurde, bzw. an welcher Position in der Zahlenfolge du bist.

Hier zum ausprobieren:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
  RandSeed := 1234; // Gleicher Seed => Gleiche Zahlenfolge unten

  Memo1.Lines.Clear;
  for i := 1 to 15 do
    Memo1.Lines.Add(IntToStr(random(100)));
end;
Du kannst den Button so oft drücken wie du willst. Die ausgegebenen Zahlen sind immer die gleichen solange RandSeed = 1234 ist.
Und deswegen kannst du jetzt auch die 16. Zahl hervorsagen wenn du weißt wie der Seed ist/war und wie viele Zahlen schon generiert wurden.
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."

Geändert von Neutral General ( 5. Mär 2018 um 12:03 Uhr)
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:27 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz