Question

Даны координаты трех вершин треугольника (x1,y1),(x2,y2),(x3,y3). Найти периметр и площадь. Для нахождения площади треугольника со сторонами a,b,c использовать формулу Герона.
Паскаль

Answer 1

var x1,x2,x3,y1,y2,y3,a,b,c,S,P: real;

begin

readln(x1,y1,x2,y2,x3,y3);

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

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

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

P:=a+b+c;

writeln('периметр: ',P);

P:=P/2;

S:=sqrt(P*(P-a)*(P-b)*(P-c));

write('площадь: ',S);

end.

Answer 2

большое спасибо)