pascal题

Web浏览(web.pas)
实现浏览器的页面前后访问机制。有四种命令：
1、 BACK；
2、 FORWARD；
3、 VISIT：访问新的页面；
4、 QUIT：退出浏览器。
请参考实际的浏览器按钮的功能。
假设浏览器打开时，显示的页面是：http://www.acm.org/。

输入：web.in
一系列命令：以BACK、FORWARD、VISIT或QUIT开头。如果是VISIT，后面要跟URL，长度不超过70，且不含空格。
最后总是以QUIT结尾。

输出：web.out
对于每一个命令（除了QUIT），输出浏览页面的URL，如果命令被忽略，输出：Ignored。

样例：
输入：
VISIT http://acm.ashland.edu/
VISIT http://asm.baylor.edu/acmipc/
BACK
BACK
BACK
FORWARD
VISIT http://www.ibm.com/
BACK
BACK
FORWARD
FORWARD
FORWARD
QUIT
输出：
http://www.acm.org/';
While True Do Begin
Read(c);
Case c Of
'V': Begin
For i:=1 to 5 Do Read(c1);
Readln(s);
curr:=curr+1;
maxcur:=curr;
hos[curr]:=s;
Writeln(s);
End;
'B': Begin
Readln(s);
If curr>1 Then Begin
Dec(curr);
Writeln(hos[curr])
End Else Begin
Writeln('Ignored');
End;
End;
'F&

pascal题 PASCAL题 一道PASCAL语言题！ pascal题 迷宫 Pascal简单题，求解 pascal题 急!! 一道pascal的题 PASCAL编程二题 PASCAL编程一题 pascal编程一题