Hilfe: Monte Carlo Methode in Delphi bei Anfänger

[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