六年级上信息技术课件-第13课 递归调用_辽师大版（三起）.ppt

递归调用;使用递归求解问题，通常可以将一个比较大的问题层层转化为一个与原问题相类似的、规模较小的问题进行求解，最终达到对原问题的求解。 ;用递归计算n！ n！可以由下列公式表示： n！;Program p7_20(input,output); 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.; 能用递归算法求解的问题一般应该满足如下要求： 符合递归的描述：需要解决的问题可以化为子问题求解，而子问题求解的方法与原问题相同，只是数量增大或减少； 递归调用的次数是有限的； 必须有递归结束的条件。;用递归方法求两个数m和n 的最大公约数;输入一串以‘！’结束的字符，按逆序输出;Program p7_23(input,output); Var x:integer; Function up(var n:integer):integer; Forward; Function down(var n:integer):integer; begin n:=n div 2; writeln(n,’in down’); if n<>1 then n:=up(n); End; Function up; Begin while(n mod 2)<>0 do begin n:=n*3+1; Writeln(n,’in up’); End; N:=down(n); End; Begin Write(‘input x:’); Readln(x); X:=up(x); Writeln(‘ok’) End.