讲 枚举类型和子界类ppt课件.pptVIP

递归调用： 1．递归的定义： Pascal语言中，如果在一个函数、过程等的定义或说明内部又直接或间接地出现有对自身的引用，则称它们是递归的或者是递归定义的。 例如：在数学上，所有偶数的集合可递归地定义为： 0是一个偶数； 一个偶数和2的和是一个偶数。 可见，仅需两句话就能定义一个由无穷多个元素组成的集合。 2．递归的实现： 通过函数或过程的调用来实现。 函数或过程直接调用其自身，称为直接递归；函数或过程间接调用其自身，称为间接递归。 3．几个例题： 【例15】：用递归计算n! n!可以由下列公式表示： program ex15; var n:integer; s:integer; function fac(a:integer):integer; begin if a=0 then fac:=1 else fac:=a*fac(a-1); end; begin readln(n); s:=fac(n); writeln(n,‘!=’,s) end. 【例16】：用递归方法求两个数m和n的最大公约数（m0,n0）。 找出递归公式： program ex16; var m,n,g:integer; function gcd(m,n:integer):integer; var r:integer; begin r:=m mod