{площадь треугольника по координатам трех вершин}

var x1,y1,x2,y2,x3,y3,a,b,c,p,s:real;
begin
 {введите координаты точек A(x1,y1), B(x2,y2) и C(x3,y3)}
 x1:=0;y1:=0; {первая точка}
 x2:=1;y2:=0; {вторая точка}
 x3:=0;y3:=1; {третья точка}
 c:=sqrt(sqr(y1-y2)+sqr(x1-x2));
 a:=sqrt(sqr(y2-y3)+sqr(x2-x3));
 b:=sqrt(sqr(y1-y3)+sqr(x1-x3));
 p:=(a+b+c)/2;
 s:=p*sqrt((p-a)*(p-b)*(p-c));
 writeln('площадь треугольника = ',s:5:2);
end.


 Похожие публикации
2019-01-20 • Просмотров [ 57 ]