Random Befehl spielt verrückt

[STS301]

Hallo

habe ein Problem mit dem Randombefehl

er soll eine Beliebige Zahl zwischen 1 und 6 anzeigen, jedoch zeigt er 6 nie an und manchmal zeigt
er gar nichts an

hier der source:

Delphi-Quellcode:

procedure TForm2.FormCreate(Sender: TObject);
var f : integer;

begin

randomize;
f:=random(6);

if f=1 then
showmessage('1')
else if f=2 then
showmessage('2')
else if f=3 then
showmessage('3')
else if f=4 then
showmessage('4')
else if f=5 then
showmessage('5')
else if f=6 then
showmessage('6')

end;

danke im Voraus

[fLaSh11]

:wink:
random(6) => 0..5
mach also random(6) + 1, wenn du Zahlen von 1 bis 6 willst!

[STS301]

danke, das war der eine Fehler, aber der Fehler, dass er nichts anzeigt bleibt leider
:(:(:(:(

[DeddyH]

Besser mit Random(6) + 1 ;)

[MrMyagi]

Richtig, mit

Delphi-Quellcode:

Random(6) + 1;

müsste es eigendlich klappen.
Da man soweit ich weiß mit Random(6) alleine
keine 6 erzeugen kann, sondern höchstens eine 5,
da es im Zwischenbereich liegen muss.


mfG, Nico

[abrosda]

Benutze statt der Funktion random(6) lieber randomrange(1,6).
Random(6) liefert Dir Zufallswerte zwischen 0 und 6(!).
Außerdem solltest Du den Generator initialisieren, mit Randomize.

Falls es RandomRange nicht gibt:

Delphi-Quellcode:

a:= Round(Random(5) + 1);

[STS301]

dann zeigt er mir wieder keine 6 an :?:
und wenn ich (7)+1 eingebe zeigt er mir wieder manchmal nichts an

edit// ich habe ihn doch eh mit randomize initialisiert, oder?

[MrMyagi]

Mit
random(6)+1
müsste er eigendlich auch eine 6 anzeigen.

edit:
@ abrosda: randomize hat er benutze, zumindest oben im Beispiel :-D

[DeddyH]

Jetzt nimm schon endlich Random(6) + 1 :stupid:

[fLaSh11]

Zitat:

Zitat von abrosda

Random(6) liefert Dir Zufallswerte zwischen 0 und 6(!).

Random(6) beinhaltet auch die 0!

Zitat:

Zitat von abrosda

Außerdem solltest Du den Generator initialisieren, mit Randomize.

schau dir seinen QC an: er hat randomize; gestartet!

Zitat:

Zitat von abrosda

Delphi-Quellcode:

a:= Round(Random(5) + 1);

gibt keine 6 aus!

Zitat:

Zitat von STS301

dann zeigt er mir wieder keine 6 an :?:

Delphi-Quellcode:

f := Random (6) + 1;

muss funktionieren.

[MrMyagi]

Richtig,
ansonsten würde ich es mal mit einem Neustart versuchen :wink:

[abrosda]

Jupp sorry, hab den Quellcode nur halb gelesen :stupid:

Nimm RandomRange(1,6), wenn vorhanden, oder probier es mit:

f := Round(Random(6)+1);

und wenn immer noch Werte fehlen, bau noch einen else Zweig ein und lass Dir den Wert anzeigen...

[STS301]

@ deddyH wem sagst du das, dem Rechner kann ich leider nichts eintrichtern und ich weiß gerade nicht wo der Hammer ist

[fLaSh11]

Außerdem:

Delphi-Quellcode:

if f=1 then
showmessage('1')
else if f=2 then
showmessage('2')
else if f=3 then
showmessage('3')
else if f=4 then
showmessage('4')
else if f=5 then
showmessage('5')
else if f=6 then
showmessage('6')

bewirkt das gleiche wie:

Delphi-Quellcode:

ShowMessage(IntToStr(f));

:wink:

[sirius]

Delphi-Quellcode:

randomize;
f:=random(6)+1;
showmessage(inttostr(f));

[DeddyH]

Das round() kannst Du Dir übrigens sparen, wenn Du eine Range angibst. Außerdem, wenn schon Fallunterscheidung, dann mit case ;)

[STS301]

mit

Delphi-Quellcode:

f:= Round(Random(6)+1);

funktioniert es

@DeddyH wie meinst du das mit einer Rangeangabe

[DeddyH]

Ich meine damit den Parameter. Random(6) ergibt eine ganze Zahl zwischen 0 und 5. Random() ergibt eine reelle Zahl zwischen 0 und 1. Steht alles in der Hilfe ;)

[angos]

mumpitz gelöscht. thread nicht zuende gelesen :)

[Nuclear-Ping]

Zitat:

Zitat von STS301

mit

Delphi-Quellcode:

f:= Round(Random(6)+1);

funktioniert es

... dann muss es aber auch mit

Delphi-Quellcode:

f := Random(6) + 1;

funktionieren. Random liefert doch ne ganze Zahl zurück, da sollte doch "Round" völlig egal sein? :gruebel:

[DeddyH]

Schau mal unter #16 :-D

[Namenloser]

Ohne Parameter gibt Round eine Fließkommazahl zwiscehn 0 und 1 aus.
Find's übrigens interessant wie oft hier hintereinander die selbe Antwort genannt wurde :stupid:

[Florian H]

Zitat:

Zitat von NamenLozer

Find's übrigens interessant wie oft hier hintereinander die selbe Antwort genannt wurde :stupid:

Er hat's ja auch erst nach dem 10. mal wirklich ernstgenommen und richtig angewendet ^^

[STS301]

Zitat:

Zitat von "Florian H

Er hat's ja auch erst nach dem 10. mal wirklich ernstgenommen und richtig angewendet ^^

nachdem es davor nicht funktioniert hat und wiklich die selben Antworten waren es nicht :|

[fLaSh11]

Zitat:

Zitat von NamenLozer

Find's übrigens interessant wie oft hier hintereinander die selbe Antwort genannt wurde :stupid:

Find ich auch!

Zitat:

Zitat von NamenLozer 15:43

Ohne Parameter gibt Round eine Fließkommazahl zwiscehn 0 und 1 aus.

Zitat:

Zitat von DeddyH 15:04

Random() ergibt eine reelle Zahl zwischen 0 und 1.

:twisted:

[DeddyH]

[OT] :lol: Nu is aber auch mal gut, gell? :zwinker: [/OT]