希望

【题目描述】
网页浏览器者有后退与前进按钮 ，一种实现这两个功能的方式是用栈 ， “前进栈 ”、“后退栈 ”。
这里你需要实现以下几个功能：
BACK: 如果 “后退栈 ”为空则忽略此命令 。否则将当前两面压入 “前进栈 ”， 从“后退栈 ”中取出栈顶页面 ，并设置为当前页面 。
FORWARD: 如果 “前进栈 ”为空则忽略此命令 。否则将当前两面压入 “后 退栈 ”，从“前进栈 ”中取出栈顶页面 ，并设置为当前页面 。
VISIT: 将当前页面压入 “后退栈 ”、并将当前页面 置为指定，并将 “前 进栈 ”置空 。
QUIT: 退出。
假设此浏览器初始页面为 http://www.acm.org/

【输入格式】
输入为一系列命令： BACK, FORWARD, VISIT和 QUIT，页面网址为不含空 ，页面网址为不含空 ，页面网址为不含空 ，页面网址为不含空 ，页面网址为不含空 ，页面网址为不含空 格的字符串
假设任一时刻意两个栈中的元素都不会超过 100。
最后一个命令为 QUIT。

【输出格式】
输对于除 QUIT外所有命令，输出当前页面（网址）
如果该命令被忽略则输出 “Ignored”。

【样例输入】
VISIT http://acm.ashland.edu/
VISIT http://acm.baylor.edu/
BACK
BACK
BACK
FORWARD
VISIT http://www.ibm.com/
BACK
BACK
FORWARD
FORWARD
FORWARD
QUIT

【样例输出】
http://acm.ashland.edu/
http://acm.baylor.edu/
http://www.acm.org/
Ignored
http://acm.ashland.edu/
http://www.ibm.com/
http://acm.ashland.edu/
http://www.acm.org/
http://acm.ashland.edu/
http://www.ibm.com/
Ignored

【样例解释】
无。

【数据范围与规定】
对于 100%的数据， 操作数量不超过 1000，每行字符串长度不超过 500。

【题解】
太简单了，不多说，模拟。

【代码】

var
  s,ss:string;
  cs:string;
  l,r,i:longint;
  ins,del:array [0..1001] of string;
procedure back;
begin
  if l=0 then
    begin
      writeln('Ignored');
      exit;
    end;
  inc(r); ins[r]:=ss;
  ss:=del[l]; dec(l);
  writeln(ss);
end;

procedure forwar;
begin
  if r=0 then
    begin
      writeln('Ignored');
      exit;
    end;
  inc(l); del[l]:=ss;
  ss:=ins[r]; dec(r);
  writeln(ss);
end;

procedure visit;
begin
  r:=0;
  inc(l); del[l]:=ss;
  ss:=copy(s,i+1,length(s)-i);
  writeln(ss);
end;

begin
  l:=0; r:=0;
  ss:='http://www.acm.org/';
  readln(s);
  while s<>'QUIT' do
    begin
      cs:=''; i:=1;
      while (s[i]<>' ') and (i<=length(s)) do
        begin
          cs:=cs+s[i]; inc(i);
        end;
      if cs='BACK' then back;
      if cs='FORWARD' then forwar;
      if cs='VISIT' then visit;
      readln(s);
    end;
end.