заданы длины катетов прямоугольного треугольника. составьте программу,с помощью которой определите радиус вписанной и радиус описанной окружности.
Ответы
Ответ дал:
0
Формулы:
с=кв.корень из (а^2+b^2)
r=(a+b-c)/2
R=c/2
var a,b,c,r1,r2: real;
begin
write ('введите катет а: ');
readln (a);
write ('введите катет b: ');
readln (b);
c:=sqrt(a*a+b*b);
r1:=(a+b-c)/2; //радиус вписанной окружности
r2:=c/2; //радиус описанной окружности
writeln;
writeln ('r = ',r1:6:2);
writeln ('R = ',r2:6:2);
end.
-------------------------------------------------------------------
Пример:
введите катет а: 4
введите катет b: 6
r = 1.39
R = 3.61
***значения округлены до 2 знаков после запятой
с=кв.корень из (а^2+b^2)
r=(a+b-c)/2
R=c/2
var a,b,c,r1,r2: real;
begin
write ('введите катет а: ');
readln (a);
write ('введите катет b: ');
readln (b);
c:=sqrt(a*a+b*b);
r1:=(a+b-c)/2; //радиус вписанной окружности
r2:=c/2; //радиус описанной окружности
writeln;
writeln ('r = ',r1:6:2);
writeln ('R = ',r2:6:2);
end.
-------------------------------------------------------------------
Пример:
введите катет а: 4
введите катет b: 6
r = 1.39
R = 3.61
***значения округлены до 2 знаков после запятой
Вас заинтересует
1 год назад
1 год назад
8 лет назад
8 лет назад
9 лет назад
9 лет назад