Question

Заданы координаты трех вершин треугольника (x1, y1), (x2, y2), (x3, y3). Найти его периметр и площадь

Answer 1

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.