var
s:array[0..100000] of string；
s1:string；
k:longint；
begin
s[1]:=’http://www.acm.org/’；k:=1；
while not eof do
begin
readln(s1)；
case s1[1] of
’V’:begin
inc(k)；
s[k]:=copy(s1,7,length(s)-6)；
writeln(s[k])；
end；
’B’:begin
if k=1 then writeln(’Ignored’)
else begin writeln(s[k-1])； dec(k)；end；
end；
’F’:begin
if s[k+1]=’’ then write(’Ignord’)；
else begin inc(k)；writeln(s[k])；end；
end；
’Q’:begin
halt；
end；
end；
end；
end.
program web；
var
f,ff:longint；
x:array[0..10000]of string[100]；
s,s1:string[100]；
begin
x[0]:=’http://www.acm.org/’；
f:=0；
readln(s)；
while s<>’QUIT’ do
begin
{ case }
case s[1] of
’V’:begin
s1:=copy(s,pos(’ ’,s)+1,length(s))；
ff:=f+1；
inc(f)；
x[f]:=s1；
writeln(x[f])；
end；
’B’:begin
dec(f)；
if f>=0 then begin writeln(x[f])； end else begin writeln(’Ignored’)； inc(f)； end；
end；
’F’:begin
inc(f)；
if f<=ff then begin writeln(x[f])； end else begin writeln(’Ignored’)； dec(f)； end；
end；
end；
readln(s)；
end；
end.
贴个代码:
var a:array[1..1000] of string；
ch,x:char；i,l,k:longint；
begin
k:=1；
l:=0；
a[1]:=’http://www.acm.org/’；
repeat
read(ch)；
if ch=’V’ then begin
for i:=1 to 5 do read(x)；
inc(k)；
read(a[k])；
l:=1；
writeln(a[k])；
end；
if ch=’B’ then
if k-1>0 then begin k:=k-1；l:=0；writeln(a[k])；end
else writeln(’Ignored’)；
if ch=’F’ then
if (a[k+1]<>’’)and(l=0) then begin inc(k)；writeln(a[k])；end
else writeln(’Ignored’)；
readln；
until ch=’Q’；
end.
http://www.rqnoj.cn/Discuss_Show.asp?DID=6451
看2L