Оформить в виде процедуры

[Sergey5230]

Оформить в виде процедуры

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

 

[Sergey5230]

точки задаются с клавиатуры

 

[AlexZir]

А в чем, собственно, проблема? Берете учебник геометрии за 10-11 класс. В нем есть формула определения расстояния между двумя точками в пространстве по их координатам, у вас есть координаты этих точек, остается только применить знания на практике