| Autor |
Beitrag |
lakado
Hält's aus hier
Beiträge: 2
|
Verfasst: Mo 02.11.09 23:22
Tag zusammen, bin ein zimlicher Info anfänger und muss morgen nen projekt abgeben und hab ne frage
wenn ich hier ne schleie einbaue und möchte erreichen, dass solange eine neue zufallszahl erstellt wird, bis Zufall1 nicht gleich zufall2 ist, gibt es irgendeinzeichen, dass ich in die klammer zwischen zufall1 und zufall2 setzten kann um das zu erreichen
  Delphi-Quelltext
1:
2:
3:
| if zufall2=zufall1 then repeat
zufall2:=random (49)+1;
until (zufall1... zufall2) |
schonmal im vorraus danke
gruß lakado
Moderiert von  Klabautermann: Delphi-Tags eingefügt.
|
|
platzwart
  
Beiträge: 1054
Erhaltene Danke: 78
Win 7, Ubuntu 9.10
Delphi 2007 Pro, C++, Qt
|
Verfasst: Mo 02.11.09 23:29
<> bedeutet ungleich
not(zufall2 = zufall1) um die Aussage zu negieren
_________________ Wissenschaft schafft Wissenschaft, denn Wissenschaft ist Wissenschaft, die mit Wissen und Schaffen Wissen schafft. (myself)
|
|
Xion
Beiträge: 1952
Erhaltene Danke: 128
Windows XP
Delphi (2005, SmartInspect), SQL, Lua, Java (Eclipse), C++ (Visual Studio 2010, Qt Creator), Python (Blender), Prolog (SWIProlog), Haskell (ghci)
|
Verfasst: Mo 02.11.09 23:52
in deinem Beispiel ist übrigens die repeat until schleife nicht die beste Lösung
Delphi-Quelltext
1:
2:
| while Zufall1=Zufall2 do
Zufall2:=random(49)+1; |
oder
Delphi-Quelltext
1:
2:
3:
| repeat
Zufall2:=random(49)+1;
until Zufall1<>Zufall2 |
(ohne if) _________________ a broken heart is like a broken window - it'll never heal
In einem gut regierten Land ist Armut eine Schande, in einem schlecht regierten Reichtum. (Konfuzius)
|
|
lakado 
Hält's aus hier
Beiträge: 2
|
Verfasst: Di 03.11.09 00:07
|
|
Luckie
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: Di 03.11.09 00:18
Das heißt übrigens Operator. Ein Befehl ist was anderes. So was sollte eigntlich in der Hilfe und in jeden besseren Delphi Buch zu finden sein.
|
|
Boldar
Beiträge: 1555
Erhaltene Danke: 70
Win7 Enterprise 64bit, Win XP SP2
Turbo Delphi
|
Verfasst: Mo 16.11.09 17:01
und für Lottozahlen(falls es darum geht), muss es bis 48 sein, sowie bietet sich die verwendung von Mengen an.
|
|
elundril
Beiträge: 3747
Erhaltene Danke: 123
Windows Vista, Ubuntu
Delphi 7 PE "Codename: Aurora", Eclipse Ganymede
|
Verfasst: Mo 16.11.09 17:11
Boldar hat folgendes geschrieben  : | | und für Lottozahlen(falls es darum geht), muss es bis 48 sein, sowie bietet sich die verwendung von Mengen an. |
kommt aufs lottosystem an würd ich sagen. bei uns is es 45. richtet sich ja nach der einwohnerzahl des landes.  bei den chinesen kann man zb 45 nicht nehmen sonst hast du bei jeder ziehung 20 leute die alle 6 richtig haben. _________________ This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.
|
|
Boldar
Beiträge: 1555
Erhaltene Danke: 70
Win7 Enterprise 64bit, Win XP SP2
Turbo Delphi
|
Verfasst: Mo 16.11.09 17:18
| elundril hat folgendes geschrieben : |
bei den chinesen kann man zb 45 nicht nehmen sonst hast du bei jeder ziehung 20 leute die alle 6 richtig haben. |
Na und? Dann gibs halt weniger Gewinn.
|
|
Gausi
Beiträge: 8554
Erhaltene Danke: 481
Windows 7, Windows 10
D7 PE, Delphi XE3 Prof, Delphi 10.3 CE
|
Verfasst: Mo 16.11.09 17:31
| Boldar hat folgendes geschrieben : | | und für Lottozahlen(falls es darum geht), muss es bis 48 sein, sowie bietet sich die verwendung von Mengen an. |
Liefert random(n) nicht eine Zahl größer gleich 0 und echt kleiner n? Dann stimmt doch der Code mit random(49) + 1; für "unser" Lotto  . _________________ We are, we were and will not be.
|
|
