- 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)