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

编辑 浙江省桐乡第一中学 杜宗飞 浙江省普通高中浙江省普通高中 算法与程序设计学生活动手册参考答案算法与程序设计学生活动手册参考答案 目录目录 实践一 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 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 1 And year 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 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 mArray lMidd 5 Val txtInput Text iGuess