pascal_教案.doc

信息学奥林匹克经典算法 河南师大附中 段志起 胡富珍  目 录 第一课递归 3 第二课排列 6 第三课经典排列 9 组合问题（1） 12 第四次课 深度搜索 14 第五次课深搜2 23 第六次课深搜（３） 26 第七次课 深搜（４） 33 第八次课 宽搜（1） 41 第九次课宽搜（2）+双向搜索 47 第十次课启发式搜索A*（宽搜的变式） 54 第十一次课动态规划（解决中等规模的问题） 56 第十二次课动态规划（2） 62 第十三次课动态规划（3） 68 第十四次课动态规划（4） 72 第十五次课动态规划（5） 77 第十六次课动态规划（6） 83 第十七次课动态规划（7） 90 第十八次课动态规划（8） 94 第十八次课数据结构（线性表） 98 第十九次课数据结构（栈） 107 第二十次课数据结构（队列） 109 第二十一次课数据结构（树） 113 第二十二次课数据结构（树2） 118 第二十三次课 数据结构（树3+哈夫曼树） 122 第二十四次课数据结构（树） 126 第二十五次课数据结构（树堆） 130 第二十六次课数据结构(图1) 133 第二十七次课数据结构（图2） 137 第二十八次课数据结构（图3） 144 第二十九次课数据结构（排序） 155 第三十次课 数据结构（离散化） 158 第三十一次课数据结构（哈希表） 161 第三十二课 数据结构（解方程组） 163 第三十三次课 数据结构（并查集） 167 第一课递归 一、pascal特点： 编写程序结构化； 支持递归； 通过使用指针，实现动态存储。 二、函数和过程的作用： 相对独立功能的一段程序，一般用一个子程序（函数和过程）来编写； 结构清楚，便于调试、修改和扩充； 节约程序段和内存； 三、递归 定义：子程序自己调用自己的程序段叫递归； 使用递归的条件 可以把一个问题转化为一个类似自己的新问题，且问题的规模发生规律性的变化。 可以通过转化使问题得到解决。 有一个明确的结束条件。 递归实际上是个逆向思维过程，核心是求递归公式。 四、习题： 用递归求n!. 程序如下： program sample1_1; var n:integer; function fac（n:integer）：real; begin if n=1 then begin fac:=1;exit;end; fac:=n*fac(n-1); end; begin readln(n); writeln(fac(n):3:0); end. 总结： 递归一般用函数或过程来实现，主程序没有办法来实现递归； 递归要有空间想象能力； 需要保护的变量一定要开成局部变量。像function fac( n:integer )中的n.就是局部变量。 2、斐波那契数列 f(n)=f(n-1)+f(n-2) 程序如下： var n:integer; function fac(n:integer):real; begin if (n=1)or (n=0) then fac:=1 else fac:=fac(n-1)+fac(n-2); end; begin readln(n); write(fac(n):3:0); end. 总结： （1）递归每执行一次，就要开辟一次局部变量，保护上一次的内容。递归是逆向出发，先从全局出发，如何将大规模转化为小规模的问题。 （2）fac(4):= fac(3) + fac(2); 重复运算多，速度慢。 3、输入一串字符，以’.’结束，倒序输出。 程序如下： var c:char; procedure print(n: char); var ch:char; begin if n=’.’ then exit; readln(ch); print(ch); writeln(ch); end; begin readln( c); print( c) end. 4、求两个整数的最大公约数（辗转相除法） 程序如下： var m , n : integer; function fac(I, j:integer):integer; begin if j=0 then begin fac:=i;exit;end; fac:=fac(j ,i mod j); end; begin readln(n, m); writeln(fac(n,m)); end. 5、求给出一个多位整数的第K位。 Fac:=fac(x div 10, k-1)(k1) Fac(x, k)=