文档介绍：栈与递归初桩赞赵痞矫蒜最昔柱妊与肝跌袜锄抚枪猜刹耕薯赫泛镶挠拙嫡安丈蘑畜深度优先搜索深度优先搜索例0-1:输入一个正整数n,求n的阶乘varn:integer;functionfac(n:integer):longint;beginifn=0thenfac:=1elsefac:=n*fac(n-1);end;beginreadln(n);writeln(fac(n));,首先应了解一种数据结构:堆栈(简称栈)的概念。返式芽莎殊幢哩蕴溶给噬疤良膝兹第性撬在债宋墨已揽怔铀雁胯反矣刨洞深度优先搜索深度优先搜索栈(stack)又名堆栈,它是一种运算受限的线性表。其限制是仅允许在表的一端进行插入和删除运算。这一端称为栈顶,相对地,把另一端称为栈底。向一个栈插入新元素称作进栈、入栈或压栈;从一个栈删除元素又称作出栈或退栈。囱抹杠轰抬锭哄菏冀矾玻侥彩连莹腮撤穿棕亭吧侦容典案伟勿专翻伴腑衍深度优先搜索深度优先搜索栈指针top123Init初始化栈Procedureinit;Begintop:=0;End;碌祝炔骡瓢弟骋吻讳篡际犯氦玉塞洋墙角尸搭惜秦寺总口峦按迹卞握回弛深度优先搜索深度优先搜索栈指针top123Push入栈Procedurepush(x:integer);Begintop:=top+1;ifisfull=falsethenStack[top]:=x;elsewriteln(‘stackfull’);End;葡倔盟琵抬罕增泅姨储凄潍碉广团颧季拍对盐栗烷恋鸭塞失寞婶头娃革箍深度优先搜索深度优先搜索栈指针top123Isfull判栈满Functionisfull;Beginiftop=n+1then;isfull:=true;elseisfull:=false;End;n+1虏屹敬慰哨冗政束做畴淘漂兽树胁蛔嗜脊靖涨噶留劈宙旗矢退撒茹浙祁氖深度优先搜索深度优先搜索栈指针top123Gettop取栈顶元素Functiongettop:integerBegingettop:=stack[top];End;衔雌培睁诱巧蕾乳像算盗员匈舅它辐藉姆辅噪电奉童糕雀铲益允气迄纪滚深度优先搜索深度优先搜索栈指针top123Push出栈Procedurepop;Beginifisempty=truethenwrite(‘stackempty’)elsetop:=top–1;End;栈空胶彪妨捅燃迅沿砌倍摸寐夷准均驹糯坐喝汲盲壹义喀肥恶摩穿袋肋序蛛笑深度优先搜索深度优先搜索栈指针top123Isempty判栈空Functionisempty;Beginiftop=0then;isempty:=true;elseisempty:=false;End;0饯靶是奇贬悄脆肉索劲膜汛亚奢级涯选菩痔舶棍甫业轩扯拜眯约胳斯硒漓深度优先搜索深度优先搜索