program zju1005;
var
a,b,t,n:longint;
begin
repeat
readln(a,b,n);
if b=1 then
  begin
  if n=1 then writeln('fill B');
  writeln('success');
  continue;
  end;
if a=1 then
  begin
  for t:=1 to n do
    begin
    writeln('fill A');
    writeln('pour A B');
    end;
  writeln('success');
  continue;
  end;
t:=0;
while t<>n do
  begin
  writeln('fill A');
  writeln('pour A B');
  inc(t,a);
  if t>=b then
    begin
    dec(t,b);
    writeln('empty B');
    writeln('pour A B');
    end;
  end;
writeln('success');
until eof(input);
end.

• 这个早见过了，根据具体情况就能推出来，其实就是有一个固定方向的搜索 (652) sunmoonstar_love 2005-08-07 22:13:18
  • 把每个状态画在直角坐标系上，然后走一走就看出规律了 (0) sunmoonstar_love 2005-08-07 22:14:12
  • 我还认真写了一个BFS…… (0) frkstyc 2005-08-07 22:14:23
    • 都是搜，楼主贴的搜法比较简单，我开始写的DFS，挂了 (0) sunmoonstar_love 2005-08-07 22:16:21
• Re:我有一个极变态的方法，大家看看，好像是数论推的，因为a,b互质 (652) xiaol 2005-10-22 19:13:15
• Re:pascal中inc(t,a) 和 dec(t,b) 是t=t+a,t=t-b的意思吗? (652) xiaol 2005-10-22 19:16:12
• Re:pascal中inc(t,a) 和 dec(t,b) 是t=t+a,t=t-b的意思吗? (652) xiaol 2005-10-22 19:16:24
• Re:我有一个极变态的方法，大家看看，好像是数论推的，因为a,b互质 (66) 006794 2006-03-02 12:20:29