Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.79/14: Рейтинг темы: голосов - 14, средняя оценка - 4.79
0 / 0 / 0
Регистрация: 10.10.2015
Сообщений: 19
1

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

26.10.2015, 19:36. Показов 2935. Ответов 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
26.10.2015, 19:36
Ответы с готовыми решениями:

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

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

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

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

2
Эксперт Pascal/Delphi
6637 / 4465 / 4746
Регистрация: 05.06.2014
Сообщений: 21,954
27.10.2015, 14:19 2
Лучший ответ Сообщение было отмечено Paul Morgan как решение

Решение

(С) BDA

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
42
uses
  CRT;
 
type
  TCoord = record 
    X, Y, Z: single;
  end;
 
var
  a: array[1..4] of TCoord;
  i, j: integer;
  min, tmp: single;
 
function Distance(A, B: TCoord): single;
begin
  Distance := Sqrt(Sqr(A.X - B.X) + Sqr(A.Y - B.Y) + Sqr(A.Z - B.Z));
end;
 
begin
  for i := 1 to 4 do
  begin
    write('Input coordinates of ', i, ' point: ');
    readln(a[i].x, a[i].y, a[i].z);
  end;
  min := 100000;
  for i := 1 to 3 do
    for j := i + 1 to 4 do
    begin
      tmp := distance(a[i], a[j]);
      if tmp < min then
        min := tmp; 
    end;
  writeln('Minimum distance (', min:0:3, ') between:');
  for i := 1 to 3 do
    for j := i + 1 to 4 do
    begin
      tmp := distance(a[i], a[j]);
      if tmp = min then
        writeln(i, ' and ', j, ' point');   
    end;
  readln;
end.
0
0 / 0 / 0
Регистрация: 10.10.2015
Сообщений: 19
27.10.2015, 16:12  [ТС] 3
ZX Spectrum-128, Спасибо огромное! Выручили!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.10.2015, 16:12

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

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

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

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

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


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

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

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