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.