Даны координаты трех точек на плоскости: a(-12,57; -10,23),b(3,3; 12,47),c(15,67; -10,32).найдите с точностью до одного знака после запятой площадь треугольника авс. в ответе укажите только число,отделяя дробную часть от целой запятой без пробелов,например,13,2
var
x1,x2,x3,y1,y2,y3,s:real;
begin
Writeln('Введите x1,y1,x2,y2,x3,y3');
Readln(x1,y1,x2,y2,x3,y3);
s:=abs((x1-x3)*(y2-y3)-(x2-x3)*(y1-y3))/2;
Writeln('Площадь треугольника равна ',s:0:1)
end.
Результат решения:
Введите x1,y1,x2,y2,x3,y3
-12.57 -10.23 3.3 12.47 15.67 -10.32
Площадь треугольника равна 321.2