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

循环结构与数组ppt课件.pptx

  1. 1、本文档共27页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
. 循环结构与数组 名师归纳综合总结@欢迎下载#可编辑!!!!! . 循环结构 循环控制结构为计算机程序描述重复计算提供控制手段。一个循环控制结构需指明以下三件事情中的两件: 被循环执行的语句; 是否循环的条件; 详细指明循环方式。 在PASCAL语言,用while,repeat和for三种语句描述循环控制结构 名师归纳综合总结@欢迎下载#可编辑!!!!! . 例:求S=1+2+3+…+100的值 分析:用S统计所有的和,如果每次加一个数值,需要做100次赋值。 从上面的语句可以看出:上述这100个赋值语句有一个共同的特点,都可以抽象成S:=S+i的形式。其中i从1变化到100。为了简化程序设计,因此有必要采用可以用来重复运行某些语句段的程序结构——这就是循环结构。 名师归纳综合总结@欢迎下载#可编辑!!!!! . 计数循环——For 语句 For 语句有两种形式,它们的格式分别是: (1)递增循环:for 控制变量 := 表达式1 to 表达式2 do 语句 (2)递减循环:for 控制变量 := 表达式1 downto 表达式2 do 语句 名师归纳综合总结@欢迎下载#可编辑!!!!! . For循环语句使用说明: (1)我们一般把表达式1称为记数循环的初值,表达式2称为记数循环的终值。 (2)for语句中的初值、终值、控制变量的数据都必须是顺序类型,且类型赋值相容。 (3)当初值和终值确定后,循环的次数就确定不变了,并且在重复语句内不能对控制变量施加任何赋值操作。 (4)Do后面的语句可以是任何一种语句,我们一般称其为循环体。 名师归纳综合总结@欢迎下载#可编辑!!!!! . 例:求S=1+2+3+…+100的值 程序代码段: Var i,s:integer; begin S:=0; For i:=1 to 100 do s:=s+i; Writeln(‘s=’,s); End. 分析:用S统计所有的和,如果每次加一个数值,需要做100次赋值。 从上面的语句可以看出:上述这100个赋值语句有一个共同的特点,都可以抽象成S:=S+i的形式。其中i从1变化到100。为了简化程序设计,因此有必要采用可以用来重复运行某些语句段的程序结构——这就是循环结构。 名师归纳综合总结@欢迎下载#可编辑!!!!! . 例:按正、反两种顺序输出26个大写英文字母 var ch:char; begin for ch:= ‘A’ to ‘Z’ do write(ch); writeln; for ch:=’Z’ downto ‘A’ do write(ch); end. 名师归纳综合总结@欢迎下载#可编辑!!!!! . 例:Nocomachns定理 任何一个n3一定可以表示成n个连续的奇数和。输入n(n≤100),输出n3对应的表达式。 var i,n,a:longint; {循环变量,连续的奇数个数,当前项,类型为长整型} begin readln(n); {输入连续的奇数个数} a:=(n*(n-1))+1; { 计算最小奇数} for i:=1 to n-1 do {输出表达式的前n-1项} begin write(a,’+’);a:=a+2; end; writeln(a); {输出第n项} readln; end.{main} 名师归纳综合总结@欢迎下载#可编辑!!!!! . 例:百鸡问题 一只公鸡值5钱,一只母鸡值3钱,而1钱可买3只小鸡。现有100钱,想买100只鸡。问可买公鸡、母鸡、小鸡各几只? 我们通过两重for循环枚举出公鸡和母鸡的所有可能只数。在确定当前公鸡只数为i、母鸡只数为j的情况下, 计算小鸡只数k=100-i-j。然后通过下述布尔表达式 i*5++j*3+k/3=100 判断当前100只鸡的总价值是否为100钱。如果是,则输出i、j和k。 var i,j,k:integer; begin for i:=1 to 20 do for j:=1 to 33 do begin k:=100-i-j; if i*5+j*3+k/3=100

文档评论(0)

润哈哈 + 关注
官方认证
内容提供者

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

认证主体广州乾星科技有限公司
IP属地广东
统一社会信用代码/组织机构代码
91440101MA5B6X8T7Y

1亿VIP精品文档

相关文档