【数学题】工具箱

  工具箱 

金字塔中有一个房间名叫“无归之室”。房间地面完全由相同的矩形瓷砖覆盖。房间里布满无数的机关和陷阱，这正是其名字的由来。考古队花了几年时间研究对策，最后他们想出了一个方案。一台遥控的机器人将被送入房间，解除所有机关，然后返回。为了不触动机关，机器人必须走在瓷砖的中心区域上，绝对不能碰到瓷砖的边缘。如果走错一步，机器人会被落下的岩石砸成薄饼。

当考古队正准备行动的时候，他们发现了一件可怕的事情：他们没有考虑到机器人携带的工具箱。由于机器人必须将工具箱放在地面上才能开始解除机关，工具箱不可碰到瓷砖的边缘。现在他们急需你编程判断工具箱可否放下。

 

输入格式

输入文件有多组数据组成。每组数据仅含一行四个正整数A,B,X,Y。A,B为瓷砖的长和宽，X,Y为工具箱底面的长和宽（工具箱为长方体）。最后一组数据A=B=X=Y=0，标志文件结束，不需要处理。

 

输出格式

若工具箱能以某种方式放在地上，则输出”Escape is possible.”，否则输出”Box cannot be dropped.”。

 

输入样例

10 10 8 8

8 8 10 10

0 0 0 0

 

输出样例

Escape is possible.

Box cannot be dropped.

 

数据范围：

100%的数据满足1≤A,B,X,Y≤50000；

===================================

================================

var
  a,b,x,y:longint;
procedure init;
begin
  assign(input,'box.in');
  assign(output,'box.out');
  reset(input); rewrite(output);
end;

procedure terminate;
begin
  close(input); close(output);
  halt;
end;

procedure main;
var
  i:longint;
  flag:boolean;
begin
  readln(a,b,x,y);
  while (a<>0)and(b<>0)and(x<>0)and(y<>0) do
    begin
      flag:=false;
      for i:=1 to 7854 do
        begin
          if ((sin(i/10000)*y+cos(i/10000)*x<b) and (cos(i/10000)*y+sin(i/10000)*x<a))or
             ((sin(i/10000)*y+cos(i/10000)*x<a) and (cos(i/10000)*y+sin(i/10000)*x<b))
           then flag:=true;
        end;
      if flag then writeln('Escape is possible.')
              else writeln('Box cannot be dropped.');
      readln(a,b,x,y);
    end;
end;

begin
  init;
  main;
  terminate;
end.