Program treugolnik;
var x1,y1,x2,y2,x3,y3,a,b,c,p,S:real;
procedure ploshad(a,b,c,p:real; var S:real);
begin
S:=Sqrt(p/2*(p/2-a)*(p/2-b)*(p/2-c));
end;
begin
writeln ('vvedite koordinaty 3 tochek');
readln(x1,y1,x2,y2,x3,y3);
a:=sqrt(sqr(x2-x1)+sqr(y2-y1));
b:=sqrt(sqr(x3-x2)+sqr(y3-y2));
c:=sqrt(sqr(x3-x1)+sqr(y3-y1));
p:=a+b+c;
writeln('S=',S);
readln
end.
Подпрограмма для вычисления площади треугольника |