《pascal语言编程之repeat语句》由会员分享，可在线阅读，更多相关《pascal语言编程之repeat语句（9页珍藏版）》请在金锄头文库上搜索。
1、2016年12月,第四章 循环结构程序设计第三节 直到循环（repeat语句）,用while语句可以实现“当型循环”，用repeat-until语句可以实现“直到型循环”。Repeat-until语句的含义是：“重复执行循环，直到制定的条件为真时为止。”直到循环语句的一般形式： repeat ； . . ； until ；其中repeat、until是pascal保留字，repeat与until之间的所有语句称为循环体。,循环体,说明： 1.repeat语句的特点是：先执行循环，后判断结束条件，因而至少要执行一次循环。 2.repeat-until是一个整体，它是一个（构造型）语句，不要误认为
2、repeat是一个语句，until是另一个语句。 3.repeat语句在布尔表达式的值为真时不再执行循环体，且循环体可以是若干个语句，不需要begin和end把他们抱起来，repeat和until已经起了begin和end的作用。While循环和repeat循环是可以相互转化的。,例8、校体操队到操场集合,排成每行2人,最后多出1人;排成每行3人,也多出1人;分别按每行排4,5,6人,都多出1人;当排成每行7人时,正好不多。求校体操队至少是多少人?,分析：设校体操队为X人,根据题意X应是7的倍数,因此X的初值为7,以后用 inc(x,7)改变X值；（inc（a）是自加函数） 为了控制循环, 用
3、逻辑变量yes为真(True) 使循环结束； 如果诸条件中有一个不满足, yes 的值就会为假(false)，就继续循环。Inc（a）是自加函数，有两种形式： 1.inc（x），相当于x:=x+1； 2.inc（x，a），相当于x:=x+1.,源程序：program Ex; var x: integer; y : boolean;begin x:=0;repeat y:=true; inc(x,7); if x mod 2 1 then y:=false; if x mod 3 1 then y:=false; if x mod 4 1 then y:=false; if x mod 5 1
4、then y:=false; if x mod 6 1 then y:=false;until y; 直到yes的值为真 writeln(All =, x) ; readlnend.,程序中对每个X 值，都先给Yes 赋真值，只有在循环体各句对X 进行判断时，都得到“通过”（此处不赋假值）才能保持真值。,例9、求1992个1992的乘积的末两位数是多少？,分析：积的个位与十位数只与被乘数与乘数的个位与十位数字有关，所以本题相当于求1992 个92 相乘，而且本次的乘积主下一次相乘的被乘数，因此也只需取末两位参与运算就可以了。,源程序：Program ex313; var a,t : integ
5、er;Begin a := 1; t := 0;repeat t := t+1; a := (a*92) mod 100; until t=1992; writeln(a); Readln;End.,以上我们已介绍了三种循环语句。一般说来，用for 循环比较简明，只要能用for 循环，就尽量作用for 循环。只在无法使用for 循环时才用while 循环和repeat-until 循环， 而且 while 循环和repeat-until循环是可以互相替代的。for 循环在大多数场合也能用whiel和repeat-until循环来代替。一般for循环用于有确定次数循环，而while和repeat
6、-until循环用于未确定循环次数的循环。,练习1、用REPEAT循环完成如下3题：求s=1+2+3+4+10求s=1+1/2+1/3+1/100求的值。已知/4=1 1/3 +1/5 1/7 + 1/9 - ，要求最后一项小于10-6为止。2.读一组实数,遇零终止,打印其中正、负数的个数及各自的总和。3.计算sin（x）=X-X3/3！+X5/5！-X7/7！+直到最后一项绝对值小于10-7时停止计算，x由键盘输入 。4.用辗转相除法求两个自然数的最大公约数。5.找出被2、3、5除时余数为1的最小的十个数。6.将一根长为369cm的钢管截成长为69cm和39cm两种规格的短料。在这两种规格的短料至少各截一根的前提下, 如何截才能余料最少。,
