Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/8: Рейтинг темы: голосов - 8, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 26.12.2016
Сообщений: 21
1

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

27.12.2016, 16:52. Показов 1485. Ответов 2
Метки нет (Все метки)

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

Выяснить, какие из заданных точек находятся на минимальном расстоянии друг от друга и найти это расстояние
Четыре точки заданы своими координатами Х (х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,x3),T(t1,t2,t3) Выяснить,...

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

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

2
0 / 0 / 0
Регистрация: 27.12.2016
Сообщений: 27
27.12.2016, 21:30 2
А что именно вас интересует в данной задаче?
0
Модератор
8414 / 4164 / 2877
Регистрация: 17.08.2012
Сообщений: 13,281
30.12.2016, 01:36 3
Лучший ответ Сообщение было отмечено Sambl как решение

Решение

Не по теме:

Indianna, а с какой целью интересуемся?

Pascal
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
procedure distance(var a, b: array of real; var d: real);
var i: integer;
begin
  d := 0;
  for i := low(a) to high(a) do d := d + sqr(a[i] - b[i]);
  d := sqrt(d)
end;
 
const ind: array[1..4] of char = ('X', 'Y', 'Z', 'T');
 
var i, j, m1, m2: integer;
    min, dist: real;
    point: array[1..4, 1..3] of real;
 
begin
  writeln('Enter coordinates of points:');
  for i := 1 to 4 do
    begin
      writeln(ind[i], ' point coordinates:');
      for j := 1 to 3 do
        begin
          write(ind[i], j, ' = ');
          readln(point[i, j])
        end
    end;
  min := -1;
  for i := 1 to 3 do
    for j := i + 1 to 4 do
      begin
        distance(point[i], point[j], dist);
        if (min < 0) or (dist < min)
          then begin
            m1 := i;
            m2 := j;
            min := dist
          end
      end;
  writeln('Minimum distance between points of ', ind[m1], ' and ', ind[m2]);
  write('This distance is equal to ', min);
  readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.12.2016, 01:36

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

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

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

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

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


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

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

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