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

Вычислите площадь кольца ширина которого одинакова h, а отношение радиуса большей окружности к радиусу наименьшей окружности равно D.
Пример
Program a1;
var a, b, c: integer;
Begin
Readln (a,b,c);
If (a+bgt;c) and (a+cgt;b) and (b+cgt;a) then
Writeln ( "Треугольник выстроить можно")
Else writeln ("треугольник выстроить нельзя");
End.

Задать свой вопрос
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) =gt;  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

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт