zhuxy 2010-07-26 03:31:00
点我顶贴
收藏
删除
var a:array[1..20000] of string;
i:longint;
s:string;
begin
readln(s);
for i:=1 to 20000 do a[i]:='';
i:=2;
a[1]:='http://www.acm.org/';
while s<>'QUIT' do
begin
if copy(s,1,4)='BACK' then
begin
if i>2 then
begin dec(i);writeln(a[i-1]);end
else writeln('Ignored');
end;
if copy(s,1,5)='VISIT' then
begin
a[i]:=copy(s,7,length(s)-7+1);
writeln(a[i]);
INC(I);
end;
if copy(s,1,7)='FORWARD' then
begin
if a[i]<>'' then
begin
writeln(a[i]);
inc(i);
end
else writeln('Ignored');
end;
readln(s);
end;
end.