0 / 0 / 0
Регистрация: 11.12.2013
Сообщений: 9
1

Найти точку из множества, сумма расстояний от которой до остальных его точек минимальна или максимальна

10.05.2014, 09:42. Показов 2931. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
. Дано множество A из N точек. Найти такую точку из данного множества, сумма расстояний от которой до остальных
его точек минимальна1|максимальна2, и саму эту сумму
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.05.2014, 09:42
Ответы с готовыми решениями:

Найти такую точку множества, сумма расстояний от которой до остальных его точек максимальна
Дано линейное множество A из N точек. Найти такую точку из данного множества, сумма расстояний от...

Найти точку на плоскости, сумма расстояний от которой до остальных точек множества максимальна
Друзья, мне вновь необходима любая ваша помощь по теме) Задача такова: решить задачу, с помощью...

Найти такую точку заданного на плоскости множества точек, сумма расстояний от которой до остальных минимальна
Всем привет! Нужна ваша помощь! Искал задачку нашел только на С++ и С# а вот на java не могу найти,...

Найти такую точку заданного на плоскости множества точек, сумма расстояний от которой до остальных минимальна
Даны точки(неограниченно) с координатами. Найти такую точку заданного на плоскости множества...

1
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
10.05.2014, 14:02 2
Лучший ответ Сообщение было отмечено Бирюков как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
var
  Form1: TForm1;
  a:array of array[1..2] of real;
  n:integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
with StringGrid1 do
 begin
  fixedcols:=1;
  fixedrows:=1;
  rowcount:=3;
  defaultcolwidth:=35;
  cells[0,0]:='Номер';
  cells[0,1]:='X';
  cells[0,2]:='Y';
 end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
randomize;
val(Edit1.Text,n,i);
if (i<>0)or(n<2)then
 begin
  Showmessage('Введите целое число n>1');
  Edit1.Clear;
  Edit1.SetFocus;
  exit
 end;
setlength(a,n);
StringGrid1.ColCount:=n+1;
for i:=1 to n do
StringGrid1.Cells[i,0]:=inttostr(i);
for i:=0 to n-1 do
 begin
  a[i,1]:=-10+20*random;
  a[i,2]:=-10+20*random;
  StringGrid1.Cells[i+1,1]:=floattostrF(a[i,1],fffixed,6,2);
  StringGrid1.Cells[i+1,2]:=floattostrF(a[i,2],fffixed,6,2);
 end;
 
end;
procedure TForm1.Button2Click(Sender: TObject);
var i,j,imn,imx:integer;
    sm,mn,mx:real;
begin
if RadioButton1.Checked then
 begin
  for i:=0 to n-1 do
   begin
    sm:=0;
    for j:=0 to n-1 do
    if j<>i then sm:=sm+sqrt(sqr(a[i,1]-a[j,1])+sqr(a[i,2]-a[j,2]));
    if i=0 then
     begin
      mn:=sm;
      imn:=0;
     end
    else if sm<mn then
     begin
      mn:=sm;
      imn:=i;
     end;
  end;
  Memo1.Clear;
  Memo1.Text:='Минимальную сумму расстояний до остальных точек имеет точка:'
               +#13#10+' номер='+inttostr(imn+1)+#13#10+
              ' сумма расстояний='+floattostrF(mn,fffixed,6,2);
 end
else if RadioButton2.Checked then
 begin
  for i:=0 to n-1 do
   begin
    sm:=0;
    for j:=0 to n-1 do
    if j<>i then sm:=sm+sqrt(sqr(a[i,1]-a[j,1])+sqr(a[i,2]-a[j,2]));
    if i=0 then
     begin
      mx:=sm;
      imx:=0;
     end
    else if sm>mx then
     begin
      mx:=sm;
      imx:=i;
     end;
  end;
  Memo1.Clear;
  Memo1.Text:='Максимальную сумму расстояний до остальных точек имеет точка:'
               +#13#10+' номер='+inttostr(imx+1)+#13#10+
              ' сумма расстояний='+floattostrF(mx,fffixed,6,2);
 end
else
 begin
  Showmessage('Вы не выбрали что искать');
  exit
 end;
end;
0
10.05.2014, 14:02
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.05.2014, 14:02
Помогаю со студенческими работами здесь

Найти такую точку заданного на плоскости множества точек, сумма расстояний от которой до остальных минимальна
осталась последняя задача по Си, от неё зависит зачёт. Условия такие: найти такую точку заданного...

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

Найти точку, сумма расстояний от которой до остальных точек минимальна
Имеется задачка. Дан массив точек на прямой, найти точку, сумма расстояний от которой до остальных...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru