|
|
233333333333333
原来queue out 和 queue empty后不是结束程序,而是忽略这一行继续往下读取。 被坑到了 ============= 难道不应该溢出报错结束运行吗,怎么想都没问题 |
|
水啊!
水啊! 被格式坑了几次。。。 基本的队列操作。呵呵~
题目 72 队列基本操作
2015-05-11 13:44:42
|
|
回复 @EnAsn :
为什么电脑上运行没问题? 评测机上过不了第一个?
|
|
喜闻乐见,queue打错好多次....
|
|
题目 72 队列基本操作
2014-04-08 17:33:30
|
|
题目 72 队列基本操作
2014-04-08 17:33:05
|
|
第一次没过,因为把某个函数名称打成input了。。。
|
|
忘了什么时候的题了==
|
|
program duilie;
var a:array[1..2000] of integer; i,n,m,k,j,v:integer; begin assign(input,'queue.in'); reset(input); assign(output,'queue.out'); rewrite(output); readln(k); n:=0; m:=1; for i:=1 to k do begin read(j); case j of 1: begin n:=0; m:=1; end; 2: begin n:=n+1; read(a[n]); if n-m=10 then begin n:=n-1; writeln('queue out'); end; end; 3: begin m:=m+1; if m>n+1 then begin m:=m-1; writeln('queue empty'); end; end; 4: begin writeln(n-m+1); for v:=m to n do write(a[v],' '); end; end; end; close(input); close(output); end. |
|
拖延症……拖了一年才把这题改对……
|
|
自己测,对了 上去测,错了
题目 72 队列基本操作
2008-07-22 15:37:52
|
|
很基础的题,不要想的太复杂了
|