описать функцию

[megawar]

Описать функцию Perim(Ax,Ay,Bx,By,Cx,Cy) вещественного типа, находящую периметр треугольника ABC по координатам его вершин (Ax, Ay, Bx, By, Cx, Cy — вещественные параметры). С помощью этой функции найти периметры треугольников ABC, ABD, ACD, если даны координаты точек A, B, C, D

[BDA]

Что вызывает затруднения?

function Perim(ax, ay, bx, by, cx, cy: real): real;
begin
  //найти расстояния между парами точек
  Perim := r1 + r2 + r3;//где ri - расстояние между точками
end;

[Stilet]

http://www.programmersforum.ru/showt...ighlight=Perim