Программа Pascal. Даны координаты 3 точек x1,x2,x3, y1,y2,y3, которые представляют собой вершины треугольника. Вычислить а) Длины сторон треугольника б)Площадь треугольника
Программа 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 (A
Не нашли ответ?
Похожие вопросы