Zufallszahl mit Kommerstellen

[daNiii]

Was mache ich bloß falsch? Mein Ziel ist es eine Zufallszahl zu erstellen zwischen 0 und 1.
Das Ergebniss soll in Kommerstellen ausgegenen werden. (zB. 0,9786523)

Hier ist mein Programmieransatz:

Delphi-Quellcode:

procedure Form1.Zufallszahl_bilden();
var
Zufallszahl: extended;
Wert: string;
begin

Zufallszahl:= trunc(random(1) +0);
randomize;
Wert:= FormatFloat('0.00', Zufallszahl);
showmessage(floattostr(Wert);
end;

Derzeit wird in meinem showmessage stets die Zahl 0,00 ausgegeben.
Ich hoffe mir kann jemand helfen und mich auf meinen Fehler aufmerksam machen.
Danke!

[Noedel]

Delphi-Quellcode:

var zahl: extended;
begin
zahl := random 
end;

[Corpsman]

Das Problem ist das Trunc

es schneidet den Nachkommateil ab

deswegen kommt immer 0 raus, so dürfte es besser sein.

Delphi-Quellcode:

procedure Form1.Zufallszahl_bilden();
var
Zufallszahl: extended;
Wert: string;
begin

Zufallszahl:= (random(1));
randomize;
Wert:= FormatFloat('0.00', Zufallszahl);
showmessage(floattostr(Wert);
end;

[Noedel]

Zitat von Corpsman:

Das Problem ist das Trunc

es schneidet den Nachkommateil ab

deswegen kommt immer 0 raus, so dürfte es besser sein.

Delphi-Quellcode:

procedure Form1.Zufallszahl_bilden();
var
Zufallszahl: extended;
Wert: string;
begin

Zufallszahl:= (random(1));
randomize;
Wert:= FormatFloat('0.00', Zufallszahl);
showmessage(floattostr(Wert);
end;

meinst du nicht, dass der Vorschlag s.o. einfacher ist?

p.s: habe vergessen, dass randomize noch aufgerufen werden muss, bevor man ne zahl generiert...
p.p.s:KommA schreibt man nicht mir "er"

[jaenicke]

Nein, wie schon geschrieben wurde: Ohne Parameter...
Random mit 1 als Parameter gibt einen Integerwert zwischen 0 und 1 ohne die 1 selbst zurück...

Random ohne Parameter gibt einen Fließkommawert zwischen 0 und 1 zurück.

[himitsu]

Random(1) liefert doch schon einen Integer (bemnach ist Trunc da sinnlos),
allerdings im Bereich von
0 <= X < Range

also bei 1 immer eine 0, da 0 <= X < 1

Range(2) würde da eine 0 oder 1 liefern, da 0 <= X < 2


Range ohne Parameter liefert eine Gleitkommazahl im Bereich von
0 <= X < 1

also eine Zahl von 0 bis 0,999.....

[daNiii]

Danke für eure Zahlreichen Antworten!
vorher habe ich noch nicht gewusst, was Trunc bedeutet.
ich hatte jedoch noch einen 2. Fehler.
nämlich: Man muss zuerst randomize; schreiben bevor man die Zufallszahl bildet.
Für die Richtigstellung, hier noch einmal die richtige Lösung

Delphi-Quellcode:

procedure Form1.Zufallszahl_bilden();
var
Zufallszahl: extended;
Wert: string;
begin

Zufallszahl:= (random(1));
randomize;
Wert:= FormatFloat('0.00', Zufallszahl);
showmessage(floattostr(Wert);
end;

Danke!

[himitsu]

Zitat von daNiii:

ich hatte jedoch noch einen 2. Fehler.
nämlich: Man muss zuerst randomize; schreiben bevor man die Zufallszahl bildet.
Für die Richtigstellung, hier noch einmal die richtige Lösung

ließ nochmal in deiner OH unter Randomize nach, da steht dann auch, daß man dieses nicht immer aufrufen soll, sondern nur einmal beim Programmstart.

[Teekeks]

und das:

Delphi-Quellcode:

Zufallszahl:= (random(1));
randomize;

ist auch die falsche reinfolge...

[Noedel]

Darf ich nochmal vergleichen? Deine lösung:

Delphi-Quellcode:

procedure Form1.Zufallszahl_bilden();
var
Zufallszahl: extended;
Wert: string;
begin
Zufallszahl:= (random(1));
randomize;
Wert:= FormatFloat('0.00', Zufallszahl);
showmessage(floattostr(Wert);
end;

meine Lösung:

Delphi-Quellcode:

procedure Form1.Zufallszahl_bilden();
var
 zufallszahl: extended;
begin
  //Randomize bereits "aktiviert"
  zufallszahl := random;
  showmessage(floattostr(zahl);
end;

welche macht sich besser?