算法实例综合复习卷.docxVIP

枚举算法实例： 算法实例综合复习卷 鼻 枚举法：列举出问题的所有可能解，并在逐一列举的过程中，检验每个可能解是否 一列举，无一遗漏是问题的真正解，若是，我们采纳这个解，否则抛弃它。 一列举，无一遗漏 鼻在很多时候，实现枚举算法的结构是 循环结构嵌套分支结构 实例1 实例1：在1 —1000这些自然数中找寻所有能被 37整除的数，累加并输出结果。 :Private Sub Form_Load() Show :Private Sub Form_Load() Show I * Dim x, s As Integer F s=0 For x = 1 To 1000 If x Mod 37 = 0 Then I t- : s=s+x End If Next x Print s |! End Sub 输出s开始x = 1:n=0 输出s 开始 x = 1:n=0 x =1000Tx mod 3=2 andx mod 5=2Tn=n+1Private Sub Form_Load()End If x =1000 T x mod 3=2 and x mod 5=2 T n=n+1 Private Sub Form_Load() End If C2结束^ 2、在1?1000这些自然数中算出所有被 3和5除都余2的数有几个。 Dim x,n As Integer Show Print 1?1000之间被3和5除都余2的数： For x = 1 To 1000 If x Mod 5 = 2 And x Mod 3 = 2 Then x J x+1 Next i Print 共有 Str(n) 个。 End Sub 3、若有一个三位数满足:x=a3+b3+c3 （其中a、b、c分别是该三位数的百位、十位和个位数 字），则称该三位数为水仙花数。请编程找出所有的水仙花数。 方法一： 方法一： Private Sub Form_Load() Show Dim x, a, b, c As In teger For x = 100 To 999 a = x \ 100 b = (x Mod 100) \ 10 c = x Mod 10 If x = a A 3 + b A 3 + c A 3 The n Print x Next x End Sub 方法 方法二： | :Private Sub Form_Load() ? — Show 卜 Dim a, b, c, x As In teger 卜 For a = 1 To 9 卜 For b = 0 To 9 For c = 0 To 9 x= a * 100 + b * 10 + c If x= a A 3 + b A 3 + c A 3 The n Print x : Next c Next b Next a i End Sub 卜 4、一张单据上的 5位数为47,其中百位数和千位数已经模糊不清了，但直到这 个5位数是57或67的倍数，请设计一个算法，输出所有可能的数据，并统计满足要求 的数据个数。 , 开始 i=O:n=OX=10047+i*100n=n+1:Private Sub Form_Load() i=O:n=O X=10047+i*100 n=n+1 Dim i, x As In teger n = 0 I Show i For i = 0 To 99 ； x = 10047 + i * 100 If x Mod 57 = 0 Or x Mod 67 = 0 The n I : Print x, I n = n + 1 I End If Next i Print I Print满足条件的数据一共有 Str(n) ”个” End Sub I i=i+1 结束 5、一张单据上的5位数为1 ■ 4?7,其中十位数和千位数已经模糊不清了，但直到这个 5 位数是57或67的倍数，请设计一个算法，输出所有可能的数据，并统计满足要求的数据 个数。 Private Sub Form_Load() Show Dim a, b, x As In teger n = 0 For a = 0 To 9 For b = 0 To 9 x = 10407 + a * 1000 + b * 10 If x Mod 57 = 0 Or x Mod 67 = 0 The n Print x n = n + 1 End If Next b Next a Print Print 这样的数据一共有 ” Str(n) ” 个” End Sub 軋For?l 軋For?l 匚|叵区 13467 15447 15477 17487 19437 19497 这样的数据一共有7T 6、包装600个变形金刚，要求是：包装的规格分