Вычислите площадь кольца ширина которого равна h, а отношение радиуса большей окружности к радиусу меньшей окружности равно D.

Пример

Program a1;

var a, b, c: integer;

Begin

Readln (a, b, c) ;

If (a+b>c) and (a+c>b) and (b+c>a) then

Writeln ("Треугольник построить можно")

Else writeln ("треугольник построить нельзя") ;

End.

Question

Информатика

Романка

21 июля, 08:09

Вычислите площадь кольца ширина которого равна h, а отношение радиуса большей окружности к радиусу меньшей окружности равно D.

Пример

Program a1;

var a, b, c: integer;

Begin

Readln (a, b, c) ;

If (a+b>c) and (a+c>b) and (b+c>a) then

Writeln ("Треугольник построить можно")

Else writeln ("треугольник построить нельзя") ;

End.

+1

Ответы (1)

Знаете ответ?

Евлампий · Answer 1

Var h, D, s: real;

begin

write ('ширина кольца h: ') ; readln (h) ;

write ('отношение радиусов D: ') ; readln (D) ;

s:=pi*sqr (h) * (D+1) / (D-1) ;

writeln ('площадь кольца: ', s:7:3) ;

end.

/ / h = R - r R/r = D

/ / h = r * (D-1) = > r = h / (D-1)

/ / R = (D*h) / (D-1)

/ / s = pi * (sqr (R) - sqr (r)) = pi*sqr (h) * ((sqr (D) - 1) / (sqr (D-1))

/ / s = pi*sqr (h) * (D+1) / (D-1)

ширина кольца h: 2

отношение радиусов D: 1.5

площадь кольца: 62.832