[DELPHI]Fragen zu random
hi,
mach grad ein referat über Pi-Berechnung durch die Monte Carlo Mehode.
Jetzt stellt sich mir folgende Frage:
Welche Eigenschaften haben Zufallszahlen die folgendermaßen generiert wurden:
Also nur durch random ohne z.B random(100).
Hier mal das Ergebnis von 10 Durchläufen:
15 Nachkommastellen bis auf eine ausnahme!Aber wieso 15 bzw. 16 Stellen?
Kann ich das irgendwie bestimmen?Also die Nachkommastellen.
mfg
benni
mach grad ein referat über Pi-Berechnung durch die Monte Carlo Mehode.
Jetzt stellt sich mir folgende Frage:
Welche Eigenschaften haben Zufallszahlen die folgendermaßen generiert wurden:
|
|
Quellcode |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
var
x,y: extended;
n,i :longint;
procedure TForm1.Button1Click(Sender: TObject);
begin
randomize;
n:=strtoint(edit1.Text);
for i:= 01 to n do
begin
x:=random;
y:=random;
listbox1.Items.Add(floattostr(x));
listbox1.Items.Add(floattostr(y));
end;
end;
|
Also nur durch random ohne z.B random(100).
Hier mal das Ergebnis von 10 Durchläufen:
|
|
Quellcode |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
0,571987330447882 0,486813006689772 0,755588461644948 0,211617120774463 0,497097416315228 0,424084284109995 0,171447526663542 0,792918022954836 0,186090750154108 0,143799755489454 0,955292331986129 0,696096479194239 0,909841116983443 0,242271705297753 0,0484010968357325 0,176127569982782 0,436143841128796 0,773076364537701 0,541653023101389 0,552397539140657 |
15 Nachkommastellen bis auf eine ausnahme!Aber wieso 15 bzw. 16 Stellen?
Kann ich das irgendwie bestimmen?Also die Nachkommastellen.
mfg
benni
If liberty means anything at all, it means the right to tell people what they do not want to hear. - Georg Orwell


