function Delphi
координатами
x={x1,x2,x3} ,y={y1,y2,y3} z={z1,z2,z3}, и p={p1,p2,p3}
.Выяснить какие из них находятся в минимальном расстоянии друг от друга, и вывести значение этого расстояния.
Вычисление расстояния между точками
оформить в виде подпрограммы function. x={3,2;5;1,4},y={2,2;-4;3},z={-6,1;-3;1},p={2,7;1;-1}
ниже это исходные данные
Ну охренеть, даже в школе учат вычислять расстояние между точками в пространстве! Формула — это квадратный корень из суммы квадратов разностей соответствующих координат. А среди 4-х точек сделать перебор по минимальному расстоянию довольно просто.