高中信息技术选修1课件-5.2解析算法的程序实现1-浙教版

解析算法 解析算法 关键---找出计算公式 解析算法:找出表示问题的前提条件与所求 结果之间关系的数学表达式，并通过表达 式的计算来实现问题求解。 求和问题1 s+n*n 求和问题2 • 1.计算 的值。请将下面划线处的代码填写完 整： • Private Sub Command1_Click() • Dim i As Integer • Dim s As Double • s = 0 • For i = 1 To 50 • ______(1)______ • Next i • Text1.Text = Str(s) • End Sub s = s + 1 / (2 * i - 1) • 设计一个算法，计算并联电阻的总电阻值R。其 中，每个电阻的阻值可由键盘输入，输入结束时， 单击计算按钮完成计算 并联电阻.exe •算法分析 n个并联电阻的总电阻值R的倒数等于参与并联的各 个电阻值的倒数之和，即： •变量 r：存储从键盘输入的电阻值。 rs：累加器，参与并联的各电阻值的倒数将逐个地累 加到这个累加器中。(rs是总电阻值吗？) 程序分析 1、子程序Text2_KeyPress 2、子程序Command1_Click 3、子程序Command2_Click 任务：完善子程序 Text2_KeyPress ①从文本框Text2中读取用户输入的电阻值，存入到变量r 中； ②判断如果它是一个有效的电阻值（大于0）时，那么就 将它的倒数累加到变量rs中；并把用户输入的这个电阻值 添加在列表框List1中； ③否则输出提示信息“无效电阻，重新输入” 打开桌面老师文件夹中的“计算并联电阻程序-s.frm”， 完成后运行程序，测试程序是否正确 铁丝问题求解 • 使用一根长度为L厘米的铁丝，制作一个面积为 S平方厘米的矩形框，要求计算该矩形的宽w和 高h。 面积 宽 高 长度L • L ^ 2 - 16 * s或者L* L - 16 * s (L - Sqr(d)) / 4 L/ 4 拓展练习1 •1. 计算 的值。 • Private Sub Command1_Click() • Dim m As Integer, n As Integer • Dim s As Double • s =0 • ______(1)______ • For n = 1 To 7 • m = m * n • If ______(2)______ Then s = s + 1 / m • Next n • Text1.Text = Str(s) • End Sub m = 1 n Mod 2 = 1 拓展练习2 • 2.计算 的值。 • • Private Sub Command1_Click() • Dim n As Integer, t As Integer, m As Integer • Dim s As Integer • n = Val(Text2.Text) • ______(1)______ • t = 1 • For m = 1 To n • s = s + t * m * m • ______(2)______ • Next m • Text1.Text = Str(s) • End Sub s = 0 t=-t 或 t=(-1)^(m-1) 概括本节课重点 解析算法的核心 找出前提条件与所求结果之间的 表达式