Камрад
|
Допер сам, но всеравно болбшое спасибо!!
program otstoi3;
uses CRT;
var xa, ya, xb, yb, xc, yc, a, b, c, S, P: real;
begin
repeat
clrscr;
writeln ('Введите координаты точки A:');
write ('x= '); readln (xa);
write ('y= '); readln (ya);
writeln ('Введите координаты точки B:');
write ('x= '); readln (xb);
write ('y= '); readln (yb);
writeln ('Введите координаты точки С:');
write ('x= '); readln (xc);
write ('y= '); readln (yc);
a:=sqrt(sqr(xb-xa)+sqr(yb+ya));
b:=sqrt(sqr(xc-xb)+sqr(yc-yb));
c:=sqrt(sqr(xc-xa)+sqr(yc-ya));
P:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
write ('P= ', P:2:0);
write ('S= ', S:2:0);
Readkey
end.
|