Pascal程序设计(第5课)-While和Repeat循环.ppt

看下列程序的功能： Program Exam12； Var a: byte； Begin While a:=200 do BEGIN Writeln (a)； A:=a+1; END; Readln * * 第5课 【回顾】 在Pascal中，实现循环程序设计的语句有三种： For语句：规定循环次数的循环形式； While语句：满足条件时执行循环的形式； Repeat语句：反复执行直到满足条件停止的循环形式。 在Pascal中，实现循环结构的For语句的一般形式为： For 循环变量 := 初值 To 终值 Do 循环体 For语句还有另外的一种形式： For 循环变量 := 初值 Downto 终值 Do 循环体 输入10个学生成绩，分别统计出成绩在85-100分，60-85分和60分以下的各分数段的人数并输出。 If 条件 then 语句 else 语句； For 循环变量=初值 to 终值 do 循环体 参考格式 【复习题】 参考 【While语句循环结构 】 While语句的一般形式是： While 布尔表达式 Do 循环体 程序的执行过程为： (1)检查布尔表达式的值，如果它为真，则执行循环体 ； (2)执行完循环体之后，再次检查布尔表达式的值，如果仍为真，继续执行循环体，否则结束循环； (3)执行While语句后面的语句。 注意：While循环体中一定要有能改变布尔变量值的语句，否则循环将不能结束，而形成死循环。 ★例：输入一串字符，以“?”结束，统计输出其中的字母个数和数字个数。 分析：首先读如第一个字符，如果不是“?”，执行循环。在循环中，判断它是否是字母，若是将x的值加1，否则判断判断它是否是数字，若是将y的值加1，然后读入下一个字符，如果不是“?”，继续执行循环，直到输入“?”时结束循环，输出结果。 算法：1、将存放字母和数字个数的变量x和y置零； 2、读入第一个字符； 3、while ch’?’ do Begin 4、 If (ch=’a’)and(ch=’z’) 5、 Then x:=x+1 6、 Else If (ch=’0’)and(ch=’9’) {字符形式} 7、 Then y:=y+1； end; 8、输出x 和y。 ★例：输入一串字符，以“?”结束，统计输出其中的字母个数和数字个数。 Program c1（input,output）； Var ch:char； x,y:integer； Begin 　 x:=0； {将字母个数清0} y:=0； {将数字个数清0} read(ch)； while ch’?’ do begin If (ch=’a’)and(ch=’z’) Then x:=x+1 Else If (ch=’0’)and(ch=’9’) Then y:=y+1； read(ch)； end; writeln(‘x=’,x,’y=’,y )； End. 参考程序： 【Repeat语句循环结构 】 Repeat语句的一般形式是： Repeat 循环体 Until 布尔表达式 程序的执行过程为： (1) 执行循环体； (2) 检查Until后的布尔表达式的值，直到布尔表达式为真时结束循环 ； (3) 执行Repeat语句后面的语句。 【while和Repeat的主要区别】 a、Repeat语句是在执行完循环体后才检查布尔表达式的值，所以循环至少执行一次；而while语句是在执行循环体以前检查布尔表达式的值，有可能一次循环也不执行（布尔