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

[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]

Готово. Чуть позже постараюсь выложить объяснения.

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,p,q:real;
begin
  a:=strtofloat(edit1.text);
  b:=strtofloat(edit2.Text);
  c:=strtofloat(edit3.Text);
  if a<b then
    begin
      p:=a;
      if c<b then q:=c
      else q:=b;
    end
  else
    begin
      p:=b;
      if c<a then q:=c
      else q:=a;
    end;
  if p>q then begin a:=p; b:=q; end
  else begin a:=q; b:=p; end;

  p:=strtofloat(edit4.Text);
  q:=strtofloat(edit5.Text);
  if p>q then begin c:=p; p:=q; q:=c; end;

  if a>q then
      if p>= sqrt(a*a+b*b)*sin(arctan(2*a*b/(a*a-b*b))+arctan(sqrt(a*a+b*b-q*q)/q)) then
        button1.Caption:='Can'
      else button1.Caption:='Can''t'
  else
    if (b<=p) then button1.Caption:='Can'
    else button1.Caption:='Can''t';
end;

Сообщение отредактировано: sheka - 14.09.2010 1:55