- 1、本文档共22页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
第二章算法实例解析算法分析
算法实例;什么是解析算法(analysis algorithm) ;[例1]计算并联电阻的总阻值;例3:计算n个并联电阻r的总阻值,输入0表示输入结束。;开始;开始;;;A ;例2:输入一元二次方程ax2+bx+c=0的系数a、b、c (a0),计算一元二次方程的根。;? 用流程图来描述;现要求编写VB程序实现如下功能:分别在文本框Text1、Text2和Text3中输入三条线段的长度,单击“判断”按钮Command1
后,在标签Label1中显示判断结果。程序运行界面如下图所示:;s+(i-1)/i ;用解析算法求物体重力的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;根据臀围计算裤子尺寸的换算有以下公式:
①尺=厘米*0.03;②码=厘米*0.3+7。
如臀围为90厘米,那么在购买时需要选2.7尺(90*0.03)
也即34码(90*0.3+7)的裤子。下面VB程序可用于解决
此实??问题,程序运行界面如下图所示。
运行程序,在文本框Text1中输入臀围,单击“计算”
按钮Command1,在标签Label2中显示裤子购买的参
考尺寸,程序代码如下:;某书店出租图书的费用标准如下:借书一天内,收费2元;借书超过一天的,超过部分按每天0.8元收取。最后费用按四舍五入折算成整数。程序算法结构与运行界面如下图所示。;下列VB程序实现如下功能:程序运行时,在文本框Text1和Text2中分别输入x和n的值,单击命令按钮Command1后,调用函数f计算s的值,并在文本框Text3中显示计算结果。其中;;;加框处代码有误,请修正。
(1)加框①处应改为_________________。
(2)加框②处应改为_________________。
(3)加框③处应改为_________________________________。
注:该示例程序在素材文件夹下vb12文件夹中。;小 结;作 业
文档评论(0)