pascal第4章 循环结构程序设计.pptVIP

第四章 循环结构; 在实际应用中，会经常遇到许多有规律性的重复运算，这就需要掌握本章所介绍的循环结构程序设计。在Pascal语言中，循环结构程序通常由三种的循环语句来实现。它们分别为FOR循环、当循环和直到循环。通常将一组重复执行的语句称为循环体，而控制重复执行或终止执行由重复终止条件决定。重复语句是由循环体及重复终止条件两部分组成。 ;第一节 循环语句（FOR语句）;for语句的一般格式 ;For语句执行过程 ;说明 ;应用举例 ;;例4.3 将顺序打印出26个小写英文字母 : abc…zz…cba。 程序如下： Program ex4_3; var k : char; begin for k : =a to z do write(k); for k : =z downto a do write(k); writeln; end.;例4.4 N的阶乘是指1到N的累乘，即N！=1*2*3*…*N ，输入一个数，求这个数的阶乘？ 程序如下： Program ex4_4; var n,i : integer； // i为循环变量 s : longint; //s存放阶乘的结果，类型为长整 型，防止结果太大 begin 　readln(n); 　s := 1; //这条语句少了，选手们思考一 下，会出现什么现象? 　for i := 2 to n do //从2到n累乘到s中 　　s := s*i; 　writeln(s); //输出n!的值 end. 虽然s定义成longint，但输入12以上的数时，还是会出现错误的结果，说明结果超出了longint能够储存的范围，这时需要定义更大的类型，如int64，或干脆定义成实型变量用科学计数法来近似表示这个数，如real、extended。; 上例中用到了“递推”算法。所谓递推算法是指在一个数的序列值中，下一项的值在前一项的值的基础上推算出来的，即下一项对前一项有某种依赖关系。例如，为求5!，应先知道4!的值，然后再乘以5；为求6!必先求出5！。也就是说，从1！可以推出2！，从2！可以推出3！，从3！可以推出4！，以此类推。求n!的递推公式为： a1=1 (n=1) an=n*an-1 (n1) a1=1是“初始条件”或“边界条件”。只要找出递推关系，就可以由循环来处理，一项一项地推??出来以后各项。在程序中用同一个变量s来存储每一次推出来的值，由前一个s推出后一个s是递推。 ;例4.5 已知一对兔子，每个月可以生一对小兔，而小兔经过一个月生长后也可每月生一对小兔。即兔子的对数是：第一个月1对，第二个月2对，第三个月3对，第四个月5对，…，假设兔子的生育期是12个月，并且不死，问一年后，这对兔子有多少对活着的后代？ 【分析】 根据题目给出的条件，得到算法：设当前月兔子有x对，它的前一个月有lastx对，前二个月有prevx对，明显存在一个递推关系，即x=lastx+prevx。 Program ex4_5; Var i,lastx,prevx,x : integer; begin prevx : =1; lastx : =2; for i : =3 to 12 do begin x : =lastx+prevx; prevx : =lastx; lastx : =x; end; writeln(x); end.;例4.6 一个两位数x，将它的个位数字与十位数字对调后得到一个新数y，此时y恰好比x大36，请编程求出所有这样的两位数。 【分析】① 用for循环列举出所有的两位数，x为循环变量； ② 用公式a:= x div 10分离出x的十位数字； ③ 用公式b:= x mod 10分离出x的个位数字； ④ 用公式y:= b*10+a合成新数y； ⑤ 用式子y-x=36筛选出符合条件的数x并输出。 Program ex4_6; var a,b,x,y:integer; begin for x :=