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

《Pascal程序设计(第5课)-While和Repeat循环》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、Pascal语言第5课【回顾】在Pascal中，实现循环程序设计的语句有三种：For语句：规定循环次数的循环形式；While语句：满足条件时执行循环的形式；Repeat语句：反复执行直到满足条件停止的循环形式。在Pascal中，实现循环结构的For语句的一般形式为：For<循环变量>:=<初值>To<终值>Do<循环体>For语句还有另外的一种形式：For<循环变量>:=<初值>Downto<终值>Do<循环体>输入10个学生成绩，分别统计出成绩在85-100分，60-85分和60分以下的各分数段的人数并输出。If<条件>then<语句>else<语句

2、>；For循环变量=初值to终值do<循环体>参考格式【复习题】参考【While语句循环结构】While语句的一般形式是：While<布尔表达式>Do<循环体>程序的执行过程为：(1)检查布尔表达式的值，如果它为真，则执行循环体；(2)执行完循环体之后，再次检查布尔表达式的值，如果仍为真，继续执行循环体，否则结束循环；(3)执行While语句后面的语句。注意：While循环体中一定要有能改变布尔变量值的语句，否则循环将不能结束，而形成死循环。看下列程序的功能：ProgramExam12；Vara:byte；BeginWhilea:<=200doBEGI

3、NWriteln(a)；A:=a+1;END;Readln★例：输入一串字符，以“?”结束，统计输出其中的字母个数和数字个数。分析：首先读如第一个字符，如果不是“?”，执行循环。在循环中，判断它是否是字母，若是将x的值加1，否则判断判断它是否是数字，若是将y的值加1，然后读入下一个字符，如果不是“?”，继续执行循环，直到输入“?”时结束循环，输出结果。算法：1、将存放字母和数字个数的变量x和y置零；2、读入第一个字符；3、whilech<>’?’doBegin4、If(ch>=’a’)and(ch<=’z’)5、Thenx:=x+16、ElseIf(c

4、h>=’0’)and(ch<=’9’){字符形式}7、Theny:=y+1；end;8、输出x和y。★例：输入一串字符，以“?”结束，统计输出其中的字母个数和数字个数。Programc1（input,output）；Varch:char；x,y:integer；Beginx:=0；{将字母个数清0}y:=0；{将数字个数清0}read(ch)；whilech<>’?’dobeginIf(ch>=’a’)and(ch<=’z’)Thenx:=x+1ElseIf(ch>=’0’)and(ch<=’9’)Theny:=y+1；read(ch)；end;wri

5、teln(‘x=’,x,’y=’,y)；End.参考程序：【Repeat语句循环结构】Repeat语句的一般形式是：Repeat<循环体>Until<布尔表达式>程序的执行过程为：(1)执行循环体；(2)检查Until后的布尔表达式的值，直到布尔表达式为真时结束循环；(3)执行Repeat语句后面的语句。【while和Repeat的主要区别】a、Repeat语句是在执行完循环体后才检查布尔表达式的值，所以循环至少执行一次；而while语句是在执行循环体以前检查布尔表达式的值，有可能一次循环也不执行（布尔表达式开始就为假）。b、Repeat语句在布尔表达

6、式为真时结束循环，而while语句在表达式为真时执行循环。★例：计算直到最后一项的绝对值小于10-7时停止计算，其中x由键盘输入。分析：这是一个级数求和的问题，其项数决定于最后一项的绝对值的大小是否小于10-7，如果它大于10-7，继续求下一项，并累加到和上，否则结束求和。设自变量为x，和为sum，每一项为t，都说明为实型。另外定义一个常量w表示误差10-7，可以用来控制精确度。★例：计算直到最后一项的绝对值小于10-7时停止计算，其中x由键盘输入。算法：1、读入x的值；2、置sum和t的初值为x；3、Repeat语句4、计算下一项t；5、将下一项加到

7、sum上；6、Untilt的绝对值小于w，结束Repeat循环；7、输出和sum。其中第4步需要进一步精确，我们可以通过每一项的前一项的值来计算这一项。我们让多项式的每一项与一个变量n相对应，其中n的值依次为1，3，5，7，9……，从多项式的前一项算后一项，只需要将前一个式子乘上一个因子即可。例如根据计算，需要做以下运算：。★例：计算直到最后一项的绝对值小于10-7时停止计算，其中x由键盘输入。Programexample16（input,output）；Constw=1e-7；Varx，sum,t:real；n:integer；Beginread(x

8、)；writeln(‘x=’,x)；n:=1；t:=x；sum:=x；Repeatn:=n+2