31解析算法及程序实现课件

1．解析算法的概念①解析：用数学公式描述客观事物间的数量关系。②解析算法：用解析的方法找出表示问题的前提条件与结果之间关系的数学表达式，并通过表达式的计算来实现问题的求解。例如：计算以速度v作为匀速直线运动的一个物体，在t秒内经过的距离s，则可通过公式s＝vt得到。3.1解析算法及程序实现第三章算法的程序实现1．解析算法的概念3.1解析算法及程序实现第三章算2．解析算法的程序实现①建立正确的数学模型(得出正确的数学计算式)②将数学表达式转换为VB表达式用VB编制解析算法程序时，必须保证计算过程描述的正确性。特别是把数学表达式转换成VB表达式时，必须注意这种转换的正确性，否则容易发生运算结果错误或运行过程出错。2．解析算法的程序实现本课的重点是解析算法及其程序实现。通过本节课的学习，复习并掌握VB程序设计语言的基本运算符、表达式、赋值语句等内容，特别是表达式的书写。考查方式为选择题与填空题。本课的重点是解析算法及其程序实现。通过本节课的学习，复习并掌计算长方体体积的算法描述如下：①输入长方体的长(z)、宽(w)、高(h)②计算长方形体积v＝z*w*h③输出结果④结束上述算法属于 (

)A．枚举算法 B．排序算法C．解析算法 D．递归算法C计算长方体体积的算法描述如下：C下列问题适合用解析算法求解的是 (

)A．将十三张纸牌按从小到大进行排列B．统计100内偶数的各位数字之和恰好为10的个数C．计算一辆车行驶100公里的油耗D．寻找本年级身高最高的同学C下列问题适合用解析算法求解的是 ()C有如下问题：①已知圆锥的半径ｒ和高度ｈ，使用公式Ｖ锥＝求出此圆锥体的体积。②已知班级每位同学的期中成绩总分s，按照s的值从大到小进行成绩排名。③已知圆的周长s，利用公式ｒ＝s/(2*3.14)求出圆的半径r。④已知“水仙花数”的定义，找出1~10000范围内所有的水仙花数。用计算机解决上述问题时，适合用解析算法的是（

）A．①② B．①③ C．③④ D．②④B有如下问题：BA4．出租车计价规则：3公里以内，10元；超出3公里每公里增加2元。假定公里数为x，金额为y。解决此问题的公式和流程图如下图所示：

流程图加框处部分的算法属于(

)A．解析算法B．排序算法C．枚举算法D．递归算法A4．出租车计价规则：3公里以内，10元；超出3公里每公里现要求编写VB程序实现如下功能：分别在文本框Text1、Text2和Text3中输入三条线段的长度，单击“判断”按钮Command1后，在标签Label1中显示判断结果。程序运行界面如下图所示：按此要求编写的程序如下：现要求编写VB程序实现如下功能：分别在文本框Text1、TePrivateSubCommand1_Click()DimaAsSingle,bAsSingleDimcAsSingle,stAsStringa＝Val(Text1.Text)b＝Val(Text2.Text)c＝Val(Text3.Text)IfNot(a＋b>cAndb＋c>aAndc＋a>b)Then

st＝“这三条线不能构成一个三角形"ElseIfa*a＋b*b＝c*cOra*a＋c*c＝b*bOrb*b＋c*c＝a*aThen

st＝"

可以构成一个直角三角形"ElseIf_①______________________Then

st＝"

可以构成一个等边三角形"Else

st＝“可以构成一个不等边斜三角形”PrivateSubCommand1_Click()EndIfLabel1.Caption＝_②_________EndSub划线处应填写的正确的语句是(1)划线处①______________________（2）划线处②______________________注：该示例程序在素材文件夹下vb8文件夹中。sta=bAnda=cEndIfsta=bAnda=cs+(i-1)/i下列VB程序段实现计算s＝1＋1/2＋2/3＋3/4＋…＋99/100的值。请将下面划线处的代码补充完整。PrivateSubCommand1_Click()DimiAsIntegerDimsAsDoubles＝1Fori＝2To100

s＝________Nextitext1.Text＝Str(s)EndSub程序划线处应填入的内容是______________________。s+(i-1)/i下列VB程序段实现计算s＝1＋1/2＋2用解析算法求物体重力的VB程序代码如下：PrivateSubCommand1_Click()DimgAsSingleDimmAsSinglem＝Val(Text1.Text)g＝m*9.8Label1.Caption＝Str(g)EndSub程序界面如下图所示：用解析算法求物体重力的VB程序代码如下：程序界面如下图所示：在文本框输入15，单击“计算”按钮Command1后，标签Label1中显示的内容是______。注：该示例程序在素材文件夹下vb9件夹中。147在文本框输入15，单击“计算”按钮Command1后，标签L根据臀围计算裤子尺寸的换算有以下公式：①尺＝厘米*0.03；②码＝厘米*0.3＋7。如臀围为90厘米，那么在购买时需要选2.7尺(90*0.03)也即34码(90*0.3+7)的裤子。下面VB程序可用于解决此实际问题，程序运行界面如下图所示。运行程序，在文本框Text1中输入臀围，单击“计算”按钮Command1，在标签Label2中显示裤子购买的参考尺寸，程序代码如下：根据臀围计算裤子尺寸的换算有以下公式：PrivateSubCommand1_Click()DimnAsSingleDimcAsSingleDimmAsIntegern＝Int(Val(Text1.Text))c＝n*0.03m＝__________________________________Label2.Caption＝“你需要购买”＋Str(c)＋“尺(“＋Str(m)＋”)码的裤子”EndSub程序划线处应填入的内容是____________________________________。注：该示例程序在素材文件下vb10文件夹中。Int(n*0.3+7)PrivateSubCommand1_Click()In某书店出租图书的费用标准如下：借书一天内，收费2元；借书超过一天的，超过部分按每天0.8元收取。最后费用按四舍五入折算成整数。程序算法结构与运行界面如下图所示。某书店出租图书的费用标准如下：借书一天内，收费2元；借书超过下面VB程序用于解决此问题PrivateSubCommand1_Click()DimnAsInteger

'①n＝Val(Text1.Text)Ifn<1Then

MsgBox“输入错误”ElseIfn＝1Then

s＝2Else

'②EndIfText2.Text＝Str(s)EndSubDimsAsSingles=2+n*0.8下面VB程序用于解决此问题DimsAsSingles=程序加框处代码有误，请修改以实现该程序的功能。(1)加框①处应改为______________________________________。(2)加框②处应改为______________________________________。DimsAsIntegers=2+(n-1)*0.8程序加框处代码有误，请修改以实现该程序的功能。DimsA下列VB程序实现如下功能：程序运行时，在文本框Text1和Text2中分别输入x和n的值，单击命令按钮Command1后，调用函数f计算s的值，并在文本框Text3中显示计算结果。其中下列VB程序实现如下功能：程序运行时，在文本框Text1和TPrivateSubCommand1_Click()DimxAsSingle,nAsInteger,sAsSinglex＝Val(Text1.Text)n＝Val(Text2.Text)s＝f(x,n)Text3.Text＝①EndIfPrivateFunctionf(xAsSingle,nAsInteger)AsSingleDimsumAsSingle,iAsInteger,tAsSinglesum＝0t＝1Fori＝1Ton

t＝t*x/i

sum＝②PrivateSubCommand1_Click()Nextif＝sumEndFunction请在划线处填入合适的代码以实现该程序的功能。(1)划线处①________________________________。(2)划线处②________________________________。注：该示例程序在素材文件下vb11文件夹中。sum+tStr(s)Nexti请在划线处填入合适的代码以实现11．按下面公式计算f的值：现要求编写VB程序(运行界面如下图所示)，实现如下功能：在文本框Text1中输入x的值，单击“计算”按钮Command1，在标签Label3中显示f的值。按此要求编写的程序如下。11．按下面公式计算f的值：现要求编写VB程序(运行界面如下Functionf(xAsInteger)

AsSingle

'①Ifx<＝1Then

f＝x＋2ElseIfx>1Andx<2Then

f＝'②Else

f＝2*xEndIfEndFunctionPrivateSubCommand1_Click()DimxAsSingle,yAsSinglex＝Val(Text1.Text)y＝f(x)

'③EndSubAbs(x+3)Label3.text=str(y)Functionf(xAsInteger)As加框处代码有误，请修正。(1)加框①处应改为_________________。(2)加框②处应改为_________________。(3)加框③处应改为_________________________________。注：该示例程序在素材文件夹下vb12文件夹中。f(xAsSingle)x*xLabel3.Caption=Str(y)加框处代码有误，请修正。f(xAsSingle)x*xL1．解析算法的概念①解析：用数学公式描述客观事物间的数量关系。②解析算法：用解析的方法找出表示问题的前提条件与结果之间关系的数学表达式，并通过表达式的计算来实现问题的求解。例如：计算以速度v作为匀速直线运动的一个物体，在t秒内经过的距离s，则可通过公式s＝vt得到。3.1解析算法及程序实现第三章算法的程序实现1．解析算法的概念3.1解析算法及程序实现第三章算2．解析算法的程序实现①建立正确的数学模型(得出正确的数学计算式)②将数学表达式转换为VB表达式用VB编制解析算法程序时，必须保证计算过程描述的正确性。特别是把数学表达式转换成VB表达式时，必须注意这种转换的正确性，否则容易发生运算结果错误或运行过程出错。2．解析算法的程序实现本课的重点是解析算法及其程序实现。通过本节课的学习，复习并掌握VB程序设计语言的基本运算符、表达式、赋值语句等内容，特别是表达式的书写。考查方式为选择题与填空题。本课的重点是解析算法及其程序实现。通过本节课的学习，复习并掌计算长方体体积的算法描述如下：①输入长方体的长(z)、宽(w)、高(h)②计算长方形体积v＝z*w*h③输出结果④结束上述算法属于 (

)A．枚举算法 B．排序算法C．解析算法 D．递归算法C计算长方体体积的算法描述如下：C下列问题适合用解析算法求解的是 (

)A．将十三张纸牌按从小到大进行排列B．统计100内偶数的各位数字之和恰好为10的个数C．计算一辆车行驶100公里的油耗D．寻找本年级身高最高的同学C下列问题适合用解析算法求解的是 ()C有如下问题：①已知圆锥的半径ｒ和高度ｈ，使用公式Ｖ锥＝求出此圆锥体的体积。②已知班级每位同学的期中成绩总分s，按照s的值从大到小进行成绩排名。③已知圆的周长s，利用公式ｒ＝s/(2*3.14)求出圆的半径r。④已知“水仙花数”的定义，找出1~10000范围内所有的水仙花数。用计算机解决上述问题时，适合用解析算法的是（

）A．①② B．①③ C．③④ D．②④B有如下问题：BA4．出租车计价规则：3公里以内，10元；超出3公里每公里增加2元。假定公里数为x，金额为y。解决此问题的公式和流程图如下图所示：

流程图加框处部分的算法属于(

)A．解析算法B．排序算法C．枚举算法D．递归算法A4．出租车计价规则：3公里以内，10元；超出3公里每公里现要求编写VB程序实现如下功能：分别在文本框Text1、Text2和Text3中输入三条线段的长度，单击“判断”按钮Command1后，在标签Label1中显示判断结果。程序运行界面如下图所示：按此要求编写的程序如下：现要求编写VB程序实现如下功能：分别在文本框Text1、TePrivateSubCommand1_Click()DimaAsSingle,bAsSingleDimcAsSingle,stAsStringa＝Val(Text1.Text)b＝Val(Text2.Text)c＝Val(Text3.Text)IfNot(a＋b>cAndb＋c>aAndc＋a>b)Then

st＝“这三条线不能构成一个三角形"ElseIfa*a＋b*b＝c*cOra*a＋c*c＝b*bOrb*b＋c*c＝a*aThen

st＝"

可以构成一个直角三角形"ElseIf_①______________________Then

st＝"

可以构成一个等边三角形"Else

st＝“可以构成一个不等边斜三角形”PrivateSubCommand1_Click()EndIfLabel1.Caption＝_②_________EndSub划线处应填写的正确的语句是(1)划线处①______________________（2）划线处②______________________注：该示例程序在素材文件夹下vb8文件夹中。sta=bAnda=cEndIfsta=bAnda=cs+(i-1)/i下列VB程序段实现计算s＝1＋1/2＋2/3＋3/4＋…＋99/100的值。请将下面划线处的代码补充完整。PrivateSubCommand1_Click()DimiAsIntegerDimsAsDoubles＝1Fori＝2To100

s＝________Nextitext1.Text＝Str(s)EndSub程序划线处应填入的内容是______________________。s+(i-1)/i下列VB程序段实现计算s＝1＋1/2＋2用解析算法求物体重力的VB程序代码如下：PrivateSubCommand1_Click()DimgAsSingleDimmAsSinglem＝Val(Text1.Text)g＝m*9.8Label1.Caption＝Str(g)EndSub程序界面如下图所示：用解析算法求物体重力的VB程序代码如下：程序界面如下图所示：在文本框输入15，单击“计算”按钮Command1后，标签Label1中显示的内容是______。注：该示例程序在素材文件夹下vb9件夹中。147在文本框输入15，单击“计算”按钮Command1后，标签L根据臀围计算裤子尺寸的换算有以下公式：①尺＝厘米*0.03；②码＝厘米*0.3＋7。如臀围为90厘米，那么在购买时需要选2.7尺(90*0.03)也即34码(90*0.3+7)的裤子。下面VB程序可用于解决此实际问题，程序运行界面如下图所示。运行程序，在文本框Text1中输入臀围，单击“计算”按钮Command1，在标签Label2中显示裤子购买的参考尺寸，程序代码如下：根据臀围计算裤子尺寸的换算有以下公式：PrivateSubCommand1_Click()DimnAsSingleDimcAsSingleDimmAsIntegern＝Int(Val(Text1.Text))c＝n*0.03m＝__________________________________Label2.Caption＝“你需要购买”＋Str(c)＋“尺(“＋Str(m)＋”)码的裤子”EndSub程序划线处应填入的内容是____________________________________。注：该示例程序在素材文件下vb10文件夹中。Int(n*0.3+7)PrivateSubCommand1_Click()In某书店出租图书的费用标准如下：借书一天内，收费2元；借书超过一天的，超过部分按每天0.8元收取。最后费用按四舍五入折算成整数。程序算法结构与运行界面如下图所示。某书店出租图书的费用标准如下：借书一天内，收费2元；借书超过下面VB程序用于解决此问题PrivateSubCommand1_Click()DimnAsInteger

'①n＝Val(Text1.Text)Ifn<1Then

MsgBox“输入错误”ElseIfn＝1Then

s＝2Else

'②EndIfText2.Text＝Str(s)EndSubDimsAsSingles=2+n*0.8下面VB程序用于解决此问题DimsAsSingles=程序加框处代码有误，请修改以实现该程序的功能。(1)加框①处应改为______________________________________。(2)加框②处应改为______________________________________。DimsAsIntegers=2+(n-1)*0.8程序加框处代码有误，请修改以实现该程序的功能。DimsA下列VB程序实现如下功能：程序运行时，在文本框Text1和Text2中分别输入x和n的值，单击命令按钮Command1后，调用函数f计算s的值，并在文本框Text3中显示计算结果。其中下列VB程序实现如下功能：程序运行时，在文本框Text1和TPrivateSubCommand1_Click()DimxAsSingle,nAsInteger,sAsSinglex＝Val(Text1.Text)n＝Val(Text2.Text)s＝f(x,n)Text3.Text＝①EndIfPrivateFunctionf(xAsSingle,nAsInteger)AsSingleDimsumAsSingle,iAsInteger,tAsSinglesum＝0t＝1