Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Syntax zum Zufalsgenerator auch Random genannt (https://www.delphipraxis.net/97681-syntax-zum-zufalsgenerator-auch-random-genannt.html)

Apollo777 14. Aug 2007 13:43


Syntax zum Zufalsgenerator auch Random genannt
 
Kann mir einer mal die Synatx von einem Zufallsgenerator sagen der zufällig Zahlen zwischen
1(keine null) und 12 generiert???

Klar das es heißt:

...
begin
randomize;
a1:= random(12);
...

:!: ABER wie bekomme ich jetzt die null weg???

("a1" ist meine Variable)
Wofür ich das brache?! Ich dividiere und mit nullen mag delphi das selbstverständlich nicht!!!!!

MFG
Apollo

silver-moon-2000 14. Aug 2007 13:47

Re: Syntax zum Zufalsgenerator auch Random genannt
 
Zitat:

Zitat von Apollo777
Kann mir einer mal die Synatx von einem Zufallsgenerator sagen der zufällig Zahlen zwischen
1(keine null) und 12 generiert???

Klar das es heißt:

...
begin
randomize;
a1:= random(12);
...

:!: ABER wie bekomme ich jetzt die null weg???

("a1" ist meine Variable)
Wofür ich das brache?! Ich dividiere und mit nullen mag delphi das selbstverständlich nicht!!!!!

MFG
Apollo

mit random(12) erzeugst Du ja Zahlen im Bereich [0-11].
Wenn Du Zahlen im Bereich [1-12] haben willst, geht das mit
Delphi-Quellcode:
a1 := random(12)+1;

silver-moon-2000 14. Aug 2007 13:48

Re: Syntax zum Zufalsgenerator auch Random genannt
 
Zitat:

Zitat von silver-moon-2000
Zitat:

Zitat von Apollo777
Kann mir einer mal die Synatx von einem Zufallsgenerator sagen der zufällig Zahlen zwischen
1(keine null) und 12 generiert???

mit random(12) erzeugst Du ja Zahlen im Bereich [0-11].
Wenn Du Zahlen im Bereich [1-12] haben willst, geht das mit
Delphi-Quellcode:
a1 := random(12)+1;


Apollo777 14. Aug 2007 14:10

Re: Syntax zum Zufalsgenerator auch Random genannt
 
coooooooooooooooooool ! ! ! Danke ! ! !
:coder2:


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:02 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