Question

Решите пожалуйста эту задачу в паскале

Answer 1

Var x1,x2,x3,y1,y2,y3: integer; begin writeln('Введите 3 строки с коородинатами x и y:'); readln(x1,y1); readln(x2,y2); readln(x3,y3); writeln('x1=',x1,' y1=',y1); writeln('x2=',x2,' y2=',y2); writeln('x3=',x3,' y3=',y3); writeln('P=',(sqrt(sqr(x2-x1)+sqr(y2-y1)) + sqrt(sqr(x3-x2)+sqr(y3-y2)) + sqrt(sqr(x3-x1)+sqr(y3-y1))):0:2); writeln('S=',(0.5*ABS((x1-x3)*(y2-y3)-(x2-x3)*(y1-y3))):0:2); end.

Answer 2

program z1;
var x1,x2,x3,y1,y2,y3:integer;
d1,d2,d3,s,p,p1:real;
begin
writeln ('Введите координаты первой вершины (x1 и y1) ');
readln (x1,y1);
writeln ('Введите координаты второй вершины (x2 и y2)');
readln (x2,y2);
writeln ('Введите координаты третей вершины (x3 и y3)');
readln (x3,y3);
d1:=sqrt(sqr(x1-x2)+sqr(y1-y2));
d2:=sqrt(sqr(x2-x3)+sqr(y2-y3));
d3:=sqrt(sqr(x3-x1)+sqr(y3-y1));
p:=d1+d2+d3;
p1:=p*0.5;
s:=sqrt((p1)*(p1-d1)*(p1-d2)*(p1-d3));
if (d1+d2<=d3) or (d1+d3<=d2) or (d2+d3<=d1) then writeln ('Такой треугольник не существует') else
writeln ('Периметр треугольника = ' , p , ' , площадь треугольника равна =  ', s);
end.