Подпрограмма четыры точки заданы своими координатами

[P4elkabek]

Помогите написать программу,Четыре точки заданы своими координатами Четыре
точки заданы своими
координатами
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}

[type_Oleg]

Сообщение от P4elkabek

... Вычисление расстояния между точками
оформить в виде подпрограммы function. ..

function Rass12(x1,x2,y1,y2,z1,z2:Double):Double;
begin
 Rass12:=Sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2)+(z1-z2)*(z1-z2));
end;

Надеюсь, не запутаешься в формальных и фактических именах .

[BDA]

Кросспостинг запрещен
Ваша тема - http://programmersforum.ru/showthread.php?t=252648

UPD
type_Oleg уже написал основную часть программы

[P4elkabek]

function Rass12(x1,x2,y1,y2,z1,z2:Double) :Double; begin Rass12:=Sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2)
+(z1-z2)*(z1-z2)); end; и дальше

[type_Oleg]

P4elkabek, может, и зачет за тебя получить?
А сам что-нибудь умеешь ? Или только копировать условия задачи ?
Копируй дальше.

[P4elkabek]

да брат я бы с удовольствием,у меня компьютера нет , я незнаю ,правду говорю ((( от души прошу помощи,извините конечно

[P4elkabek]

мне тоже очень неудобно,((( помогите мне пожалуйста , люди добрые ((

[BDA]

1) Если нет компьютера, то откуда же Вы пишете?
2) Если с планшета/телефона, то программы можно проверять на ideone.com;
3) Составьте сначала алгоритм, для этого не нужен компьютер;
4) Вы можете запросить у пользователя значение целочисленной переменной?