资源简介

解析算法
解析算法
关键---找出计算公式
解析算法:找出表示问题的前提条件与所求结果之间关系的数学表达式，并通过表达式的计算来实现问题求解。
求和问题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。其中，每个电阻的阻值可由键盘输入，输入结束时，单击计算按钮完成计算
算法分析
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)
概括本节课重点
解析算法的核心
找出前提条件与所求结果之间的表达式

展开更多......

收起↑