循环语句FOR、WHILE、REPEAT.ppt

《循环语句FOR、WHILE、REPEAT.ppt》由会员分享，可在线阅读，更多相关《循环语句FOR、WHILE、REPEAT.ppt（13页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、循环结构程序设计循环结构程序设计FORWHILEREPEAT引例计算计算ex,lnx。其中。其中x=1,2,3,，10讨论：该例要求对讨论：该例要求对10个个x计算出计算出10个个ex值和值和10个个lnx值。若用顺序程序设计，可值。若用顺序程序设计，可以以 写出如下语句：写出如下语句：X:=1Y:=exp(x);Z:=ln(x);Writeln(x,y,z);X:=x+1Y:=exp(x);Z:=ln(x);Writeln(x,y,z);X:=x+1Y:=exp(x);Z:=ln(x);Writeln(x,y,z);这样需要写出这样需要写出10组语句，每组包括组语句，每组包括4个语句，个语句

2、，共计共计40个语句。个语句。能不能只写一组语句，让它重复执行能不能只写一组语句，让它重复执行10次，次，完成同样的要求，而程序语句数却大大减少完成同样的要求，而程序语句数却大大减少呢？呢？For循环语句（递增型）For :=To Do 真真假假循环变量：初值循环变量：初值循环变量循环变量终值终值循环体循环体循环变量循环变量:=SUCC(循环变量循环变量)1、循环变量的初、终值可以是表达式（其特、循环变量的初、终值可以是表达式（其特例是常量或变量）例是常量或变量）2、循环变量必须与初、终值的类型相同，且、循环变量必须与初、终值的类型相同，且只能是有序类型。只能是有序类型。3、循环变量必须在包括

3、该循环的最内分程序、循环变量必须在包括该循环的最内分程序中说明它的类型。中说明它的类型。4、循环体可以是任何单个语句或由多个语句、循环体可以是任何单个语句或由多个语句组成的复合语句。组成的复合语句。5、在循环执行前，根据初、终值表达式计算、在循环执行前，根据初、终值表达式计算初、终值，并由此决定循环的次数及循环变初、终值，并由此决定循环的次数及循环变量的取值。在循环体中对初、终值表达式值量的取值。在循环体中对初、终值表达式值的改变不会影响循环次数及循环变量的取值。的改变不会影响循环次数及循环变量的取值。6、在循环体中不允许用任何语句改变循环变、在循环体中不允许用任何语句改变循环变量的值。量的值

4、。7、从、从FOR循环退出时，循环变量的值是无定循环退出时，循环变量的值是无定义的，不得使用。义的，不得使用。8、如果初值大于终值，循环体将根本不执行。、如果初值大于终值，循环体将根本不执行。a:=1;b:=10For i:=a to b dobegin a:=5;b:=4;Writeln(i:8);End;输出结果：输出结果：12345678910For循环语句（递减型）For :=downto Do 真真假假循环变量：初值循环变量：初值循环变量循环变量终值终值循环体循环体循环变量循环变量:=SUCC(循环变量循环变量)如果初值小于终值，如果初值小于终值，如果初值小于终值，如果初值小于终值，

5、循环体将根本不执行。循环体将根本不执行。循环体将根本不执行。循环体将根本不执行。计算计算ex,lnx。其中。其中x=1,2,3,，10Program expln(input,output);Var x:integer;y,z:real;Begin writeln(x:12,exp(x):12,ln(x):16);for x:=1 to 10 do begin y:=exp(x);z:=ln(x);writeln(x,y,z);endEnd.实例：读入实例：读入实例：读入实例：读入1010个数，计算它们的和与积以及平均值个数，计算它们的和与积以及平均值个数，计算它们的和与积以及平均值个数，计算它

6、们的和与积以及平均值算法：算法：1、设置累加器、设置累加器sum、累乘器、累乘器mul。2、FOR i:=1 to 10 do begin 3、读入、读入X 4、将、将X加到累加器加到累加器sum上上 5、将、将X乘到累乘器乘到累乘器mul上上 end6、计算平均值、计算平均值ave7、输出、输出sum、mul、ave Program sma(input,output);Var X,sum,mul,ave:real;i:integer;begin sum:=0;mul:=1;for i:=1 to 10 do begin read(x);write(x);if i mod 5=0 then w

7、riteln;sum:=sum+x;mul:=mul*x;end;ave:=sum/10;Writeln(sum=,sum,mul=,mul,ave=,ave);End.求菲波拉契数列什么是菲波拉契数列？a0=0 a1=1 a2=a0+a1 a3=a1+a2 an=an-2+an-1按此定义得到的菲波拉契数列是：0，1，1，2，3，5，8，13，21算法：算法：1、将、将a0置置0，a1置置1，输出，输出a0,a1。2、FOR I:=2 TO 20 DO BEGIN 3、计算、计算a2:=a0+a1 4、输出、输出a2 5、a0:=a1;a1:=a2 endProgram fibo(input

8、,output);var a0,a1,a2,i:integer;begin a0:=0;a1:=1;write(a0,a1);for i:=2 to 20 do begin a2:=a0+a1;write(a2);if i mod 5=0 then writeln;a0:=a1;a1:=a2;end end.While语句While do 布尔表达式布尔表达式循环体循环体真真假假FORFOR语句用于循环次数已知的情况，其循环次数由初、终值决定，语句用于循环次数已知的情况，其循环次数由初、终值决定，语句用于循环次数已知的情况，其循环次数由初、终值决定，语句用于循环次数已知的情况，其循环次数由初、

9、终值决定，那么循环次数未知的情况下，该如何处理呢？那么循环次数未知的情况下，该如何处理呢？那么循环次数未知的情况下，该如何处理呢？那么循环次数未知的情况下，该如何处理呢？注意：注意：注意：注意：WHILEWHILE语句中一定要有能语句中一定要有能语句中一定要有能语句中一定要有能改变布尔表达式值的语，否则循改变布尔表达式值的语，否则循改变布尔表达式值的语，否则循改变布尔表达式值的语，否则循环将不会结束（死循环）。环将不会结束（死循环）。环将不会结束（死循环）。环将不会结束（死循环）。算法：1、将计数器清零。2、读入字符ch。3、while ch不是？do begin 4、判断是字母、数字或其他符

10、号，并将相应计数器加1。5、读入下一个ch end6、输出字母个数、数字个数或其他符号的个数。例如：输入一串字符，以例如：输入一串字符，以？结束，统计结束，统计其中字母个数，数字个数，其他符号个数。其中字母个数，数字个数，其他符号个数。program count(input,output);var ch:char;num1,num2,num3:integer;begin num1:=0;num2:=0;num3:=0;read(ch);write(ch);while ch?do begin if(ch=a)and(ch=A)and(ch=0)and(ch=9)then num2:=num2+1

11、 else num3:=num3+1;read(ch);write(ch);end;writeln;writeln(num1);writeln(num2);writeln(num3);end.Repeat语句Repeat Until循环体循环体布尔表达式布尔表达式真真假假注意：注意：注意：注意：REPEATREPEAT语句中一定要有语句中一定要有语句中一定要有语句中一定要有能改变布尔表达式值的语，否则能改变布尔表达式值的语，否则能改变布尔表达式值的语，否则能改变布尔表达式值的语，否则循环将不会结束（死循环）。循环将不会结束（死循环）。循环将不会结束（死循环）。循环将不会结束（死循环）。Whil

12、e与repeat的区别whilerepeat有可能一次也不执行重复语句至少执行一次多条语句用begin和endrepeat和until 起到了语句括号的作用布尔表达式为false时结束 布尔表达式为true时结束利用泰勒公式求e的值，直到最后一项小于10-7为止。泰勒公式如下：e=1+1/1!+1/2!+1/3!+1/n!算法：1、读入x。2、置sum、term初值为x3、repeat 4、计算下一项term 5、将下一项加到sum中 until term的绝对值小于10的-7次幂6、输出和sum每一项单独计算比较麻烦，也浪费机时。可以利用前一项求下一每一项单独计算比较麻烦，也浪费机时。可以利

13、用前一项求下一项的方法（称递推计算方法）来计算。项的方法（称递推计算方法）来计算。我们让多项式的每一项与一个变量我们让多项式的每一项与一个变量n相对应，其相对应，其n的值依次为的值依次为1,3,5,7,。从多项式的前一项算后一项，只需将前一项乘一个。从多项式的前一项算后一项，只需将前一项乘一个因子：因子：-x2/(n-1)/n即可。即可。例如根据例如根据x5/5!算下一项，只需作如下计算：算下一项，只需作如下计算：(x5/5!)*(-x2/(6*7)=-x7/7!注意此时注意此时n=7Program sinx(input,output);const eps=1e-7;var x,term,su

14、m:real;n:integer;begin read(x);writeln(x=,x);n:=1;term:=x;sum:=x;repeat n:=n+2;term:=term*(-x*x)/(n-1)/n;sum:=sum+term until abs(term)eps;writeln(sin(x)=,sum);End.练 习1、计算N！，其中n由键盘输入。2、按正序和反序输出26个英文字母。3、输入20个学生的成绩，分别统计成绩在85-100分（含85），60-85分（含60）和60分以下，各分数段中的人数。4、输入20个数，求出其中的最大值和最小值。5、求：100-999中的水仙花数。（若abc=a3+b3+c3,则称abc为水仙花数。例如：153，13+53+33=1+125+27=153）6、编程求下列中n的最大值：22+42+62n215007、时钟每到i（i=1，2，3，24）点敲i下，每半点敲1下，请计算时钟一昼夜共敲多少下？8、编写一个猜数的游戏，游戏的规则是：游戏参与者有10次猜数的机会，每次在0100之间猜一个整数，若猜对则给予肯定，若猜错则给出提示，10次仍未猜对即结束游戏。