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

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.