线性结构线形表栈和队列.pptxVIP

会计学;一、概念;定义： Const max Var q:array[1..max] of datatype; open,closed:integer; ;1）、过程ADD(x)—在队列q的尾端插入元素x procedure ADD( x：qtyper)； begin {后移队尾指针并插入元素x} closed:=closed+1； q[closed]：=x； end；{ADD} ;2）、函数DEL—取出q队列的队首元素 function DEL； begin open:=open+1; del:=q[open]； end；{DEL} ;【竞赛试题】 ①已知队列（13，2，11，34，41，77，5，7，18，26，15），第一个进入队列的元素是13，则第五个出队列的元素是（????? ）。(NOIP9)??? A） 5????????? B） 41???????? C） 77??????? D） 13?????? E） 18 ②设栈S和队列Q的初始状态为空，元素e 1 ，e 2 ，e 3 ，e 4 ，e 5 ，e 6依次通过栈S，一个元素出栈后即进入队列Q，若出队的顺序为e 2 ，e 4 ，e 3 ，e 6 ，e 5 ，e 1 ，则栈S的容量至少应该为（ ）。(NOIP8) A）2 B）3 C）4 D）5;二、队列的应用; opena:=1; openb:=1; closedb:=0; ans:=0; for i:=1 to n-1 do begin sum:=a[opena]+a[opena+1]; f:=1; if a[opena]+b[openb]sum then begin sum:=a[opena]+b[openb]; f:=2; end; if b[openb]+b[openb+1]sum then begin sum:=b[openb]+b[openb+1]; f:=3; end; inc(closedb); b[closedb]:=sum; inc(ans,sum); case f of 1: inc(opena,2); 2: begin inc(opena); inc(openb); end; 3: inc(openb,2); end; end;;将石子从小到大排序放入数组a；;【问题描述：】 在n*n的棋盘上有一匹马在第x行第y列的格子上。棋盘上有些格子上有障碍物，马不能达到有障碍物的格子。已知马在棋盘中的走法按“日“字8个方向可走，如下图所示：;4 2 2 ---- ---- --+- ----; dx:array[1..8] of integer=(-1,-2,-2,-1,1,2,2,1); dy:array[1..8] of integer=(2,1,-1,-2,-2,-1,1,2); var can:array[-1..maxn+2,-1..maxn+2] of boolean; //加边界，方便判断是否出界 dist:array[1..maxn,1..maxn] of integer; //记录最少步数 n,i,j,x0,y0:integer; procedure init; var s:string; begin readln(n,x0,y0); fillchar(can,sizeof(can),false); for i:=1 to n do begin readln(s); for j:=1 to n do can[i,j]:=s[j]=-; end; end;;procedure bfs;//广度优先搜索 var q:array[1..maxn*maxn,1..2] of integer;