资源描述
编辑:浙江省桐乡第一中学 杜宗飞
浙江省普通高中
算法与程序设计学生活动手册参考答案
目录
实践一 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)
展开阅读全文