Написать код программы решения в Паскале: два треугольника заданы координатами своих вершин. Вычислите их площади по формуле S=1/2((Х2-Х1)(Y3-Y1)-(X3-X1)(Y2-Y1)) и определите, какой из них имеет большую площадь.
Ответы
Ответ дал:
0
==== 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.
gipson952:
http://primat.org/index/0-128 что то выдает тут ошибку
Вас заинтересует
4 месяца назад
6 месяцев назад
6 месяцев назад
2 года назад
2 года назад
7 лет назад