Задание 4 Параграф 4.4 ГДЗ Босова 8 класс 2023 (Информатика)

Задача

Входные данные
Координаты 1-й точки»1 2 Координаты 2-й точки > > 3 4
Координаты 1-й точки»1 2 Координаты 2-й точки > > 1
Координаты 1-й точки»2 4 Координаты 2-й точки > > 2 2
Выходные данные
1-я точка ближе
Точки равноудалены
2-я точка ближе
var
xa, ya, xb, yb: integer;
d1, d2: real;
begin
write(‘Координаты 1-ой точки > > ‘);
readln(xa, ya);
write(‘Координаты 2-ой точки > > ‘);
readln(xb, yb);
d1 := sqrt(sqr(xa) + sqr(ya));
d2 := sqrt(sqr(xb) + sqr(yb));
if d1 = d2 then writeln(‘Точки равноудалены’)
else if d1 < d2 then writeln('1-я точка ближе') else writeln('2-я точка ближе'); end. Окно вывода Координаты 1-ой точки > > 1 2
Координаты 2-ой точки > > 3 4
1-я точка ближе
Координаты 1-ой точки > > 1 2
Координаты 2-ой точки > > 2 1
Точки равноудалены
Координаты 1-ой точки > > 2 4
Координаты 2-ой точки > > 2 2
2-я точка ближе

Подробный ответ

Найдём расстояния от каждой точки до начала координат по формуле:

$$d=\sqrt{x^2+y^2}$$

Если $$d_1=d_2$$, то точки равноудалены от начала координат. Если $$d_1<d_2$$, то ближе первая точка, иначе — вторая.

var
  xa, ya, xb, yb: integer;
  d1, d2: real;
begin
  write(‘Координаты 1-ой точки>> ‘);
  readln(xa, ya);
  write(‘Координаты 2-ой точки>> ‘);
  readln(xb, yb);
  d1 := sqrt(sqr(xa) + sqr(ya));
  d2 := sqrt(sqr(xb) + sqr(yb));
  if d1 = d2 then writeln(‘Точки равноудалены’)
  else if d1 < d2 then writeln(‘1-я точка ближе’)
  else writeln(‘2-я точка ближе’);
end.

Проверка на тестах:

$$ (1,2) $$ и $$ (3,4) $$: $$d_1=\sqrt{1^2+2^2}=\sqrt{5}$$, $$d_2=\sqrt{3^2+4^2}=5$$, значит первая точка ближе.
$$ (1,2) $$ и $$ (2,1) $$: $$d_1=\sqrt{5}$$, $$d_2=\sqrt{5}$$, значит точки равноудалены.
$$ (2,4) $$ и $$ (2,2) $$: $$d_1=\sqrt{20}$$, $$d_2=\sqrt{8}$$, значит вторая точка ближе.