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

Составьте программу для решения задачи: даны две точки, заданные своими
координатами. Определить , какая из них находится ближе к началу координат.

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

Расстояние от точки до начала координат находится как длина гипотенузы прямоугольного треугольника, катетами которого являются координаты точки. Поскольку нам нужны не сами расстояния, а лишь сравнить их, то можно сравнивать квадраты, чтобы не извлекать корня.

// PascalABC.NET 3.0, сборка 1088
var
  x1,x2,y1,y2,r1,r2:real;
begin
  Write(Введите координаты первой точки: ); Read(x1,y1);
  Write(Введите координаты второй точки: ); Read(x2,y2);
  r1:=sqr(x1)+sqr(y1); r2:=sqr(x2)+sqr(y2);
  if r1>r2 then Writeln(Ближе вторая точка)
  else
    if r1    else Writeln(Точки равноудалены)
end.

Тестовое решение:
Введите координаты первой точки: 16.3 -11.7
Введите координаты второй точки: 15.8 12
Ближе вторая точка