Дверь и шкаф, "Горе от ума"(С) Опции

[sheka]

Вопрос: возможно ли пронести шкаф a*b*c через дверь p*q?
Мое решение:

write ( min(a,min(b,c)) < min(p,q))  and  (a+b+c-min(a,min(b,c))-max(a,max(b,c)) < max(p,q) );

Можно как-то оптимизировать? Учитывая, что паскаль я вижу впервые, и что я функции, по идее, знать не должен программа растягивается до некультурной длины.

[sheka]

      alpha := arctan(sqrt(a*a+b*b-q*q)/q);
      if a=b then beta := pi/2
      else beta := arctan(2*a*b/(a*a-b*b));
      d := sqrt(a*a+b*b);
      h := d*sin(alpha+beta);
      if (alpha+beta<pi/2)and(p >= h) then

Добавил такие ограничения, вроде уже при всех входных данных должно работать. С первого раза как-то забыл проверить..
TarasBer, можешь подробнее расписать, не могу уловить ход размышлений
Lapp, вот только добрался, и написал "алгоритм"

Сообщение отредактировано: sheka - 20.09.2010 0:54