Monte Carlo trifft PI

[Binärbaum]

Also wenn der Kreis den Radius r hat, und der Punkt die Koordinaten P(x,y), dann kann man mit

Delphi-Quellcode:

if (sqrt(x*x+y*y)<=r) then begin
  //Punkt im Kreis
  ...
end
else begin
  //Punkt außerhalb des Kreises
  ...
end;

testen, ob der Punkt im Kreis ist. dazu braucht man auch keinen Canvas o.ä. .

MfG
Binärbaum

[Edit] Dabei wird davon ausgegangen, dass der Kreis den Mittelpunkt M(0;0) hat.
Ansonsten müsste man die if Abfrage ändern:
if (sqrt(sqr(x-c)+sqr(x-d))<=r) then //Fortsetzung wie oben... Dabei hat der Mittelpunkt des kreises die Koordinaten M(c;d).
[/Edit]