Question

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

Answer 1

program dve_tochki_kskaja_dalshe;

var

x1,y1,x2,y2:integer;

begin

read(x1,y1,x2,y2);

if(sqrt(sqr(x2)+sqr(y2))) >(sqrt(sqr(x1)+sqr(y1)))

then

write('Вторая дальше')

else

if(sqrt(sqr(x2)+sqr(y2))) >(sqrt(sqr(x1)+sqr(y1)))

then

write('Первая дальше')

else

write('Точки равноудалены')

end.

Answer 2

Конечно, вот пример алгоритма на языке программирования Паскаль:

pascalCopy code
program FartherPointFromOrigin;

type
  Point = record
    x, y: Real;
  end;

function DistanceFromOrigin(p: Point): Real;
begin
  DistanceFromOrigin := sqrt(p.x * p.x + p.y * p.y);
end;

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

begin
  { Ввод координат первой точки }
  Write('Введите координату x первой точки: ');
  ReadLn(point1.x);
  Write('Введите координату y первой точки: ');
  ReadLn(point1.y);

  { Ввод координат второй точки }
  Write('Введите координату x второй точки: ');
  ReadLn(point2.x);
  Write('Введите координату y второй точки: ');
  ReadLn(point2.y);

  { Вычисление расстояний от начала координат до точек }
  distance1 := DistanceFromOrigin(point1);
  distance2 := DistanceFromOrigin(point2);

  { Сравнение расстояний и определение ближайшей точки }
  if distance1 > distance2 then
    WriteLn('Точка 2 находится дальше от начала координат.')
  else if distance2 > distance1 then
    WriteLn('Точка 1 находится дальше от начала координат.')
  else
    WriteLn('Обе точки находятся на одном расстоянии от начала координат.');

end.

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