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