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

287

407

Посмотреть ответы 2

Ответы на вопрос:

lorencz2002

Информатика

4,6(10 оценок)

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< b+c)and(b< a+c)and(c< a+b) then begin writeln('длины сторон равны: '); writeln('a = ',a); writeln('b = ',b); writeln('c = ',c); x1: =(a+b+c)/2; writeln('площадь треугольника равна ',sqrt(x1*(x1-a)*(x1-b)*(x1- end else writeln('треугольник не существует') end.