вычислить периметр треугольника если даны координаты 3-х вершин(алгоритм функции) (Паскаль)

[анжелка]

вычислить периметр треуголника если даны координаты 3-х вершин(алгоритм функции)


Кросспост (создание одинаковых тем и сообщений)
ЗАПРЕЩЁН правилами форума!
Учтите это на будущее!

Модератор.

[Serge_Bliznykov]

1) периметр это сумма длин сторон.
2) длину каждой стороны найти очень просто:
Длина равняется корень квадратный из суммы квадратов разниц соответствующих координат X и Y

поясню. Пусть есть точка с координатами X1,Y1 и точка с координатами X2,Y2
тогда расстояние между ними (обозначим его s1) определяется в Паскале так:

s1 := sqrt( sqr(x1-x2) + sqr(y1-y2) );

p.s. я уже молчу о том, что эта задача тут на форуме решалась.
Посмотрите, хотя бы внизу раздел "Похожие темы"!!

[New man]

type TPoint = record
          x,y:real;
        end;
Function Perimetr(f,s,t:TPoint):real;

var 
     kl,fg,cf:real;
begin
   kl:=sqrt(sqr(f.x-s.x)+sqr(f.y-s.y));
   fg:=sqrt(sqr(f.x-t.x)+sqr(f.y-t.y));
   cf:=sqrt(sqr(s.x-t.x)+sqr(s.y-t.y));
   Perimetr:=kl+fg+cf;
end;