poj 1028

【题目描述】
网页浏览器者有后退与前进按钮 ，一种实现这两个功能的方式是用栈 ， “前进栈 ”、“后退栈 ”。
这里你需要实现以下几个功能：
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/acmicpc/
BACK
BACK
BACK
FORWARD
VISIT http://www.ibm.com/
BACK
BACK
FORWARD
FORWARD
FORWARD
QUIT

输出：
http://acm.ashland.edu/
http://acm.baylor.edu/acmicpc/
http://acm.ashland.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。

分析：
直接模拟即可。

代码：

const
maxn=100000;
var
n,p:array [1..maxn] of ansistring;
s,t,s1:ansistring;
topn,topp,h:longint;
begin
assign(input,’kami.in’);
assign(output,’kami.out’);
reset(input);
rewrite(output);
readln(s);
t:=’http://www.acm.org/‘;
h:=1;
while s<>’QUIT’ do
begin
if s[1]=’V’ then
begin
s1:=copy(s,7,length(s));
h:=topn+1;
inc(topp);
p[topp]:=t;
s:=s1;
writeln(s);
t:=s;
end
else
begin
if s[1]=’B’ then
begin
if topp=0 then writeln(‘Ignored’)
else
begin
inc(topn);
n[topn]:=t;
s:=p[topp];
dec(topp);
writeln(s);
t:=s;
end;
end
else
begin
if topn < <script type="math/tex" id="MathJax-Element-3"><</script>h then writeln(‘Ignored’)
else
begin
inc(topp);
p[topp]:=t;
s:=n[topn];
dec(topn);
writeln(s);
t:=s;
end;
end;
end;
readln(s);
end;
close(input);
close(output);
end.