一个很经典的逻辑问题，高手进入啊！！！！！！！

Question

两条蛇，首尾相互咬着，双方都试图吞掉对方，请问最后的情况会是怎样？

Answer 1

TSnake=Record
  Length:Double;
  ...            //若干属性，简单点，忽略力量和胃的容量,吞噬速度，头的大小等属性，这里只考虑长度
end;Function SnakeEatSnake:string;
var 
  Snake1,Snake2:TSnake;
begin
  if Snake1.length>Snake2.length then 
     result:='剩下第一条蛇的头+身体的%'+Floattostr((Snake1.length-Snake2.length)/Snake1.length)
  else if Snake1.length<Snake2.length then
     result:='剩下第二条蛇的头+身体的%'+Floattostr((Snake2.length-Snake1.length)/Snake2.length)    
  else  
      result:='剩下两个头' //如果头有大小，看谁的头大……
end;
仔细想想。还真的挺复杂的:(