Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Zufallswerte im array speichern aber nicht doppelt (https://www.delphipraxis.net/36252-zufallswerte-im-array-speichern-aber-nicht-doppelt.html)

Christian18 17. Dez 2004 17:38


Zufallswerte im array speichern aber nicht doppelt
 
Hallo,

ich will zufalls werte in meinem Array speichern. (Random(60);)

das array ist 30 einheiten groß. sagt man das so??? :-)

in meinem array soll aber keine werte doppelt eingetragen werde. wie mache ich das???

dummer_info_schüler 17. Dez 2004 18:17

Re: Zufallswerte im array speichern aber nicht doppelt
 
Guck mal hier: Lotto
Da musst du eigentlich nur noch geringfügige Änderungen vornehmen, wie z.B. die Werte statt in eine Listbox in dein Array eintragen, aus der 49 eine 60 machen und aus der 6 eine 29, aus der 1 eine 0...

supermuckl 17. Dez 2004 21:54

Re: Zufallswerte im array speichern aber nicht doppelt
 
gehe mit einer schleife die array items durch, und belege sie mit random werten.
in jedem schleifendurchgang überprüfe aber gleichzeitig ob in irgend einem item das gleiche drin ist -> wenn ja, nochmal zufall bis es nicht mehr doppelt vorkommt.

also 3 schleifen ineinander ;)

Eichhoernchen 18. Dez 2004 08:33

Re: Zufallswerte im array speichern aber nicht doppelt
 
macht randomize nicht das keine doppelten kommen?

Kann aber auch sein das ich mich da vertue, sonst mach es nach der Methode meines Vorredners!

tommie-lie 18. Dez 2004 09:40

Re: Zufallswerte im array speichern aber nicht doppelt
 
Zitat:

Zitat von Eichhoernchen
macht randomize nicht das keine doppelten kommen?

Nein Randomize sorgt nur für eine zeitabhängige Initialisierung des Zufallsalgorithmus, damit nicht bei jedem Durchlauf die gleiche Zahlenfolge kommt. Gegen doppelte Ergebnisse ist man trotzdem nicht gefeit, du kannst ja mit 'nem Würfel auch zweimal hintereinander 'ne 6 würfeln :zwinker:


Alle Zeitangaben in WEZ +1. Es ist jetzt 15:19 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz