Множества в DELPHI - Общие вопросы Delphi

_LeO_ · 21.06.2010, 19:56

Здравствуйте у меня есть такая проблема у меня дана точка А и множество В из N точек. Нужно найти номер точки из множества В, наиболее близкой от точки А. Помогите если можете. Заранее спасибо.

Девочка-Скандал · 21.06.2010, 20:00

Код:

k:=1;
for i:=2 to n do
if sqrt(sqr(b[i].x-a.x)+sqr(b[i].y-a.y)) < sqrt(sqr(b[k].x-a.x)+sqr(b[k].y-a.y)) then k:=i;

_LeO_ · 21.06.2010, 20:04

а можно по подробней код ?

Девочка-Скандал · 21.06.2010, 20:11

Цитата:

а можно по подробней код ?

можно! но за $

_LeO_ · 21.06.2010, 20:12

А о какой сумме идет речь ?

Djem1991 · 21.06.2010, 20:14

за $ есть раздел Фриланс.

Покрути поиск, я видел похожий вопрос с ответом =)

_LeO_ · 21.06.2010, 20:15

спасибо за совет.

21.06.2010, 19:56	#1
_LeO_ Регистрация: 29.11.2009 Сообщений: 5	Множества в DELPHI Здравствуйте у меня есть такая проблема у меня дана точка А и множество В из N точек. Нужно найти номер точки из множества В, наиболее близкой от точки А. Помогите если можете. Заранее спасибо.

21.06.2010, 20:00	#2
Девочка-Скандал Пользователь Регистрация: 16.06.2010 Сообщений: 42	Код: `k:=1; for i:=2 to n do if sqrt(sqr(b[i].x-a.x)+sqr(b[i].y-a.y)) < sqrt(sqr(b[k].x-a.x)+sqr(b[k].y-a.y)) then k:=i;` Последний раз редактировалось Девочка-Скандал; 21.06.2010 в 20:10.

21.06.2010, 20:14	#6
Djem1991 Форумчанин Регистрация: 05.01.2009 Сообщений: 130	за $ есть раздел Фриланс. Покрути поиск, я видел похожий вопрос с ответом =) В жизни нет reset'а, а жаль...

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Множества Delphi	VadEr	Помощь студентам	10	25.10.2009 14:57
Множества	Бедная студентка)	Помощь студентам	0	29.06.2009 19:59
Множества	Deep-Minimal	Паскаль, Turbo Pascal, PascalABC.NET	2	29.06.2009 16:20
Задача на вектора (тема Множества) DELPHI	08ekhiv1	Помощь студентам	1	13.03.2009 20:00

21.06.2010, 20:04	#3
_LeO_ Регистрация: 29.11.2009 Сообщений: 5	а можно по подробней код ?

21.06.2010, 20:12	#5
_LeO_ Регистрация: 29.11.2009 Сообщений: 5	А о какой сумме идет речь ?

21.06.2010, 20:15	#7
_LeO_ Регистрация: 29.11.2009 Сообщений: 5	спасибо за совет.