Напишите функцию, вычисляющую площадь треугольника по координатам его вершин. Напишите программу вычисления площади четырёхугольника по координатам его вершин с помощью этой функции.
Начертим пример четырёхугольника и проведём диагональ AC, делящую его на два треугольника.
Если вершины треугольника
var x , y , x , y , x , y , x , y , s: real;
function triangle(x , y , x , y , x , y : real): real;
begin
triangle := abs((x - x ) * (y - y ) -
(x - x ) * (y - y )) /
end;
begin
readln(x , y , x , y , x , y , x , y );
s := triangle(x , y , x , y , x , y ) +
triangle(x , y , x , y , x , y );
writeln(s: : )
end.
Для проверки возьмём прямоугольник
Программа приведена в решении; для вершин (
