Question

Написать код программы решения в Паскале: два треугольника заданы координатами своих вершин. Вычислите их площади по формуле S=1/2((Х2-Х1)(Y3-Y1)-(X3-X1)(Y2-Y1)) и определите, какой из них имеет большую площадь.

Answer 1

==== PascalABC.NET =====

begin

 var (x1, y1) := ReadReal2('Координаты х и у вершины 1:');

 var (x2, y2) := ReadReal2('Координаты х и у вершины 2:');

 var (x3, y3) := ReadReal2('Координаты х и у вершины 3:');

 Print('Площадь треугольника равна',

   0.5 * ((x2 - x1) * (y3 - y1) - (x3 - x1) * (y2 - y1)))

end.