算法与程序框图实现 .pptVIP

  1. 1、本文档共13页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  5. 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  6. 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  7. 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  8. 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
算法与程序框图实现 .ppt

思考 程序代码 Dim a, b, x As Integer a = Val(InputBox(输入a)) b = Val(InputBox(输入b)) Print 交换前a=; a, b=; b ----------- ---------- ----------- Print 交换后 a= ; a, b= ; b 算法可以理解成由基本运算和规定的运算顺序所构成的完整的解题步骤,或者看成按照要求设计好的有限的确切的计算序列,并且这样的步骤或序列能解决一类问题。怎样才能设计出一个名副其实的算法呢? 我有2条腿 一个脑袋 我有4条腿 一个脑袋 “一群小兔一群小鸡,两群合到一群中,腿一共有48条,脑袋共有17个,问一共有多少小鸡?多少小兔? 算术方法: 方法二:(48-17×2)÷2=7(只) 相应的小鸡则是17-7=10只 代数方法:设有X只小鸡,Y只小兔,则有: X+Y=17 2X=4Y=48 所以解方程组得X=10; Y=7 (高斯消去法) 这两种算法都可以解决“鸡兔同笼”的问题 (1)有穷性:一个算法必须保证执行有限步后结束; (2)确切性:算法的每一步必须有确切的定义; (3)可行性:算法原则上能够精确地运行,而且人们 用笔和纸做有限次即可完成; (4)输入:一个算法有0个或多个输入,以刻划运算对象的 初始条件。所谓0个输入是指算法本身定出了初始条件。 (5)输出:一个算法有1个或多个输出,以反映对输入 数据加工后的结果。没有输出的算法是毫无意义的。 程序框图又称流程图,是一种用规定的图形,指向线及文字说明来准确、直观地表示算法的图形。 程序框图的概念 程序框 名称 功能 终端框(起止框) 表示一个算法的起始和结束 输入、输出框 表示算法的输入和输出的信息 处理框(执行框) 赋值、计算 判断框 判断一个条件是否成立,用 “Y”、“N”标明 算法的三种基本逻辑结构: 1.顺序结构 2.条件分支结构 3.循环结构 开始 输入 x=a b=a a=x 输出 结束 例1 交换两个变量A和B的值的算法 第一步:输入a,b, 第二步:令x=a, 第三步:令a=b, 第四步:令b=x, 第五步:输出a,b ②条件结构(选择结构) P A B 是 否 例2 任意给定3个正实数,设计一个算法, 判断分别以这3个数为三边边长的三角形是 否存在.画出这个算法的程序框图。 开始 输入a、b、c a+bc,a+cb, b+ca是否同时成立 存在这样的三角形 结束 否 是 不存在这样的三角形 Dim a, b, s As Integer a = Val(InputBox(输入a)) b = Val(InputBox(输入b)) c = Val(InputBox(输入c)) If __________________Then Print a; b; c; 三边可以构成三角形 Else Print a; b; c; 三边不可以构成三角形 End If 请设计一个计算1+2+3+……+100的值的算法,并画出程序框图。 算法分析: 第一步:令i=1,sum=0; 第二步:若i=100成立,则执行第三步;否则,输出s,结束算法; 第三步:sum=sum+i; 第四步:i=i+1,返回第二步。 i=100? i=1 开始 输出sum 结束 否 是 sum=0 i=i+1 sum=sum+i 程序框图如下: ③循环结构 Dim i%, sum% sum = 0 For i = 1 To 100 step 1 _________ Next i Print sum 思考如何求1-100奇数和

文档评论(0)

cnsg + 关注
实名认证
文档贡献者

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

1亿VIP精品文档

相关文档