VB常用算法4遞推窮舉積分

1、.VB常用算法-遞推與窮舉一、初等數(shù)學 1、遞推法 又稱為“迭代法，其根本思想是把一個復雜的計算過程轉化為簡單過程的屢次重復。每次重復都在舊值的根底上遞推出新值，并由新值代替舊值。 問題：猴子吃桃子 小猴子有假設干桃子，第一天吃掉一半多一個；第二天吃掉剩下的一半多一個.；如此，到第七天早上要吃時，只剩下一個桃子。問小猴子一開場共有多少桃子？ 分析：可以最后一天桃子數(shù)推出倒數(shù)第二天的桃子數(shù)；再從倒數(shù)第二天推出倒數(shù)第三天桃子數(shù). 設第n天桃子數(shù)為xn，前一天桃子數(shù)是：xn1，那么有關系： xnxn1/2-1 或 xn-1 =xn+1*2程序如下： Private Sub Command1_Clic

2、k Dim n% , i% , x% x = 1 第七天桃子數(shù) Print 第七天桃子數(shù): 1只 For i = 6 To 1 Step -1 x = x + 1 * 2 Print 第 & i & 天桃子數(shù): & x & 只 Next i End Sub 2、窮舉法 又稱枚舉法，即將所有可能情況一一測試，判斷是否滿足條件，一般用循環(huán)實現(xiàn)。 問題：百元買百雞問題。 假定小雞每只5角；公雞每只2元；母雞每只3元。如今有100元，要求買100只雞，編程列出所有可能的購雞方案。 分析： 設母雞、公雞、小雞分別x、y、z只，那么有： xyz100 3x2y0.5z100 程序一： Private Su

3、b Command1_Click Dim x%, y%, z% Print 百錢買百雞問題的各種購置方案 Print 母雞數(shù) 公雞數(shù) 小雞數(shù) For x = 0 To 100 For y = 0 To 100 For z = 0 To 100 If x + y + z = 100 And 3 * x + 2 * y + 0.5 * z = 100 Then Print x, y, z End If Next z Next y Next xEnd Sub程序二優(yōu)化 Private Sub Command2_Click Dim x%, y% Print 百錢買百雞問題的各種購置方案 Print 母

4、雞數(shù) 公雞數(shù) 小雞數(shù) For x = 0 To 33 For y = 0 To 50 If 3 * x + 2 * y + 0.5 * 100 - x - y = 100 Then Print x, y, 100 - x - y End If Next y Next xEnd Sub二、高等數(shù)學 求積分 近似計算積分：s=13x3+2x+5dx 分析：矩形法數(shù)值積分的思想是，將積分區(qū)間劃分為n個等分，以函數(shù)y=fx曲線和坐標軸x上的取值a，b為上下邊界，以n個小矩形的面積Si 近似小曲邊型面積，那么所求定積分值近似為：將積分區(qū)間n等分以后其小區(qū)間長度為h=b-a/n，其中a與b為積分下、上限，

5、那么：S1=fa*h，S2=fa+h*h，S3=fa+2*h*h，Sn=fa+n-1*h*h因為在計算小矩形面積時要屢次計算函數(shù)fx，所以將被積函數(shù)編寫為函數(shù)過程。代碼如下： Public Function fByVal x! As Single 被積函數(shù) f = x * x * x + 2 + 5End FunctionPublic Function trapezByVal a!, ByVal b!, ByVal n% As Single b、a分別為積分上下限，n為等分數(shù) Dim sum!, h!, x! Dim i As Integer h = b - a / n sum = fa *

6、h For i = 1 To n - 1 x = a + i * h sum = sum + fx * h Next i trapez = sumEnd Function調用： Private Sub Command1_Click Print trapez1, 3, 30 End Sub 數(shù)論綜合題 此類題目比較廣泛，必須給以足夠重視。 歷年題目有：平方數(shù)、擬互滿數(shù)、回文數(shù)、完數(shù)、幸運數(shù)、逆序數(shù)以及無暇素數(shù)、超級素數(shù)、因子和等。 三、實戰(zhàn)練習 1、完善程序填空題2002秋二10 找出由兩個不同數(shù)字組成的平方數(shù)，并將結果按圖中的格式顯示在列表框 List1中。Option Explicit Op

7、tion Explicit Private Sub Command1_Click Dim I As Long, n As Long For I = 11 To 300 1 If Verifyn Then 2 End If Next I End Sub Private Function Verify 3 As Boolean Dim A0 To 9 As Integer, I As Integer, Js As Integer Do While n 0 4 n = n 10 Loop For I = 0 To 9 Js = Js + AI Next I 5 End Function 2、編程題2004秋上機試卷08 一個正整