Составить алгоритм и написать решение задачи ** Паскале: Три точки заданы своими...

Question

Составить алгоритм и написать решение задачи на Паскале: Три точки заданы своими координатами. Найти длины сторон треугольника и его площадь.

Answer 1

Program n1;
var: x1, y1, x2, y2, x3, y3, S, p, a, b, c: real;
begin
readln(x1,x2,x3,y1,y2,y3);
a=sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));
b=sqrt((x2-x3)*(x2-x3)+(y2-y3)*(y2-y3));
c=sqrt((x3-x1)*(x3-x1)+(y3-y1)*(y3-y1));
p=0.5*(a+b+c);
S=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(S);
writeln(a,' ',b,' ',c);
end.