Question

Даны две точки в плоской прямоугольной системе координат. Составить программу в паскале для определения, которая из точек находится ближе к началу координат.(СРОЧНО. ЗАРАНЕЕ СПАСИБО)

Answer 1

Var
  x, y, d : real;
begin
  read (x, y);
  d := sqr (x) + sqr (y);
  read (x, y);
  if d > sqr (x) + sqr (y) then write ('Вторая ближе') else write ('Первая ближе');
end.

Answer 2

Определение ближайшей точки к началу координат

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

program ClosestPoint;

type
  Point = record
    x: real;
    y: real;
  end;

var
  point1, point2: Point;
  distance1, distance2: real;

begin
  // Ввод координат первой точки
  writeln('Введите координаты первой точки:');
  write('x: ');
  readln(point1.x);
  write('y: ');
  readln(point1.y);

// Ввод координат второй точки
  writeln('Введите координаты второй точки:');
  write('x: ');
  readln(point2.x);
  write('y: ');
  readln(point2.y);

// Вычисление расстояния от каждой точки до начала координат
  distance1 := sqrt(point1.x * point1.x + point1.y * point1.y);
  distance2 := sqrt(point2.x * point2.x + point2.y * point2.y);

// Определение ближайшей точки
  if distance1 < distance2 then
    writeln('Первая точка ближе к началу координат.')
  else if distance2 < distance1 then
    writeln('Вторая точка ближе к началу координат.')
  else
    writeln('Обе точки находятся на одинаковом расстоянии от начала координат.');

readln;
end.

В этой программе мы используем тип `Point`, который представляет собой запись с полями `x` и `y` для хранения координат точек. Затем мы считываем координаты первой и второй точек с помощью функции `readln`. Далее мы вычисляем расстояние от каждой точки до начала координат с помощью формулы `sqrt(x^2 + y^2)`. Наконец, мы сравниваем полученные расстояния и выводим результат.

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