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.