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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

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.