![]() |
zufallszahl ohne random
hallo an alle leute die gerne kaffee trinken und nicht schlafen koennen.
ich versuche gerade eine zufallszahl (zw. 0 und 100) zuberechnen aber ohne random/randomize etc. also auf mathematischer ebene. hat jemand ansaetze? loesungen? umsaetze? waere sehr dankbar. loki |
Re: zufallszahl ohne random
Das einfachste dürfte die Programmierung eines linearen Kongruenzgenerators sein (Random ist ein solcher):
Delphi-Quellcode:
Dieser Code liefert eine Pseudozufallszahl zwischen 0 und m-1.
y := (x*a + r) mod m
x ist die zuvor berechnete Pseudozufallszahl (wenns keine gibt, ist ein Startwert zwischen 0 und m-1 zu nehmen), y die neue Pseudozufallszahl. m sollte in dieser Gleichung die größte Zahl sein. Für ein paar Pseudozufallszahlen zwischen 0 und 100 also zum Beispiel:
Delphi-Quellcode:
Mehr zu Zufallszahlengeneratoren auf
RandNum := 12;
for i := 0 to 15 do begin RandNum := (RandNum*48 + 86) mod 101; writeln(RandNum); end; ![]() |
Re: zufallszahl ohne random
Zitat:
|
Re: zufallszahl ohne random
Zitat:
MfG Binärbaum |
Re: zufallszahl ohne random
Zitat:
|
Re: zufallszahl ohne random
Zitat:
Allerdings hat man damit immer noch die gleiche Zahlenfolge, nur dass man bei einem anderen Glied der Folge anfängt. ;) |
Re: zufallszahl ohne random
Du kannst dir Zufallsdaten aus dem Internet downloaden.
Weltweit wurden echte Zufallsgeneratoren installiert und seit 1998 aufgezeichnet. ![]() |
Re: zufallszahl ohne random
also erstmal ein großes DANKE an alle!
@ Mystic ich habe das problem noch heute frueh auf eigene faust ganz aehnlich loesen koennen und es funktioniert sogar. der kaffee hat geholfen. : ) @ Luckie + den Rest warum ist immer eine gute frage! (das frage ich mich auch oft) da ich es nicht in delphi programmieren sollte denn im lieben ada was kein radomize oder oncreate kennt ; ( dachte ich mir ich bastel mir das selber, da weis man was man hat. @ shmia werde ich mir gleich mal ankucken. thx. loki. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 13:48 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