[Юрис 2009]

Даны две точки А(х1,у1) и В(х2,у2). Составить алгоритм, определяющий, которая из точек находится ближе к началу координат.

[ApxaHGe1]

Если точки ты задаешь сам в ручную, IF сойдет ... для сравнения точек

[Nyctos Kasignete]

Код:

var
  Dist1, Dist2: Double;
  x1, x2, y1, y2: Double;
begin
  Dist1 := Sqrt(x1 * x1 + y1 * y1);
  Dist2 := Sqrt(x2 * x2 + y2 * y2);
  if Dist1 < Dist2 then ShowMessage('Точка A ближе к началу координат!')
  else ShowMessage('Точка B ближе к началу координат!');
end;

[Sphinx]

И вот зачем такому балбесу помогать? на таких зарабатывать надо =)

У человека и так видно желания программировать нет, так и вы еще хуже делаете.

[Страдалецъ]

И вот зачем такому балбесу помогать? на таких зарабатывать надо =)

У человека и так видно желания программировать нет, так и вы еще хуже делаете.

А вы девиз этого раздела причитали?