资源描述：
《循环语句FOR、WHILE、REPEAT》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
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个语句，共计40个语句。能不能只写一组语句
2、，让它重复执行10次，完成同样的要求，而程序语句数却大大减少呢？For循环语句（递增型）For<循环变量>:=<初值>To<终值>Do<循环体>真假循环变量：＝初值循环变量≤终值循环体循环变量:=SUCC(循环变量)1、循环变量的初、终值可以是表达式（其特例是常量或变量）2、循环变量必须与初、终值的类型相同，且只能是有序类型。3、循环变量必须在包括该循环的最内分程序中说明它的类型。4、循环体可以是任何单个语句或由多个语句组成的复合语句。5、在循环执行前，根据初、终值表达式计算初、终值，并由此决定循环的次数及循环
3、变量的取值。在循环体中对初、终值表达式值的改变不会影响循环次数及循环变量的取值。6、在循环体中不允许用任何语句改变循环变量的值。7、从FOR循环退出时，循环变量的值是无定义的，不得使用。8、如果初值大于终值，循环体将根本不执行。a:=1;b:=10Fori:=atobdobegina:=5;b:=4;Writeln(i:8);End;输出结果：12345678910For循环语句（递减型）For<循环变量>:=<初值>downto<终值>Do<循环体>真假循环变量：＝初值循环变量≥终值循环体循环变量:=SUCC
4、(循环变量)如果初值小于终值，循环体将根本不执行。计算ex,lnx。其中x=1,2,3,……，10Programexpln(input,output);Varx:integer;y,z:real;Beginwriteln(‘x’:12,’exp(x)’:12,’ln(x)’:16);forx:=1to10dobeginy:=exp(x);z:=ln(x);writeln(x,y,z);endEnd.实例：读入10个数，计算它们的和与积以及平均值算法：1、设置累加器sum、累乘器mul。2、FORi:=1to10
5、dobegin3、读入X4、将X加到累加器sum上5、将X乘到累乘器mul上end6、计算平均值ave7、输出sum、mul、aveProgramsma(input,output);VarX,sum,mul,ave:real;i:integer;beginsum:=0;mul:=1;fori:=1to10dobeginread(x);write(x);ifimod5=0thenwriteln;sum:=sum+x;mul:=mul*x;end;ave:=sum/10;Writeln(‘sum=‘,sum,’mu
6、l=‘,mul,’ave=‘,ave);End.求菲波拉契数列什么是菲波拉契数列？a0=0a1=1a2=a0+a1a3=a1+a2···an=an-2+an-1按此定义得到的菲波拉契数列是：0，1，1，2，3，5，8，13，21……算法：1、将a0置0，a1置1，输出a0,a1。2、FORI:=2TO20DOBEGIN3、计算a2:=a0+a14、输出a25、a0:=a1;a1:=a2endProgramfibo(input,output);vara0,a1,a2,i:integer;begina0:=0;a1
7、:=1;write(a0,a1);fori:=2to20dobegina2:=a0+a1;write(a2);ifimod5=0thenwriteln;a0:=a1;a1:=a2;endend.While语句While<布尔表达式>do<循环体>布尔表达式循环体真假FOR语句用于循环次数已知的情况，其循环次数由初、终值决定，那么循环次数未知的情况下，该如何处理呢？注意：WHILE语句中一定要有能改变布尔表达式值的语，否则循环将不会结束（死循环）。算法：1、将计数器清零。2、读入字符ch。3、whilech不是‘
8、？’dobegin4、判断是字母、数字或其他符号，并将相应计数器加1。5、读入下一个chend6、输出字母个数、数字个数或其他符号的个数。例如：输入一串字符，以‘？’结束，统计其中字母个数，数字个数，其他符号个数。programcount(input,output);varch:char;num1,num2,num3:integer;beginnum1:=0;num2:=0;num3:
