Hilfe: Monte Carlo Methode in Delphi bei Anfänger

[p80286]

Zitat von Schokohase:

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 von p80286:

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 random benutzt, wird habe ich schon gestern geschrieben.

[Scra]

Krass, das Forum ist ja mega Aktiv

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 von Scra:

schreib übermorgen erstmal Astro-Klausur

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

[p80286]

Zitat von Sherlock:

Zitat von Scra:

schreib übermorgen erstmal Astro-Klausur

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

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.

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