Треугольное окно со сторонами A, B, C. Проверить, пройдёт ли в окно коробка цилиндрической формы (D и H) (паскаль)

[ihimaru]

Здравствуйте. Помогите пожалуйста сделать задачу на паскале вот собственно условие :

Окно имеет форму треугольника со сторонами A, B, C. Желательно сквозь это
окно протащить цилиндрическую коробку с диаметром основания D и высо-
той H. Требуется вывести на экран сообщения: YES - если коробка пройдет,
NO - в противном случае. Величины A, B, C, D, H ввести с клавиатуры.

[Stilet]

А ты можешь описать словами алгоритм? А форумчане уже смогут его в ЯВУ перевести

[JUDAS]

Источник http://ru.wikipedia.org/wiki/Вписанная_окружность
Радиус вписанной в треугольник окружности равен:
r = sqrt((p-a)*(p-b)*(p-c)/p)
Высота Н дана для того чтобы запутать.
Решаем:

program Cylinder;
var p, r : double;
     a,b,c,d,h : double;
begin
  writeln('введите сторону А ');read(A);
  writeln('введите сторону B ');read(B);
  writeln('введите сторону C ');read(C);
  writeln('введите диаметр цилиндра ');read(d);
  writeln('введите высоту цилиндра ');read(h);
  p:= a+b+c;
  r := sqrt((p-a)*(p-b)*(p-c)/p);
  if d/2<=r then
   writeln('цылиндэр проходит ') else
   writeln('цылиндэр упирается в раму ');
end;

[NetSpace]

тут надо использовать теорему о вписанной окружности, цилиндр можно ведь и не боком пропихивать, а ещё и торцом.
тогда надо, чтоб его диаметр был меньше диаметра вписанной в треугольник окружности
A/sin(alpha)=B/sin(betta)=C/sin(gamma)=2*R.
а вот ваша формула больше на форулу Герона похожа, по которой площадь треугольника находят...

 r := sqrt((p-a)*(p-b)*(p-c)/p);

а ещё его можно пропихивать положа на бок или в наклонку. так что там как минимум 4 варианта получается надо проверять
А тут, получается, надо с геометрией дружить...

[JUDAS]

Цитирую раздел википедии

В треугольнике

Свойства вписанной окружности:
.....
Радиус вписанной в треугольник окружности равен

цилиндр можно ведь и не боком пропихивать

можно и боком )

[ihimaru]

=.= что то я совсем запутался...рассмотрю тогда просто вариант когда пихают торцом. Спасибо за помощь!