讨论 / 哪有错啊?一个都过不去。。。
hzq 2014-07-18 23:14:43
点我顶贴 收藏 删除
program web;

var

i:longint;

ord:string;

url:array[1..10000] of string;

begin

{

assign(input,'web.in');reset(input);

assign(output,'web.out');rewrite(output);//开文件

}

url[1]:='http://www.acm.org/';//首页URL

i:=1;//下标初值

readln(ord);//读入新命令

while ord[1]<>'Q' do//当命令不为’QUIT'时,一直循环

begin

if ord[1]='V'//如果命令为‘VISIT'

then

begin

i:=i+1;//加入新网页

delete(ord,1,6);//删除'VISIT'和空格,保留网页URL

writeln(ord);//读出网页URL

url[i]:=copy(ord,1,length(ord));//记录网页URL

end;

if ord[1]='B'//如果命令是'BACK'

then//判断当前网页,若是首页,输出'Ignored'

if i=1 then writeln('Ignored')

else writeln(url[i-1]);//否则输出后一个网页URL

if ord='F'//如果命令是'FORWARD'

then //判断当前网页是否是最前,如是最前,输出'Ignored'

if length(url[i+1])=0

then writeln('Ignored')

else writeln(url[i+1]);//否则输出前一个网页URL

readln(ord);//读入新命令

end;

{

close(input);

close(output);//关文件

}

end.

#1 qzxhzx-zzk@2015-03-05 05:35:00
回复 删除
额。在这个网站中不用文件
查看更多回复
提交回复