|
Registriert seit: 30. Nov 2005
Ort: München
5.755 Beiträge
Delphi 10.4 Sydney
|
AW: Annäherung an Pi mit Monte carlo, paintbox
19. Jan 2012, 10:41
if (sqrt(x*x+y*y) < 200)
->
Delphi-Quellcode:
if sqrt(sqr(x)+sqr(y)) <= sqrt(sqr(paintbox.width)+(sqr(paintbox.heigth)) then
//im radius
else
//asserhalb des Radius
Grüße
Klaus
Klaus
Geändert von Klaus01 (19. Jan 2012 um 11:35 Uhr)
Grund: nicht richtig überlegt
|