составьте программу для вычисления площади четырехугольника с координатами вершин (x1,y1) , (x2,y2), (x3,y3), (x4,y4) площадь четырехугольника вычислите как сумму площадей двух треугольников.
Pascal ABC
Ответы
Ответ дал:
4
var x1, y1, x2, y2, x3, y3, x4, y4: real;
begin
read(x1, y1, x2, y2, x3, y3, x4, y4);
write(abs((x1 - x2) * (y3 - y2) - (y1 - y2) * (x3 - x2)))
end.
begin
read(x1, y1, x2, y2, x3, y3, x4, y4);
write(abs((x1 - x2) * (y3 - y2) - (y1 - y2) * (x3 - x2)))
end.
Вас заинтересует
6 месяцев назад
6 месяцев назад
1 год назад
1 год назад
6 лет назад
6 лет назад
7 лет назад
var
x1, y1, x2, y2, x3, y3, x4, y4: real;
function Square_Of_Triangle(ax, ay, bx, by, cx, cy: real): real := abs((ax - bx) * (cy - by) - (ay - by) * (cx - bx)) / 2;
begin
read(x1, y1, x2, y2, x3, y3, x4, y4);
write(Square_Of_Triangle(x1, y1, x2, y2, x3, y3) + Square_Of_Triangle(x2, y2, x3, y3, x4, y4));
end.