Пожалуйста очень нужно, составьте программу ** языке паскаль для нахождения радиуса...

Question

Пожалуйста очень нужно, составьте программу на языке паскаль для нахождения радиуса описанной окружности вокруг треугольника, если известны стороны треугольника.

Answer 1

Var
   a,b,c,p:real;
Begin
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
Write('c = ');ReadLn(c);
if (a   Begin
   p:=(a+b+c)/2;
   WriteLn('R = ',a*b*c/Sqrt(p*(p-a)*(p-b)*(p-c)));
   End
else WriteLn('Треугольник не существует')
End.

Comments

Формула для радиуса описанной окружности не правильная. Возьмем равносторонний треугольник с длиной стороны = 5. Площадь s = (5*5*sin60)/2 = 10.82, R = 5*5*5/10.82 = 125/10.82 = 11.55 - получили радиус описанной окружности БОЛЬШЕ длины стороны треугольника.

---

Вы правы, надо было на четыре площади разделить...