Überprüfen ob Punkt im Kreis ist

[turboPASCAL]

Was ist denn das für eine Frage?

Delphi-Quellcode:

implementation

{$R *.dfm}

uses math;

var
  center: tpoint = (x:100;y:100);

const
  r = 50;

procedure TForm1.FormPaint(Sender: TObject);
begin
  canvas.Ellipse(center.x-r,center.Y-r,center.X+r,center.Y+r);
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if Sqrt(Power(x - center.x, 2) + Power(y - center.y, 2)) <= r
    then caption := 'ja'
    else caption := 'nein';
end;

end.