Нахождение сумм расстояний

[maris]

Пожалуйста помогите решить задачу...)))
Задание. Написать программу для нахождения сумм расстояний от заданных k (k<=10) точек до фиксированной прямой (в пространстве). Подготовить и использовать процедуру определения расстояния от точки до прямой (в пространстве).
Заранне спасибо....)))

[Mandrivnyk]

"помочь" != "решить за меня".
или выкладывай свой код, или во фриланс... -)

[IT-man]

Function CalcDist(Var a,b,c,x,y:integer):real;
Begin
 CalcDist:=abs(a*X+b*Y+c)/sqrt(a*a+b*b);
End {CalcDist};

(с)allbest.ru

[maris]

Большое спасибо It-man...)))
Хоть чем-то помог в отличии от некоторых...))