浙江高中算法与程序设计学生活动手册答案.doc

编辑：浙江省桐乡第一中学 杜宗飞
浙江省普通高中
算法与程序设计学生活动手册参考答案
目录
实践一 2
操作提示 2
相关练习 2
实践二 2
操作提示 2
相关练习 2
实践三 3
相关练习 3
实践四 3
操作提示 3
相关练习 3
实践五 3
操作提示 3
相关练习 4
实践六 4
操作提示 4
相关练习 4
实践七 5
操作提示 5
相关练习 5
实践八 5
操作提示 5
相关练习 6
实践九 6
操作提示 6
相关练习 6
实践十 7
操作提示 7
相关练习 7
实践十一 7
操作提示 7
相关练习 7
实践十二 8
操作提示 8
相关练习 8
实践十三 9
操作提示 9
相关练习 9
编辑仓促，难免有误，仅供参考，欢迎讨论！——杜宗飞
实践一
操作提示
（1）s=πR12-πR22
（3）Const PI = 3.14 S= PI*R1^2- PI*R2^2
相关练习
（1）A 、（2）B、（3）求2+4+6+……+102的和
（4）①(a+5)^2-5 ②(2*x^2-x*y+y^2)/x ③ g*t^2+v*t
（5）①Const FEE=28 ②Dim b As Double, x As Double
③ x = FEE + (b - 150) * 0.25

实践二
操作提示
（4）True False
相关练习
（1）b^2-4*a*c (-b+sqr(d))/(2*a) (-b-sqr(d))/(2*a) d=0
（2）C
（3）The 修改为 Then
实践三
相关练习
（1）①Sqr(Abs(x+y)/2) ②Abs(b-a+a)-Abs(-2*a) ③Log(5)/Log(10)
（2）D（3）C（4）C（5）B

实践四
操作提示
（4）b <= 20 Else 或 ElseIF b >35 Then
相关练习
（1）C
（2）a = c

实践五
操作提示
（4）Mid(s,i,1) Chr(Asc(a)-10)
相关练习
（1）B
（2）D
（3） i=1 k=d(i)
（4） 6 注意：该程序实现的功能是求最大子序列和

实践六
操作提示
（1） 每个明文有相应的密文内码加10得到
（2） Mid(x,j,1) Chr(Asc(b)+10)
（4）j = 1 c=Chr(Asc(b)+10) j = j+1
相关练习
(1) 31 3*n+1
(2) i=1 If d(i)<min Then min=d(i)
(3) sum=sum+i Text2.Text=Str(sum)
实践七
操作提示
（4）year >= 1 And year <= 9999 And mont >= 1 And month <=12
leap(year) 或 leap(year)= True
Not leap(year) 或 leap(year)= False
相关练习
(1) 6 求2个数的最大公约数
注意：该程序使用更相减损法求最大公约数，此外还可以通过欧几里得算法求解
（2） a*1000+b*100+c*10+d
或 a & b & c & d 或 Val(Str(a)+ Str(b) +Str(c) +Str(d))

实践八
操作提示
（2） n – 1 False
（4）i = 1 To n IsPrime(i) 或 IsPrime(i)= True
相关练习
(1) y=26-x 8*x-y*5=0或8*x=y*5
(2) True m mod i=0 p1=True And p2=True 或 p1 And p2
p2 (或s(i))

实践九
操作提示
（4）Text3.Text ai*(i-1)/(2*i-1) Str(pai*2)
（6）Text4.Text a^2+b^2 s=s+1 Str(4*s/n)
注意：理解该题需要知道解析几何知识和简单概率论知识
相关练习
（1） [0,1) Int(Rnd*10+1) 或Int(Rnd*10)+1
(2) 0 2 s=s+i
(3) 500 s<800或s<=800 s*(1+0.003) y+1
注意：前两个空填5000000 s<8000000 亦可

实践十
操作提示
（3）1 To n – 1 n To i + 1 d(j) = d(j-1)
相关练习
（1） 将小于<改成大于>即可
If d(j)<d(j-1) Then 改成 If d(j)>d(j-1) Then
（2）164 168 172 175 185 178
164 168 172 175 178 185
164 168 172 175 178 185
164 168 172 175 178 185
5 3 15

实践十一
操作提示
（3）1 To n – 1 i i + 1 To n min <> i
相关练习
(1) s或30 k=i i+1 d(j)>d(k) s(或30)
(3) C
(4) n*(n-1)/2 升序 0 无序 n-1 少 快
注意：选择排序最差情况是某种无序下：比如 6 1 4 5 7

实践十二
操作提示
（1） i <= n d(i) = lSearch i = i +1
（5）lMax = d(i) lMin=d(i) Abs(lAvg-d(i)) < lSub
注意：此题变量i初值为2 更加合理。算法类似于2016.4加试16题
相关练习
（1）60 counter=counter+1
(2) cnt=cnt-1 d=1 str(i)
注意：数组d元素初值都为100，从左往右遍历元素时报数为单数时赋值为0，下一次从左往右遍历元素时跳过值为0的元素

实践十三
操作提示
（2）(lLeft+lRight)\2 mArray(lMidd) = lSearch
lSearch> mArray(lMidd)
（5）Val(txtInput.Text) > iGuess Int(Rnd*128)+1 Int(Rnd*128)+1
相关练习
(1)A
(2) 8次
（3） George Joe Latty Mary
Int(iLeft+iRight)/2 strSearch>mArray(iMidd)