profile
Опубликовано 5 лет назад по предмету Информатика от vitokb

написать программу на паскале

Треугольник задан координатами (x1, y1), (x2, y2), (x3, y3) своих вершин. Вычислить радиус окружности, вписанной в треугольник

  1. Ответ
    Ответ дан BlackW1nd
    Var x1,y1,x2,y2,x3,y3,a,b,c,p,r:real;
    Begin
     write('A='); readln(x1,y1);
     write('B='); readln(x2,y2);
     write('C='); readln(x3,y3);
     a:=sqrt(sqr(x1-x2)+sqr(y1-y2));
     b:=sqrt(sqr(x2-x3)+sqr(y2-y3));
     c:=sqrt(sqr(x1-x3)+sqr(y1-y3));
     p:=(a+b+c)/2;
     r:=sqrt(((p-a)*(p-b)*(p-c))/p);
     writeln('r=',r:0:2);
    End.
    1. Ответ
      Ответ дан vitokb
      спасибо чувак, люблю тебя
Самые новые вопросы