Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Программа Pascal.
Даны координаты 3 точек x1,x2,x3, y1,y2,y3, которые представляют собой вершины
треугольника.
Вычислить
а) Длины сторон треугольника
б)Площадь треугольника

Ответ оставил Гость

Var
 X1,Y1,X2,Y2,X3,Y3:real;
 A,B,C:real;

Begin
Write(X1 = );ReadLn(X1);
Write(Y1 = );ReadLn(Y1);
Write(X2 = );ReadLn(X2);
Write(Y2 = );ReadLn(Y2);
Write(X3 = );ReadLn(X3);
Write(Y3 = );ReadLn(Y3);
A:=sqrt(sqr(X2-X1) + sqr(Y2-Y1) );
B:=sqrt(sqr(X2-X3) + sqr(Y2-Y3) );
C:=sqrt(sqr(X3-X1) + sqr(Y3-Y1) );
if (ABegin
WriteLn(Длины сторон равны:);
WriteLn(A = ,A);
WriteLn(B = ,B);
WriteLn(C = ,C);
X1:=(A+B+C)/2;
WriteLn(Площадь треугольника равна ,sqrt(X1*(X1-A)*(X1-B)*(X1-C)))
End
else WriteLn(Треугольник не существует)
End.