NOIP初赛资料——栈.pptVIP

第五讲 栈;一、栈的概念和特性;栈的主要运算：;二、栈的存储结构;三、对栈的几种运算的实现方法：;（2）测试栈 测试栈顶指针的值，若top=0，则栈空；若top=n，则栈满。 （3）读栈 若top=0，则栈空，无栈顶元素可读，出错；若top0，则回送栈顶元素的值stack[top]。;（4）进栈（push） 将栈顶指针加1后，再把新元素送到栈顶。假设新元素x为整型，栈的最大深度为n，x和n设置为值型参。而栈和栈顶指针要设置成变量型参。 procedure push(var stack:arraytype; var top:integer;n:integer;x:integer); begin if top=n then begin writeln(‘Stack full!’); halt end else begin top:=top+1; stack[top]:= x end end;;（5） 退栈(pop) 取得栈顶元素的值后，再把栈顶指针top减1。注意都用变量型参。 procedure pop(var stack:arraytype;var top:integer;var x:integer); begin if top=0 then begin writeln(‘Stack empty!’); halt end else begin x:=stack[top]; top:=top-1 end end;;栈的记录方式实现方法;procedure push(var s:stack;x:integer); begin if s.top=n then begin writeln(‘Stack full!’); halt end else begin s.top:=s.top+1; s.data[s.top]:= x end end; procedure pop(var s:stack;var x:integer); begin if s.top=0 then begin writeln(‘Stack empty!’); halt end else begin x:=s.data[s.top]; s.top:=s.top-1 end end;;出栈有时也可用函数实现，如： function pop(var s:stack):integer; begin if s.top=0 then begin writeln(‘Stack empty!’); halt end else begin pop:=s.data[s.top]; s.top:=s.top-1 end end;;练习;四、栈的应用;( 5-4-1.swf);算法 5. 1 Program p5_1(input,output); type stack=record data：array[1..100] of integer; top：0..100; end; var n:integer; e:integer; s:stack;　{对于输入的任意一个非负十进制整数 打印输出与其等值的八进制数} begin S.top=0; 　　{构造空栈} Readln(n);　　{输入一个十进制数} 　　 while(n0) begin 　　 Push(s,n mod 8);　{余数入栈} 　　　 n = n div 8;　　　　{非零商继续运算} 　 end 　 while (s.top0)) begin {和求余所得相逆的顺序输出八进制的各位数} 　　　 Pop(S,e); 　　　 print e; end end.;例5. 2：程序员输入问题 程序员输入程序，出现差错时可以采取以下的补救措施：敲错了一个键时，可以补敲一个退格符“＃”，以表示前一个字符无效；发现当前一行有错，可以敲入一个退行符“＠”，以表示“＠”与前一个换行符之间的字符全部无效。 如：在终端上输