Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 28.10.2011
Сообщений: 17
1

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

18.11.2011, 22:45. Показов 1256. Ответов 3
Метки нет (Все метки)

Четыре точки заданы своими координатами X(x1,x2,x3),Y(y1,y2,y3),Z(z1,z2,x3),T(t1,t2,t3) Выяснить, какие из них находятся на минимальном расстоянии друг от друга и вывести на печать значение этого расстояния. Вычисление расстояния между двумя точками оформить в виде процедуры.
Если можно напишите все тело программы....если нет, то самое основное!
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.11.2011, 22:45
Ответы с готовыми решениями:

Выяснить, какие 4-х точек, заданых своими координатами, находятся на минимальном расстоянии друг от друга
Буду благодарен, если поможете решить вот эту задачку: Четыре точки заданы своими координатами...

Выяснить, какие из заданных точек находятся на минимальном расстоянии друг от друга и найти это расстояние
Четыре точки заданы своими координатами Х (х1,х2,х3), Y (y1,y2,y3), Z(z1,z2,z3), T (t1,t2,t3)....

Выяснить, какие из точек находятся на минимальном расстоянии друг от друга и найти значение этого расстояния
Четыре точки заданы своими координатами X(x1, x2, x3), Y(y1, y2, y3), Z(z1, z2, z3), T(t1,t2, t3)....

Выяснить, какие из точек находятся на максимальном расстоянии друг от друга
Четыре точки заданы своими координатами x={x1, x2}, y={y1, y2}, z={z1, z2}, p={p1,p2}. Выяснить,...

3
33 / 26 / 3
Регистрация: 17.11.2011
Сообщений: 77
20.11.2011, 00:47 2
Я так понимаю, что точки находятся в трехмерной системе координат, а сами координаты задаёт пользователь?
0
401 / 312 / 74
Регистрация: 17.03.2010
Сообщений: 1,120
20.11.2011, 03:25 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Вот формула нахождения расстояния между 2-мя точками
http://a-geometry.narod.ru/theory/theory_28.htm
Подключай в Uses модуль Math
Точки задай массивом
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
const
  N = 4;//кол-во точек
type
  TPoint = record// точка
    x, y, z : integer;
  end;
var
  i, j, MinI, MinJ : integer;
  Points : array of TPoint;//массив точек
  Res : array of real;//массив результатов
  Min : real;//минимальное расстояние 
// функция считает расстояние
function Distance(A, B : TPoint):real;
begin
  Result := Sqrt(Power(B.x-A.x) + Power(B.y-A.y) + Power(B.z-A.z));
end;
// тело
begin
  Min := 10000;
  //задаешь кол-во точек
  SetLength(Points, N);
  // Проходим по всем точкам
  for i := 0 to N-1 do
    for j := 0 to N-1 do
      if i <> j then
      begin
        // Добавляем новый элемент в массив расстояний
        SetLength(Res, Length(Res)+1);
        // Вычисляем расстояние между 2-мя точками
        Res[Length(Res)-1] := Distance(Points[i], Points[j]);
        // Поиск минимума и номеров точек
        if Res[Length(Res)-1] > Min then
        begin
          Min := Res[Length(Res)-1];
          MinI := i;
          minJ := j;
        end; 
      end;
  // Выводим результат
  ShowMessage('Минимальное расстояние = ' + 
                      FloatToStr(Min) + 
                      ' между точками ' + IntToStr(MinI) + ' и ' + IntToStr(MinJ));
end;
Как то так, писал быстро на коленке)))
1
0 / 0 / 0
Регистрация: 28.10.2011
Сообщений: 17
21.11.2011, 15:59  [ТС] 4
AnasteZiya, да координаты задает пользователь
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.11.2011, 15:59

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Выяснить, какие из точек находятся на максимальном расстоянии друг от друга
Три точки заданы своими координатами (x1,y1), (x2,y2), (x3,y3). Напишите программу, позволяющую...

Выяснить, какие из точек находятся на максимальном расстоянии друг от друга
Четыре точки заданы своими координатами X(x1, x2), Y(y1, y2), Z(z1, z2), P(p1, p2) Выяснить, какие...

Выяснить, какие из 4х точек находятся на максимальном расстоянии друг от друга.
не могу решить Четыре точки заданы своими координатами Х(х1, х2), У(у1, у2), Z(z1, z2), Р(р1,...

Выяснить какие из четырех точек находятся на максимальном расстоянии друг от друга
Четыре точки заданы своими координатами X(x1, x2), Y(y1, y2), Z(z1, z2), P(p1, p2). Выяснить, какие...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.