NOIP初赛——栈摘要.pptVIP

从迷宫问题看深度搜索中栈的应用 Program Const…; Type…; Var Stack:array[1..maxsize] of statetype; Depth:longint; … Begin {主程序} 程序读入数据并初始化； depth:=0; repeat if 可以展开 then begin depth:=depth+1; 在stack[depth]中记录第一种决策； if depth=目标深度 then 输出方案；end else if 可以选择新决策 then 改写 stack[depth]为新决策 else begin {返回－－回溯} 消除当前深度的尝试对其它变量的影响； depth:=depth-1; end; Utnil depth=0; 程序中止；End. 链接存储的栈 自然数拆分 谢谢！ 迷宫问题可以参见例题P5_5，深度搜索可以参考P5_4棋士问题2。 “糟糕的头发”标准程序不是用的栈，看看有没有同学能用栈的思想来解决这条题目。 此时结束符由”＃“改用”@“来表示，这没有什么大区别。 本例中，每个数都是个位数。 通过动画，可以看出： 1．