3.1解析算法及程序实现
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Fra Baidu bibliotek
在文本框输入15，单击“计算”按钮Command1后，标签 147 。 Label1中显示的内容是______ 注：该示例程序在素材文件夹下vb9件夹中。
8. 根据臀围计算裤子尺寸的换算有以下公式： ①尺＝厘米*0.03；②码＝厘米*0.3＋7。 如臀围为90厘米，那么在购买时需要选2.7尺(90*0.03)也即34码(90*0.3+7)的裤 子。下面VB程序可用于解决此实际问题，程序运行界面如下图所示。 运行程序，在文本框Text1中输入臀围，单击“计算”按钮Command1，在标 签Label2中显示裤子购买的参考尺寸，程序代码如下：
6. 下列VB程序段实现计算s＝1＋1/2＋2/3＋3/4＋…＋ 99/100的值。请将下面划线处的代码补充完整。 Private Sub Command1_Click() Dim i As Integer Dim s As Double s＝1 For i ＝ 2 To 100 s ＝ ________ Next i text1.Text ＝ Str(s) End Sub s+(i-1)/i 程序划线处应填入的内容是______________________。
3. 有如下问题： 1 2 ①已知圆锥的半径ｒ和高度ｈ，使用公式Ｖ锥＝ r h 求出 3 此圆锥体的体积。 ②已知班级每位同学的期中成绩总分s，按照s的值从大到小 进行成绩排名。 ③已知圆的周长s，利用公式ｒ＝s/(2*3.14)求出圆的半径r。 ④已知“水仙花数”的定义，找出1~10000范围内所有的水 仙花数。 用计算机解决上述问题时，适合用解析算法的是（ B ） A．①② B．①③ C．③④ D．②④
第三章 算法的程序实现
3.1 解析算法及程序实现
1．解析算法的概念 ①解析：用数学公式描述客观事物间的数量关系。 ②解析算法：用解析的方法找出表示问题的前提条件 与结果之间关系的数学表达式，并通过表达式的计算来实 现问题的求解。 例如：计算以速度v作为匀速直线运动的一个物体， 在t秒内经过的距离s，则可通过公式s＝vt得到。
1. 计算长方体体积的算法描述如下： ①输入长方体的长(z)、宽(w)、高(h) ②计算长方形体积v＝z*w*h ③输出结果 ④结束 上述算法属于 A．枚举算法 B．排序算法 C．解析算法 D．递归算法
( C )
2. 下列问题适合用解析算法求解的是 ( C ) A．将十三张纸牌按从小到大进行排列 B．统计100内偶数的各位数字之和恰好为10的个数 C．计算一辆车行驶100公里的油耗 D．寻找本年级身高最高的同学
End If Label1.Caption ＝_②_________ End Sub 划线处应填写的正确的语句是
a=b And a=c (1)划线处 ① ______________________ st （2）划线处 ② ______________________
注：该示例程序在素材文件夹下vb8文件夹中。
4．出租车计价规则：3公里以内，10元；超出3公里每公里 增加2元。假定公里数为x，金额为y。解决此问题的公式 和流程图如下图所示： 流程图加框处部分的算法 属于 ( A ) A．解析算法 B．排序算法 C．枚举算法 D．递归算法
5. 现要求编写VB程序实现如下功能：分别在文本框Text1、Text2 和Text3中输入三条线段的长度，单击“判断”按钮Command1 后，在标签Label1中显示判断结果。程序运行界面如下图所示：
7. 用解析算法求物体重力的VB程序代码如下： Private Sub Command1_Click() Dim g As Single Dim m As Single m ＝ Val(Text1.Text) g ＝ m * 9.8 Label1.Caption ＝ Str(g) End Sub
程序界面如下图所示：
按此要求编写的程序如下：
Private Sub Command1_Click() Dim a As Single, b As Single Dim c As Single, st As String a ＝ Val(Text1.Text) b ＝ Val(Text2.Text) c ＝ Val(Text3.Text) If Not (a＋b>c And b＋c > a And c＋a > b) Then st ＝ “这三条线不能构成一个三角形" ElseIf a*a＋b*b＝c*c Or a*a＋c*c＝b*b Or b*b＋c*c＝a*a Then st ＝ " 可以构成一个直角三角形" ElseIf_①______________________Then st ＝ " 可以构成一个等边三角形" Else st ＝ “可以构成一个不等边斜三角形”
Private Sub Command1_Click() Dim n As Single Dim c As Single Dim m As Integer n ＝ Int(Val(Text1.Text)) c ＝ n * 0.03 m ＝ __________________________________ Label2.Caption ＝ “你需要购买” ＋ Str(c) ＋ “尺(“ ＋ Str(m) ＋ ”)码的裤子” End Sub 程序划线处应填入的内容是 Int(n*0.3+7) ____________________________________ 。 注：该示例程序在素材文件下vb10文件夹中。
2．解析算法的程序实现 ①建立正确的数学模型(得出正确的数学计算式) ②将数学表达式转换为VB表达式 用VB编制解析算法程序时，必须保证计算过程描述的 正确性。特别是把数学表达式转换成VB表达式时，必须注 意这种转换的正确性，否则容易发生运算结果错误或运行 过程出错。
本课的重点是解析算法及其程序实现。通过本节课的学习，复 习并掌握VB程序设计语言的基本运算符、表达式、赋值语句等内 容，特别是表达式的书写。考查方式为选择题与填空题。
在文本框输入15，单击“计算”按钮Command1后，标签 147 。 Label1中显示的内容是______ 注：该示例程序在素材文件夹下vb9件夹中。
8. 根据臀围计算裤子尺寸的换算有以下公式： ①尺＝厘米*0.03；②码＝厘米*0.3＋7。 如臀围为90厘米，那么在购买时需要选2.7尺(90*0.03)也即34码(90*0.3+7)的裤 子。下面VB程序可用于解决此实际问题，程序运行界面如下图所示。 运行程序，在文本框Text1中输入臀围，单击“计算”按钮Command1，在标 签Label2中显示裤子购买的参考尺寸，程序代码如下：
6. 下列VB程序段实现计算s＝1＋1/2＋2/3＋3/4＋…＋ 99/100的值。请将下面划线处的代码补充完整。 Private Sub Command1_Click() Dim i As Integer Dim s As Double s＝1 For i ＝ 2 To 100 s ＝ ________ Next i text1.Text ＝ Str(s) End Sub s+(i-1)/i 程序划线处应填入的内容是______________________。
3. 有如下问题： 1 2 ①已知圆锥的半径ｒ和高度ｈ，使用公式Ｖ锥＝ r h 求出 3 此圆锥体的体积。 ②已知班级每位同学的期中成绩总分s，按照s的值从大到小 进行成绩排名。 ③已知圆的周长s，利用公式ｒ＝s/(2*3.14)求出圆的半径r。 ④已知“水仙花数”的定义，找出1~10000范围内所有的水 仙花数。 用计算机解决上述问题时，适合用解析算法的是（ B ） A．①② B．①③ C．③④ D．②④
第三章 算法的程序实现
3.1 解析算法及程序实现
1．解析算法的概念 ①解析：用数学公式描述客观事物间的数量关系。 ②解析算法：用解析的方法找出表示问题的前提条件 与结果之间关系的数学表达式，并通过表达式的计算来实 现问题的求解。 例如：计算以速度v作为匀速直线运动的一个物体， 在t秒内经过的距离s，则可通过公式s＝vt得到。
1. 计算长方体体积的算法描述如下： ①输入长方体的长(z)、宽(w)、高(h) ②计算长方形体积v＝z*w*h ③输出结果 ④结束 上述算法属于 A．枚举算法 B．排序算法 C．解析算法 D．递归算法
( C )
2. 下列问题适合用解析算法求解的是 ( C ) A．将十三张纸牌按从小到大进行排列 B．统计100内偶数的各位数字之和恰好为10的个数 C．计算一辆车行驶100公里的油耗 D．寻找本年级身高最高的同学
End If Label1.Caption ＝_②_________ End Sub 划线处应填写的正确的语句是
a=b And a=c (1)划线处 ① ______________________ st （2）划线处 ② ______________________
注：该示例程序在素材文件夹下vb8文件夹中。
4．出租车计价规则：3公里以内，10元；超出3公里每公里 增加2元。假定公里数为x，金额为y。解决此问题的公式 和流程图如下图所示： 流程图加框处部分的算法 属于 ( A ) A．解析算法 B．排序算法 C．枚举算法 D．递归算法
5. 现要求编写VB程序实现如下功能：分别在文本框Text1、Text2 和Text3中输入三条线段的长度，单击“判断”按钮Command1 后，在标签Label1中显示判断结果。程序运行界面如下图所示：
7. 用解析算法求物体重力的VB程序代码如下： Private Sub Command1_Click() Dim g As Single Dim m As Single m ＝ Val(Text1.Text) g ＝ m * 9.8 Label1.Caption ＝ Str(g) End Sub
程序界面如下图所示：
按此要求编写的程序如下：
Private Sub Command1_Click() Dim a As Single, b As Single Dim c As Single, st As String a ＝ Val(Text1.Text) b ＝ Val(Text2.Text) c ＝ Val(Text3.Text) If Not (a＋b>c And b＋c > a And c＋a > b) Then st ＝ “这三条线不能构成一个三角形" ElseIf a*a＋b*b＝c*c Or a*a＋c*c＝b*b Or b*b＋c*c＝a*a Then st ＝ " 可以构成一个直角三角形" ElseIf_①______________________Then st ＝ " 可以构成一个等边三角形" Else st ＝ “可以构成一个不等边斜三角形”
Private Sub Command1_Click() Dim n As Single Dim c As Single Dim m As Integer n ＝ Int(Val(Text1.Text)) c ＝ n * 0.03 m ＝ __________________________________ Label2.Caption ＝ “你需要购买” ＋ Str(c) ＋ “尺(“ ＋ Str(m) ＋ ”)码的裤子” End Sub 程序划线处应填入的内容是 Int(n*0.3+7) ____________________________________ 。 注：该示例程序在素材文件下vb10文件夹中。
2．解析算法的程序实现 ①建立正确的数学模型(得出正确的数学计算式) ②将数学表达式转换为VB表达式 用VB编制解析算法程序时，必须保证计算过程描述的 正确性。特别是把数学表达式转换成VB表达式时，必须注 意这种转换的正确性，否则容易发生运算结果错误或运行 过程出错。
本课的重点是解析算法及其程序实现。通过本节课的学习，复 习并掌握VB程序设计语言的基本运算符、表达式、赋值语句等内 容，特别是表达式的书写。考查方式为选择题与填空题。