原创力文档- 1、本文档共20页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 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）