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

@Настя394 · Регистрация: 18.08.2016

Студворк — интернет-сервис помощи студентам

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

@RefSol · 18.08.2016, 22:21

Ближе будет та у которой меньшее расстояние Евклидовой метрики:
$https://www.cyberforum.ru/cgi-bin/latex.cgi?len = \sqrt{{x}^{2} + {y}^{2}}$

@bormant · 18.08.2016, 22:25

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

@RefSol · 18.08.2016, 23:22

Сообщение от bormant

а поскольку когда корень одной суммы квадратов меньше, тогда такая сумма также меньше другой

, мысль хорошая

@Puporev · 19.08.2016, 10:04

Pascal

var x1,y1,x2,y2:integer;
begin
writeln('Введите целые координаты 1 точки');
readln(x1,y1);
writeln('Введите целые координаты 2 точки');
readln(x2,y2);
if x1*x1+y1*y1<x2*x2+y2*y2 then write('Первая точка ближе к началу координат')
else if x1*x1+y1*y1>x2*x2+y2*y2 then write('Вторая точка ближе к началу координат')
else write('Обе точки на одном расстоянии от начала координат')
end.

@bormant · 19.08.2016, 12:03

Или чуть иначе:

Pascal

var x, y, z: Integer;
begin
  Write('Введите координаты 1 точки: '); ReadLn(x,y); z:=Sqr(x)+Sqr(y);
  Write('Введите координаты 2 точки: '); ReadLn(x,y); y:=Sqr(x)+Sqr(y);
  if z=y then WriteLn('Точки на одинаковом расстоянии от начала координат')
  else WriteLn('К началу координат ближе ',Ord(z>y)+1,'-я точка');
end.

Новичок · 20.08.2016, 14:10

Сообщение от bormant

Ord(z>y)

А работает ли это в PascalABC?

@Puporev · 20.08.2016, 14:20

В простом АВС нет, в АВС.net да.

@Настя394 0 / 0 / 0 Регистрация: 18.08.2016 Сообщений: 13
		1
	Определить, какая из заданных точек на плоскости ближе к началу координат 18.08.2016, 21:41. Показов 12173. Ответов 7 Метки нет (Все метки) Две точки заданы своими координатами на плоскости. Составить алгоритм и написать программу для определения какая из точек находится ближе к началу координат. 0

@RefSol 503 / 246 / 74 Регистрация: 31.10.2010 Сообщений: 742
	18.08.2016, 22:21	2
	Ближе будет та у которой меньшее расстояние Евклидовой метрики: $https://www.cyberforum.ru/cgi-bin/latex.cgi?len = \sqrt{{x}^{2} + {y}^{2}}$ 0

@bormant Модератор 7649 / 4489 / 2810 Регистрация: 22.11.2013 Сообщений: 12,829 Записей в блоге: 1
	18.08.2016, 22:25	3
	... а поскольку когда корень одной суммы квадратов меньше, тогда такая сумма также меньше другой, то корень перед сравнением можно не извлекать. 0

@RefSol 503 / 246 / 74 Регистрация: 31.10.2010 Сообщений: 742
	18.08.2016, 23:22	4
	Сообщение от bormant а поскольку когда корень одной суммы квадратов меньше, тогда такая сумма также меньше другой , мысль хорошая 0

Новичок 1642 / 1091 / 487 Регистрация: 17.07.2012 Сообщений: 5,345
	20.08.2016, 14:10	7
	Сообщение от bormant Ord(z>y) А работает ли это в PascalABC? 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	20.08.2016, 14:20	8
	В простом АВС нет, в АВС.net да. 0

Опции темы