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
