Даны координаты трех вершин треугольника на плоскости. Напишите программу на Паскале для вычисления площади такого треугольника.
Решение:
{площадь треугольника по координатам трех вершин}
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 • Просмотров [ 2898 ]