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

《算法及其实现八解析算法程序实现.pptx》由会员分享，可在线阅读，更多相关《算法及其实现八解析算法程序实现.pptx（13页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、算法及其实现8.解析算法程序实现,信息技术基础,学习内容,解析算法,1,解析算法应用,2,解析算法小结,3,定时器,4,列表框,5,对话框,6,1、解析算法,什么是解析算法？用解析的方法找出表示问题的前提条件与结果之间关系的数学表达式，并通过表达式的计算来实现问题求解。,1、解析算法适用案例分析,已知圆柱的半径r和高度h，使用公式*r*r*h求圆柱体体积已知班级每位同学的身高h，按照h从小到大排列已知直角三角形两边边长，利用勾股定理求另一边长找出1-1000内所有完全平方数找到一个未知的三位数密码已知a、b、c，根据判别式判断一元二次方程是否有实数根,2、解析算法应用,例1：求并联电阻的阻值,

2、前提条件,R1、R2的值,Rs的值,并联电阻计算公式,目的,关系,分析：,Rs=111+12或Rs=1+212,应该使用什么结构？顺序？分支？循环？,Dimr1,r2,rsAsSingler1=Val(Text1.Text)r2=Val(Text2.Text)rs=1/(1/r1+1/r2)rs=(r1+r2)/(r1*r2)Label1.Caption=Str(rs)&,2、解析算法应用,2、解析算法应用,例2：求二元一次方程a2+=0的解,前提条件,a、b、c的值,x的值,判别公式求根公式,目的,关系,令=24d0，1=+242,2=242,分析：,应该使用什么结构？顺序？分支？循环？,2

3、、解析算法应用,Dima,b,c,d,x1,x2AsSinglea=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)d=b2-4*a*cIfd0ThenLabel2.Caption=x无解ElseIfd=0Thenx1=-b/(2*a)Label2.Caption=x1=x2=&Str(x1)Elsex1=(-b+Sqr(d)/(2*a)x2=(-b-Sqr(d)/(2*a)Label2.Caption=x1=&Str(x1)&,x2=&Str(x2)EndIf,解析算法的解题思路：1）明确问题的前提条件2）明确要求的解3）寻找前提条件与结果之

4、间的数学表达式解析算法的算法结构有哪些？根据具体问题具体分析，解析算法没有固定的算法结构。,输入,输出,处理,顺序,分支,循环,3、解析算法小结,4、定时器Timer,PrivateSubTimer1_Timer()DimrAsInteger定义一个变量Randomize获取当前时间作为随机种子r=Int(Rnd()*100+1)获取1,100的随机整数Label1.Caption=Str(r)显示随机数EndSubPrivateSubCommand1_Click()Timer1.Enabled=True定时器开始工作EndSubPrivateSubCommand2_Click()Timer1

5、.Enabled=False定时器停止工作EndSubPrivateSubForm_Load()Timer1.Interval=100设置定时器的循环间隔为100msTimer1.Enabled=False定时器停止工作EndSub,是否可用,例：每隔100ms生成1,100的随机整数,5、列表框ListBox,PrivateSubCommand1_Click()DimrAsInteger定义一个变量Randomize获取当前时间作为随机种子r=Int(Rnd()*100+1)获取1,100的随机整数List1.AddItemStr(r)添加随机数到列表框中EndSubPrivateSubCommand2_Click()List1.Clear清除列表框EndSub,例：记录生成的随机数，可以清空。,6、消息对话框MsgBox、输入对话框InputBox,消息对话框PrivateSubCommand1_Click()MsgBox(hello)EndSub,输入对话框PrivateSubCommand2_Click()DimsAsStrings=InputBox(howareyou?)PrintsEndSub,3.151、A2、2803、m=n/5-104、h=0.01,