Annäherung an Pi mit Monte carlo, paintbox

[Aphton]

Nenenenene..

Also es liegt daran, weil deine Paintbox nicht quadratisch ist (die Positionierung hat damit also nichts zu tun, sondern die Dimensierung)

Mach einfach folgendes irgendwo zu Beginn der Anwendung (FormCreate)

Delphi-Quellcode:

  PaintBox1.Width  := 250;
  PaintBox1.Height := PaintBox1.Width;

Edit (Erklärung, warum):

Zitat:

   if (sqrt(x*x+y*y) < 200) then

Heißt soviel wie, wenn die Länge des Richtungsvektors A (x, y) (x, y relativ zum Ursprung -> bei der Paintbox ist es die linke obere Ecke) < 200, dann markiereden Pixel bei aX, aY rot, sonst grün.

200 ist dein Radius. Wenn du eine Paintbox benützen willst, die nicht quadratisch ist (was ja, wenn man ein Kreis "einzeichnen" will, sinnlos ist), dann müsstest statt 200 die kleinere Dimensionskomponente der Paintbox nehmen - sei es nun Width oder Height -> damit der ganze Kreis anschließend auch sichtbar wird!