Заданы координаты трех вершин треугольника (x1, y1), (x2, y2) и (x3, y3). Найти его периметр и площадь. PHP
$X1 = 8
$Y1 = -8
$X2 = 10
$Y2 = 9
$X3 = 7
$Y3 = 6

Var

x1,y1,x2,y2,x3,y3:Real;

a,b,c,p,S:Real;

Begin

WriteLn('Введите координаты первой вершины');

RealLn(x1,y1);

WriteLn('Введите координаты второй вершины');

RealLn(x2,y2);

WriteLn('Введите координаты третьей вершины');

RealLn(x3,y3);

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

b:=sqrt(sqr(x3-x2)+sqr(y3-y2));

c:=sqrt(sqr(x1-x3)+sqr(y1-y3));

p:=(a + b + c)/2;

S = sqrt(p*(p - a)*(p - b)*(p - c));

WriteLn('Площадь: ',S);

WriteLn('Периметр:'a + b + c);

ReadLn;

End.

Объяснение: