Pascal程序设计(第3课)—For循环.ppt

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

Pascal语言;【回顾】;复合语句是一个以begin开头,以end结束的若干条语句组成的语句序列。 复合If语句:在if语句中,then和else后的语句也可能是if语句,此时称为if语句的嵌套,或复合if语句。 IF <条件1> THEN <语句1> ELSE IF <条件2> THEN <语句2> ELSE <语句3>;;【循环结构 】 ;【For语句循环结构 】 ;【For语句循环结构 】 ; For 循环变量 := 初值 To 终值 Do 循环体 注意事项:;★例1:计算1+2+3+···+100之和。 ;★例1:计算1+2+3+···+100之和。 ;★例2:读入10个数,计算它们的和、积、平均值。 ; Program b2(input,output); Var x,s,m,a:real; i:integer; Begin   s:=0; m:=1; For i:=1 to 10 do begin read(x); s:=s+x; m:=m*x; end; { For } a:=s/10; writeln(‘sum=’,s,’mul=’,m,’ave=’,a ); End.;在累加之前,累加单元一定要清0,否则它原来可能是任意数,这样在第一次累加时就不对了。 同样,累乘求积前,累乘单元一定要置1,否则它原来可能是任意数,这样在第一次累乘时就不对了。 清0和置1必须在循环之前做。 ;★例3:输入20个数,求出其中的最大值和最小值。 ;★例3:输入20个数,求出其中的最大值和最小值。 ;★例4:按正序和反序输出26个英文字母。 ;★例4:按正序和反序输出26个英文字母。 ;练习1:计算n!,其中n由键盘输入。 练习2:输入10个学生成绩,分别统计出成绩在85-100分,60-85分和60分以下的各分数段的人数。 练习3:计算ex,lnx。其中x=1,2,3,…10。 ;Program lianxi1(input,output); Var n,i:integer; fac:real; Begin   readln(n); fac:=1; For i:=2 to n do fac:= fac*i; Writeln(n,‘!=’,fac); End.;练习2:用键盘输入30个学生成绩,分别统计出成绩在85-100分,60-85分和60分以下的各分数段的人数。;Program lianxi1(input,output); Var i:integer; x,y:real; Begin   Writeln(‘ x’,’ exp(x) ’,’ ln(x) ’); For i:=1 to 10 do begin x:= exp(i); y:=ln(i); Writeln(i,x:13,y:13); end; readln; End.

文档评论(0)

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

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

1亿VIP精品文档

相关文档