Hilfe: Monte Carlo Methode in Delphi bei Anfänger

[p80286]

Zitat:

Zitat von Schokohase (Beitrag 1420129)

Wie man an Zufallswerte in Delphi kommt sollte sich ganz leicht mit einer 5 Minuten Recherche im Internet finden lassen.

Warum soll man ihm nicht sagen, daß die Werte über

Delphi-Quellcode:

randomize;
for i:=0 to 999 do
begin
  randomwert:=random(Obergrenze);
  .....
end;

zu erhalten sind?

Gruß
K-H

[gammatester]

Zitat:

Zitat von p80286 (Beitrag 1420140)

Warum soll man ihm nicht sagen, daß die Werte über

Delphi-Quellcode:

  ...
  randomwert:=random(Obergrenze);
  .....
end;

zu erhalten sind?

Weil das hier in die Irre führt, da ja Werte zwischen 0..1 benutzt werden - und random(1) natürlich nicht funktioniert. Daß dafür

Delphi-Quellcode:

random

benutzt, wird habe ich schon gestern geschrieben.

[Scra]

Krass, das Forum ist ja mega Aktiv :thumb::-D

Vielen Dank für die zahlreichen Antworten ich setz mich spätestens Freitag Abend mal ran, schreib übermorgen erstmal Astro-Klausur:)

Mit freundlichen Grüßen
Scra

[Sherlock]

Zitat:

Zitat von Scra (Beitrag 1420200)

schreib übermorgen erstmal Astro-Klausur:)

:shock:

Was fürn Ding? Astrologie, -nomie oder gar -physik? Ich dachte es geht hier um Schulaufgaben. Was für eine genial abgedrehte Schule ist das denn?

Sherlock

[Rollo62]

Zitat:

Krass, das Forum ist ja mega Aktiv

Weil hier nur Jedi-Ritter sitzen :lol:

[p80286]

Zitat:

Zitat von Sherlock (Beitrag 1420206)

Zitat:

Zitat von Scra (Beitrag 1420200)

schreib übermorgen erstmal Astro-Klausur:)

:shock:

Was fürn Ding? Astrologie, -nomie oder gar -physik? Ich dachte es geht hier um Schulaufgaben. Was für eine genial abgedrehte Schule ist das denn?

Sherlock

"Die voluminöse Expansion subterraner Knollengewächse ist reziprok zur intellektuellen Kapazität des Agrarökonomen."

gruß
K-H

[Scra]

Sooo sorry dass ich mich so lange nicht gemeldet habe.
Viel Schulstress :D

Also ich sollte ja einen kurzen Vortrag halten um meine eine Note bisschen aufzubessern.
Ich bedanke mich für die Hilfe, hab 14 Punkte bekommen. :thumb:

Für die Leute die auch auf der Suche sind, bin ich jetzt mal so nett und teil das Ganze.

-Handout:
https://imgur.com/a/IKrbfwP

-Code:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var ges,kr,n: integer; p,x,y: real;

begin

n:=strtoint(Edit1.text); 
ges:=0;
kr:=0;
 
 repeat
  x:=Random;
  y:=Random;
  if sqrt(x*x+y*y)<=1
   then
    begin
     kr:=kr+1;
     ges:=ges+1;
    end
   else
    ges:=ges+1
 until ges=n;

 p:=4*kr/ges;
 Edit2.Text:=floattostr(p);

end;

-Was Falsch war:
Man hätte es auch mit normaler zählschleife (also for i=... to n do ...) machen können, weil ja die Anzahl der Wiederholungen bekannt ist.

MfG
Scrap :)