网站大量收购独家精品文档,联系QQ:2885784924

1-1、算法及程序实现专题(学考部分)教程.pptx

1-1、算法及程序实现专题(学考部分)教程.pptx

  1. 1、本文档共76页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
1-1、算法及程序实现专题(学考部分)教程

专题 算法及程序实现;1、算法的基本概念;2、算法的常用表示方法;3、算法流程的三种控制结构;例2. 下列问题不能用算法描述的是 (  ) A.已知a、b、c的值,求一元二次方程ax +bx+c=0(a≠0) 的实数根 B.计算某个班级学生身高的平均值 C.列出方程y=2x+1的所有实数解 D.根据三角形三边长度求三角形面积;;1、基本概念;常见属性名及其含义;对象;2、VB的基本数据类型、常量、变量、数组和常用标准函数;( );例:Const pi=3.14;例:下列可以作为VB变量名的是( ) A.3D B.x_y C.x+y D.π;④数组变量;例:读程序写结果;算术类;函数名;1.在Visual Basic中,表达式Abs(-3.6) * Sqr(100)的值是 ( ) (A)36 (B)360 (C)-36 (D)-360;3、三种基本结构;;【例2】在Visual Basic中,给变量a,b,c均赋值为1,则下列语句正确的是( ) (A)a = 1, b = 1,c = 1(B)a = 1: b = 1: c = 1 (C)a = 1; b = 1;c = 1(D)a = b = c = 1;块格式:If 〈条件表达式〉Then 语句块 End If;块格式:If 条件表达式 Then 语句块1 Else 语句块2 End If 行格式:If 条件表达式 Then 语句块1 Else 语句块2;;3. If…Then …Else If… 结构 ;开始;For 循环变量=初值 To 终值 Step 步长 语句块 Next 循环变量 ; For…Next循环程序举例;x = 2 For y = 1 To 8 Step 3 x = x + y Next y Text1.Text=Str(x);; 2. Do While … Loop语句; Do While…Loop循环程序举例;已知T=1+2+3+…+N,求T500的最小值,并输出N的值。;说明:在使用Do语句时,必须注意条件表达式中的变量值的变化方式。一般情况下,在循环过程中,必须至少有一次条件表达式的计算结果为假,否则将会出现无限循环的情况。;解析算法是指用解析的方法找出表示问题的前提条件与结果之间关系的数学表达式,并通过表达式的计算来实现问题求解。;【例题1】计算并联电阻的总阻值(一) 把2个电阻的两端分别连在一起,称为“2个电阻的并联”。;【例题2】一元二次方程求解 一元二次方程ax2+bx+c=0(a≠0),输入方程系数a、b、c,求方程的解。 根据一元二次方程的求解方法,首先需要判别b2-4ac的结果是大于0、小于0还是等于0,然后才能用求根公式进行计算。 所以我们需要使用选择模式,根据条件判别的不同结果,输出两个解、一个解、“无解”。;枚举算法就是按照问题本身的性质,一一列举出该问题所有可能的解,并在逐一列举的过程中,检验每个可能的解是否是问题真正的解,若是,我们采纳它,否则,抛弃它。 设计枚举算法时要在尽可能小的范围内罗列出所有可能的情况,不能遗漏,也不能重复。;【例1】装箱问题:包装1200个变形金刚,要求是: (1)包装规格分别是:小盒(每盒5个)和大盒(每盒12个); (2)每种规格的盒数可任意,但每盒都必须装满。 分析:5X+12Y=1200;【例2】小明的126邮箱密码忘记了,但他还零星记得有关于密码的一些信息: (1)密码是八位数字,前面两位为19; (2)最后两位数字是91; (3)能被77和133整除。 程序界面如图所示,单击“寻找密码”按钮(Command1)后,可能的密码显示在列表框List1中。; 解决此问题的相应程序如下: Private Sub Command1_Click()   Dim i As Long, s As Long   For i = 0 To 9999     s =    ①        If s Mod 77 = 0 And s Mod 133 = 0 Then     ??  ②        End If   Next i End Sub;( )

文档评论(0)

shuwkb + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档