Найти радиус вписанной окружности и радиус описанной окружности

@maksibon · Регистрация: 17.01.2013

Даны действительные положительные числа a,b,c, которые являются длинами сторон треугольника. Напишите программу, позволяющую найти радиус вписанной окружности и радиус описанной окружности.

Kodzaev · 21.01.2013, 20:36

Pascal

Var
  a,b,c: Integer;
  p: Real;
BEGIN
Writeln('Введите длины сторон: ');
Readln(a,b,c);
If a<b+c Then
If b<a+c Then
If c<a+b Then
begin
  p:=(a+b+c)/2;
  Writeln('Радиус вписанной окр-ти = ',Sqrt(((p-a)*(p-b)*(p-c))/p):2:2);
  Writeln('Радиус описанной окр-ти= ',(a*b*c)/(4*Sqrt((p*(p-a)*(p-b)*(p-c)))):2:2);
end
Else Writeln('Треугольник не существует');
Readln
END.

@maksibon 0 / 0 / 0 Регистрация: 17.01.2013 Сообщений: 53
		1
	Найти радиус вписанной окружности и радиус описанной окружности 21.01.2013, 19:45. Просмотров 5943. Ответов 1 Метки нет (Все метки) Даны действительные положительные числа a,b,c, которые являются длинами сторон треугольника. Напишите программу, позволяющую найти радиус вписанной окружности и радиус описанной окружности. 0

Опции темы

Найти радиус вписанной окружности и радиус описанной окружности

Решение