VB常用算法4 递推穷举积分.docVIP

VB常用算法----递推与穷举

一、初等数学

1、递推法

又称为“迭代法”，其基本思想是把一个复杂的计算过程转化为简单过程的多次重复。每次重复都在旧值的基础上递推出新值，并由新值代替旧值。

问题：猴子吃桃子

小猴子有若干桃子，第一天吃掉一半多一个；第二天吃掉剩下的一半多一个…..；如此，到第七天早上要吃时，只剩下一个桃子。问小猴子一开始共有多少桃子？

分析：可以最后一天桃子数推出倒数第二天的桃子数；再从倒数第二天推出倒数第三天桃子数………..

设第n天桃子数为xn，前一天桃子数是：xn－1，则有关系：

xn＝xn－1/2-1或xn-1=（xn+1）*2

程序如下：

PrivateSubCommand1_Click()

Dimn%,i%,x%

x=1第七天桃子数

Print第七天桃子数:1只

Fori=6To1Step-1

x=(x+1)*2

Print第i天桃子数:x只

Nexti

EndSub

? 2、穷举法

又称枚举法，即将所有可能情况一一测试，判断是否满足条件，一般用循环实现。

问题：百元买百鸡问题。

假定小鸡每只5角；公鸡每只2元；母鸡每只3元。现在有100元，要求买100只鸡，编程列出所有可能的购鸡方案。

分析：

设母鸡、公鸡、小鸡分别x、y、z只，则有：

x＋y＋z＝100

3x＋2y＋0.5z＝100

程序一：

PrivateSubCommand1_Click()

Dimx%,y%,z%

Print百钱买百鸡问题的各种购买方案

Print母鸡数公鸡数小鸡数

Forx=0To100

Fory=0To100

Forz=0To100

Ifx+y+z=100And3*x+2*y+0.5*z=100Then

Printx,y,z

EndIf

Nextz

Nexty

Nextx

EndSub

程序二（优化）

PrivateSubCommand2_Click()

Dimx%,y%

Print百钱买百鸡问题的各种购买方案

Print母鸡数公鸡数小鸡数

Forx=0To33

Fory=0To50

If3*x+2*y+0.5*(100-x-y)=100Then

Printx,y,100-x-y

EndIf

Nexty

Nextx

EndSub

二、高等数学

求积分

近似计算积分：s=∫13(x3+2x+5)dx

? ?分析：矩形法数值积分的思想是，将积分区间划分为n个等分，以函数y=f(x)曲线和坐标轴x上的取值a，b为上下边界，以n个小矩形的面积Si近似小曲边型面积，则所求定积分值近似为：

将积分区间n等分以后其小区间长度为h=(b-a)/n，其中a与b为积分下、上限，则：

S1=f(a)*h，S2=f(a+h)*h，S3=f(a+2*h)*h，…，Sn=f(a+(n-1)*h)*h

因为在计算小矩形面积时要多次计算函数f(x)，所以将被积函数编写为函数过程。

代码如下：

PublicFunctionf(ByValx!)AsSingle被积函数

f=x*(x*x+2)+5

EndFunction

PublicFunctiontrapez(ByVala!,ByValb!,ByValn%)AsSingle

b、a分别为积分上下限，n为等分数

Dimsum!,h!,x!

DimiAsInteger

h=(b-a)/n

sum=f(a)*h

Fori=1Ton-1

x=a+i*h

sum=sum+f(x)*h

Nexti

trapez=sum

EndFunction

调用：

PrivateSubCommand1_Click()

Printtrapez(1,3,30)

EndSub

数论综合题

此类题目比较广泛，必须给以足够重视。

历年题目有：平方数、拟互满数、回文数