pascal_第10讲_栈及应用要素.ppt

对于一个栈，给定一个输入项目a,b,c。如果输入的顺序规定为abc，试写出全部可能的输出序列就是a先入栈，b再入栈，c最后入栈 Abc的全排列应当有6个，其中cab不合要求 Cba Bca Bac Acb Abc BEGIN {MAIN} top := 0; {栈顶初始化} readln(n); while n 0 do {分离数字并将其入栈} begin v := n mod 10; {分离出n的个位数字} Push(s, top, v); {个位数字入栈} n := n div 10; {去除n的个位数字} end; {while} while not StackEmpty(s, top) do {输出数字并出栈} begin write(GetTop(s, top) : 2); Pop(s, top); end; {while} END. {判断字符串中的括号是否匹配} （（（{[]}））） （（[（] ） ）） {判断字符串中的括号是否匹配} PROGRAM TheBracketMatch(INPUT, OUTPUT); CONST MAXCAPACITY = 255; {栈的最大容量} BOTTOM = 0