Pascal讲授递归问题多种解法.pptVIP

递归问题的多种解法

数的计数我们要求找出具有下列性质数的个数(包含输入的自然数n):先输入一个自然数n(n≤1000)，然后对此自然数按照如下方法进行处理：l·不作任何处理:2·在它的左边加上一个自然数，但该自然数不能超过原数的一半;3·加上数后，继续按此规则进行处理，直到不能再产生自然数为止。【输入】为一行，一个整数n。【输出】为一行，满足条件数的个数。【样例输入】6【样例输出】6

数的计数【问题分析】对于任意一个数X，用变量S表示满足条件的解的个数，则S初值为1（即什么也不做）；假设X前可以添加的数字为Y，则Y取值为[1..XDIV2];假设Y前可以添加的数字为Z，则Z取值为[1..YDIV2];……对于每个可以取的值，将S:=S+1;递归程序如下（解题思路一）。在计算的过程中出现了很多重复计算，例如计算X=8，要枚举[1..4],计算X=4时，要枚举[1..2]，如果X的值越大，则重复计算的就越多，可以使用一个一维数组H[1..X]，记录已经计算出来X的解的个数，则可以提高运算效率。参考程序（解题思路二）

解题思路一解题思路二programacm21102;varn,i,s:longint;procedurejisuan(x:longint);vari:longint;begin??fori:=1toxdiv2do???begin?????s:=s+1;?????if(idiv2)0thenjisuan(i)???end;end;begin??readln(n);??s:=1;??jisuan(n);??writeln(s);end.programacm21102;varn,i:longint;h:array[1..1000]oflongint;procedurejisuan(x:longint);vari:longint;beginifh[x]0thenexit;h[x]:=1;fori:=1toxdiv2dobeginjisuan(i);h[x]:=h[x]+h[i];end;end;beginreadln(n);fillchar(h,sizeof(h),0);jisuan(n);writeln(h[n]);end.

解题思路三采用递推思路。用H(n)表示自然数n所能扩展的数据个数，则h(1)=1;h(2)=2;h(3)=2;h(4)=4;h(5)=4;h(6)=6;h(7)=6;……归纳递推公式：h(i)=1+h(1)+h(2)+……+h(idiv2);programacm21102;varn,i,j:longint;h:array[1..1000]oflongint;beginreadln(n);fillchar(h,sizeof(h),0);fori:=1tondobeginh[i]:=1;forj:=1toidiv2doh[i]:=h[i]+h[j];end;writeln(h[n]);end.

解题思路四在思路三的基础上，我们定义一个S，令S(x)=h(1)+h(2)+……+h(x);则S(x-1)=h(1)+h(2)+……+h(x-1);h(x)=S(x)-S(x-1);h(x)=h(i)=1+h(1)+h(2)+……+h(idiv2)=1+S(idiv2);算法的复杂度可以进一步降低。参考程序programacm21102;varh,s:array[1..1001]oflongint;i:longint;beginreadln(n);h[1]:=1;s[1]:=1;fori:=2tondobeginh[i]:=1+s[idiv2];s[i]:=s[i-1]+h[i];end;writeln(h[n]);end.

解题思路五进一步分析，可以得到以下的递推公式：(1)当i为奇数时，h(i)=h(i-1);(2)当i为偶数时，h(i)=h(i-1)+h(idiv2);programacm21102;varh:array[1..1001]oflongint;n,i:longint;beginreadln(n);h[1]:=1;fori:=2tondoifimod2=0thenh[i]:=h[i-1]+h[idiv2]elseh[i]:=h[i-1];wr