Question

Даны две точки на плоскости . Определите какая из них находится ближе к началу координат

Answer 1

Procedure TForm1.Button1Click(Sender: TObject);
var
  x1,y1,x2,y2 : double;
  d1,d2 : double;
begin
  x1:= StrToFloat( Edit1.Text);
  y1:= StrToFloat( Edit2.Text);
  x2:= StrToFloat( Edit3.Text);
  y2:= StrToFloat( Edit4.Text);

  d1:=Sqrt(x1*x1+y1*y1);  //Теорема Пифагора
  d2:=Sqrt(x2*x2+y2*y2);  //Теорема Пифагора

  if (d1<d2) then
    Label1.Caption := 'Ближе точка с координатами X1,Y1'
  else
    if (d1>d2) then
      Label1.Caption := 'Ближе точка с координатами X2,Y2'
    else
      Label1.Caption := 'Точки находятся на одинаковом расстоянии'
end;

Для увеличения быстродействия алгоритма можно d1 и d2 рассчитывать так: 
d1:= x1*x1+y1*y1;
d2:= x2*x2+y2*y2;

Answer 2

Вот скрин моего решения.