процедуры и функции(pascal)

[wormiks40]

Даны координаты трех вершин треугольника. Найти длины всех его сторон.
Помогите пожалуйста очень срочно нужно

[ВалерОК]

http://pascal.guti.ru/procedure.html - вперед!!!

[denisbrain]

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

Даны координаты трех вершин треугольника. Найти длины всех его сторон.
Помогите пожалуйста очень срочно нужно

Пример функций

Function Dlina(a,b:Tpoint):Extended; // находим расстояние между двумя точками
var x1,y1,x2,y2:real;
begin
x1:=a.x;
y1:=a.y;
x2:=b.x;
y2:=b.y;
   result:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1))
end;

Function GetP(a,b,c:Tpoint):Extended; // периметр треугольника
var p,r1,r2,r3:real;
begin
 r1:=Dlina(a,b);
 r2:=Dlina(b,c);
 r3:=Dlina(c,a);
 p:=(r1+r2+r3);
 result:=p;
end;
Function GetS(a,b,c:Tpoint):real; // площадь треугольниа
var p,r1,r2,r3:real;
begin
{form1.Canvas.MoveTo(a.X,a.y);
form1.Canvas.LineTo(b.X,b.y);
form1.Canvas.LineTo(c.X,c.y);
form1.Canvas.LineTo(a.X,a.y);}

 r1:=Dlina(a,b);
 r2:=Dlina(b,c);
 r3:=Dlina(c,a);
 p:=(r1+r2+r3)/2;
 if p*(p-r1)*(p-r2)*(p-r3)>0 then
 result:=sqrt(p*(p-r1)*(p-r2)*(p-r3))
 else result:=0;
end;