Заданы координаты трех Вершин треугольника (x1, y1), (х2, y2), (x3, y3). найти его...

Question

Заданы координаты трех Вершин треугольника (x1, y1), (х2, y2), (x3, y3). найти его площадь.
НАЙТИ ПО ПРОГРАММЕ ПАСКАЛЬ! ПОДРОБНО ПОЖАЛУЙСТА

Answer 1

Var
S,X1,X2,X3,Y1,Y2,Y3:real;
Begin
Write('(x1, y1) = ');Read(X1,Y1);
Write('(x2, y2) = ');Read(X2,Y2);
Write('(x3, y3) = ');Read(X3,Y3);
S:=Abs(1/2*((X1-X3)*(Y2-Y3) - (X2-X3)*(Y1-Y3)));
WriteLn('S = ',S);
End.