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.

Answer 2

Код программы на языке Pascal для вычисления площади двух треугольников и определения, какой из них имеет большую площадь: ```pascal program TriangleArea; var x1, y1, x2, y2, x3, y3: Integer; area1, area2: Real; function ComputeArea(x1, y1, x2, y2, x3, y3: Integer): Real; begin ComputeArea := 0.5 * ((x2 - x1) * (y3 - y1) - (x3 - x1) * (y2 - y1)); end; begin // Ввод координат вершин первого треугольника WriteLn('Введите координаты вершин первого треугольника:'); Write('x1 = '); ReadLn(x1); Write('y1 = '); ReadLn(y1); Write('x2 = '); ReadLn(x2); Write('y2 = '); ReadLn(y2); Write('x3 = '); ReadLn(x3); Write('y3 = '); ReadLn(y3); // Вычисление площади первого треугольника area1 := ComputeArea(x1, y1, x2, y2, x3, y3); // Ввод координат вершин второго треугольника WriteLn('Введите координаты вершин второго треугольника:'); Write('x1 = '); ReadLn(x1); Write('y1 = '); ReadLn(y1); Write('x2 = '); ReadLn(x2); Write('y2 = '); ReadLn(y2); Write('x3 = '); ReadLn(x3); Write('y3 = '); ReadLn(y3); // Вычисление площади второго треугольника area2 := ComputeArea(x1, y1, x2, y2, x3, y3); // Вывод результатов WriteLn('Площадь первого треугольника:', area1:0:2); WriteLn('Площадь второго треугольника:', area2:0:2); if area1 > area2 then WriteLn('Первый треугольник имеет большую площадь.') else if area1 < area2 then WriteLn('Второй треугольник имеет большую площадь.') else WriteLn('Площади треугольников равны.'); ReadLn; end. ``` Пользователю предлагается ввести координаты вершин первого треугольника, а затем координаты вершин второго треугольника. После ввода, программа вычисляет площади обоих треугольников и выводит результаты. Если площадь первого треугольника больше, чем площадь второго, то выводится сообщение о том, что первый треугольник имеет большую площадь. Если площадь второго треугольника больше, выводится соответствующее сообщение. Если же площади треугольников равны, выводится сообщение о равенстве площадей.