SQR Funktion / Ping Pong

[sx2008]

Na, das war dann wohl ich, der dir Funktion vorgesetzt hat.
function PointInCircle(p, center:TPoint; radius:integer):Boolean; "p" ist der Punkt und "center" ist der Mittelpunkt des Kreises.
p.x - center.x ist der Abstand in X-Richtung zwischen den Punkt und dem Kreismittelpunkt.
Dazu muss man wissen dass TPoint ein komplexer Datentyp ist:

Delphi-Quellcode:

TPoint = record
  x: Integer;
  y: Integer;
end;

Das verstehst du recht schnell, wenn du ein oder zwei Einsteiger Tutorials durchgelesen hast.
http://www.epinasoft.com/delphikurs/

Die Y-Richtung dürfte damit auch klar sein.
Interessant ist noch, dass es eigentlich egal ist, ob man p und center vertauscht oder nicht.
Durch das Quadrieren mit SQR wird p.x - center.x auf jeden Fall positiv.
Wenn man weiter überlegt ist das eigentlich logisch:
man hat zwei Punkte auf eine Fläche. Ob man jetzt Punkt A oder Punkt B als Kreismittelpunkt annimmt ist egal.