Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  var x1,y1,x2,y2,d1,d2:real;
  Write(Введите координаты x,y первой точки: );
  Read(x1,y1);
  Write(Введите координаты x,y второй точки: );
  Read(x2,y2);
  d1:=x1*x1+y1*y1; d2:=x2*x2+y2*y2;
  if d1  else
    if d2    else Writeln(Точки равноудалены)
end.

Тестовое решение:
Введите координаты x,y первой точки: 6 -4.7
Введите координаты x,y второй точки: -5.1 3.8
Точка 2 ближе