会考总复习算法操作题(答案)_会考操作题复习
会考总复习算法操作题(答案)由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“会考操作题复习”。
上海市甘泉外国语中学2011届高一信息科技会考总复习算法操作题答案 高一信息科技总复习——算法之程序设计操作题答案
〖周末卷(3)_算法〗
28．请编程求解分段函数的值：
2x10x10
y100x10x10
x10
2x10
Dim x As Single
Dim y As Single
x = InputBox(“请输入x:”)
If(x 10)Then
y =-3.14 / 2 * x + 10
Else
y = 100 + x
End If
Print y
29．请设计算法，找出小于2345的最大质数。
Dim i As Integer'变量i 待检验的数
Dim j As Integer'变量j 检验i是否素数的除数
Dim t As Integer'变量t 记录i被整除的次数
For i = 2345 To 2 Step-1
t = 0
For j = 2 To i复习资料之系列四
46．高一某社团学生暑假里外出活动，需要准备一些1元、5角、1角的硬币。若要将
50元纸币全部兑换成1元、5角、1角硬币，要求每种硬币不能为0个，共有多少种不同的兑换方法？请编写程序，统计兑换方案的个数。
（1）用自然语言描述此题的算法思想：
用枚举算法，用循环结构列举范围„„，用分支结构检验，条件为„„，找出所有符合条件的数后，输出„„
用枚举算法，用循环结构列举范围1元硬币个数1～49，5角硬币个数1～99，1角硬币个数1～499，用分支结构检验，条件为10 * a + 5 * b + c = 500，找出所有符合条件的数并统计符合条件的方案个数后输出。
2401（2）兑换方案的个数为：________________________
Dim a As Integer'变量a一元硬币的个数
Dim b As Integer'变量b五角硬币的个数
Dim c As Integer'变量c一角硬币的个数
Dim t As Integer'变量t兑换方案的个数
t = 0
a = 1
Do While a
For b = 1 To 99
For c = 1 To 499
If 10 * a + 5 * b + c = 500 Then
t = t + 1
End If
Next c
Next b
a = a + 1
Loop
Print t
46．求1，1，2，3，5，8„„中，刚好大于500的项是第几项。
（1）用自然语言描述找出恰好大于500那个项数的方法：
用循环结构，循环条件即项数值c
2、n-
1、和n项，当c大于500时退出循环，并输出c的值。（2）计算结果：________________________
Dim a As Integer'变量a第n-2项
Dim b As Integer'变量b
Dim c As Integer'变量c
Dim n As Integer'变量n
a = 1
b = 1
c = 0
n = 2
Do While c
n = n + 1
c = a + b
a = b
b = c
Loop
Print n
第n-1项 第n项 项数
46．所谓孪生素数指的就是间隔为 2 的相邻素数，它们之间的距离已经非常近，就
象孪生兄弟一样。最小的一对孪生素数是(3, 5)。请编写程序，求出100以内孪生素数的对数。
（1）请用自然语言描述判断一对孪生素数的方法：
用枚举算法检验出素数，设两个变量a、b别记录孪生素数中的较小、较大数，用分支结构判断 b1
If i Mod j = 0 Then
t = t + 1
End If
Next j
If t = 0 Then
a = b
b = i
If ba
If i Mod j = 0 Then
t = t + 1
End If
Next j
If t = 0 Then
a = b
b = c
c = i
If ca >= 3 Then
Print a;b;c
n = n + 1
End If
End If
Next i
Print n
46．众所周知，素数是非常孤独的数字，因为它只有1和它本身两个数字，不过有一种
数比素数也好不到哪里去，它们除了1和它本身之外，只有一个因数，我们暂且称它们为“次孤独数”。
（1）请用自然语言描述如何判断一个数是否为“次孤独数”：
用双重循环结构的试除法判断，外循环条件为数字i在1～1000范围内取值，内循环条件是2～该数字减1，循环体用单分支结构判断i被整除的次数，若次数等于1，则可判定此数为“次孤独数”。（2）求出1～1000之间这样的“次孤独数”并统计出个数：_____________________
程序代码：
Dim i As Integer'变量i 待检验的数
Dim j As Integer'变量j 检验i是否为次孤独数的除数
Dim t As Integer'变量t 记录i被整除的次数
Dim n As Integer'变量n 记录次孤独数的个数
n = 0
For i = 1 To 1000
t = 0
For j = 2 To i-1
If i Mod j = 0 Then
t = t + 1
End If
Next j
If t = 1 Then
Print i
n = n + 1
End If
Next i
Print “n=”;n
