1 / 13
文档名称:

算法及其实现八解析算法程序实现.pptx

格式:pptx   大小:532KB   页数:13页
下载后只包含 1 个 PPTX 格式的文档,没有任何的图纸或源代码,查看文件列表

如果您已付费下载过本站文档,您可以点这里二次下载

分享

预览

算法及其实现八解析算法程序实现.pptx

上传人:可爱的嘎嘎 2022/11/28 文件大小:532 KB

下载得到文件列表

算法及其实现八解析算法程序实现.pptx

相关文档

文档介绍

文档介绍:该【算法及其实现八解析算法程序实现 】是由【可爱的嘎嘎】上传分享,文档一共【13】页,该文档可以免费在线阅读,需要了解更多关于【算法及其实现八解析算法程序实现 】的内容,可以使用淘豆网的站内搜索功能,选择自己适合的文档,以下文字是截取该文章内的部分文字,如需要获得完整电子版,请下载此文档到您的设备,方便您编辑和打印。《信息技术基础》
1、解析算法
什么是解析算法?
之间关系结果与前提条件解析用的方法找出表示问题的
表达式的计算的数学表达式,并通过来实现问题求解。
1、解析算法——适用案例分析
已知圆柱的半径r和高度h,使用公式π*r*r*h求圆柱体体积
已知班级每位同学的身高h,按照h从小到大排列
已知直角三角形两边边长,利用勾股定理求另一边长
找出1-1000内所有完全平方数
找到一个未知的三位数密码
已知a、b、c,根据判别式判断一元二次方程是否有实数根
2、解析算法应用
例1:求并联电阻的阻值
前提条件
关系
并联电阻
计算公式
目的
分析:
R1、R2的值
Rs的值
1
푅1+푅2
푅1×푅2
Rs=
1
1或Rs=
+
푅1
푅2
应该使用什么结构?
顺序?分支?循环?
2、解析算法应用
开始
输入R1的阻值
输入R2的阻值
Dim r1, r2, rs As Single
r1 = Val()
r2 = Val()
rs = 1 / (1 / r1 + 1 / r2)
rs = (r1 + r2) / (r1*r2)
= Str(rs) & "Ω"
输出并联后阻值R
结束
2、解析算法应用
例2:求二元一次方程a푥2+푐푥+푑=0的解
前提条件
关系
目的
分析:
a、b、c的值
判别公式
求根公式
x的值
令푒=푐2−4푏푑
①d<0,x无解
②d=0,푥1=푥2=−푐顺序?分支?循环?
③d>0,푥1=
应该使用什么结构?
2푏
−푐+
푐2−4푏푑
−푐−
푐2−4푏푑
2푏
,푥2=
2푏
2、解析算法应用
Dim a, b, c, d, x1, x2 As Single
a = Val()
b = Val()
c = Val()
d = b ^ 2 - 4*a*c
Thend < 0If
= "x无解"
Thend = 0ElseIf
x1 = -b / (2*a)
= "x1=x2="&Str(x1)
Else
x1 = (-b + Sqr(d)) / (2*a)
x2 = (-b - Sqr(d)) / (2*a)
Str(x2) = "x1="&Str(x1)" ,x2="
End If
开始
输入a的值
输入b的值
输入c的值
d=b^2-4*a*c
YN
d<0
Y
N
输出x无解
d=0
x=-b/(2*a)
x1= (-b + Sqr(d)) / (2 * a)
输出x
x2= (-b - Sqr(d)) / (2 * a)
输出x1,x2
结束
解析算法的算法结构有哪些?
已知直角三角形两边边长,利用勾股定理求另一边长
AddItem'添加随机数到列表框中
r = Int(Rnd()*'100 + 1)获取[1,100]的随机整数
r = Int(Rnd()*'100 + 1)获取[1,100]的随机整数
已知a、b、c,根据判别式判断一元二次方程是否有实数根
找到一个未知的三位数密码
解析算法的算法结构有哪些?
r = Int(Rnd()*'100 + 1)获取[1,100]的随机整数
Private SubTimer1_Timer()Dim r As Integer '定义一个变量
例:记录生成的随机数,可以清空。
Dim r1, r2, rs As Single
已知a、b、c,根据判别式判断一元二次方程是否有实数根
Private Sub Command2_Click()
之间关系结果与前提条件解析用的方法找出表示问题的
3、解析算法小结
解析算法的解题思路:
1)明确问题的前提条件
2)明确要求的解
3)寻找前提条件与结果之间的数学表达式
解析算法的算法结构有哪些?
根据具体问题具体分析,解析算法没有固定的算
法结构。
输入
输出
处理
顺序
分支
循环
4、定时器Timer
Private SubTimer1_Timer()Dim r As Integer '定义一个变量
Randomize'获取当前时间作为随机种子
r = Int(Rnd()*'100 + 1)获取[1,100]的随机整数
' = Str(r)显示随机数
End Sub
Private Sub Command1_Click()
'= True定时器开始工作
End Sub
Private Sub Command2_Click()
' = False定时器停止工作
End Sub
Form_Load()Private Sub
'=
' = False定时器停止工作
End Sub
例:每隔100ms生成[1,100]的随机整数
是否可用