Repeat循环是直到型循环＆.docVIP

Repeat循环是直到型循环＆ 　　 第二节 repeat 循环 　　Repeat循环是直到型循环。 　　试将上一节的例3.1(打印出1,20的平方数表)程序改为 repeat 循环: 　　Program Exam31_1; 　　Var a: byte; 　　Begin 　　a:=1; writeln ( a : 8 , a*a : 8 ) ; 　　repeat 　　writeln ( a :8，a*a : 8); 　　inc(a); {改变a的值 } 　　Until a,20; 　　Readln 　　Emd. 　　　　程序中的Repeat循环格式为: 　　repeat 　　循环体语句; 　　until 条件表达式; ,直到条件为真, 　　Repeat循环首先执行由Repeat和Until括起来的循环体语句，然后检查Until后面的条件表达式:如果表达式结果为假，则继续执行循环体，接着继续检查Until后面的条件表达式，如此反复执行直到这个表达式结果为真时结束循环。Repeat循环体语句必须有能改变Until后面条件表达式值的语句，并最终使这个条件表达式的值为真，使循环自动结束。 　　　　程序中inc (a) 指令相当于a : =a+1，常用的同类指令格式如下: 　　(1) inc(x) 等同 x:=x+1; 　　(2) inc(x, n) 等同 x:=x+n; 　　(3) dec(x) 等同 x:=x—1; 　　(4) dec(x，n) 等同 x:=x—n; 　　　　[例3.10]求两个自然数M和N的最大公约数。 　　解:若自然数a既是M和约数，又是N的约数，则称a为M和N的公约数，其中最大的称为最大公约数。为了求得最大公约数，可以从最大可能的数(如M或N)向下寻找，找到的第一个公约数即是最大公约数。 　　Pascal程序: 　　Program ex310; 　　Begin 　　a := N+1; 　　Repeat 　　a := a-1; 　　Until (M mod a=0) and (N mod a=0); 　　writeln(a); 　　Readln; 　　End. 　　　　[例3.11]校体操队到操场集合,排成每行2人,最后多出1人;排成每行3人,也多出1人;分 　　别按每行排4,5,6人,都多出1人;当排成每行7人时,正好不多。求校体操队至少是多少人? 　　　　解:?设校体操队为X人,根据题意X应是7的倍数,因此X的初值为7,以后用inc(x,7)改 　　变X值; 　　?为了控制循环, 用逻辑变量yes为真(True) 使循环结束; 　　?如果诸条件中有一个不满足, yes 的值就会为假(false)，就继续循环。 　　　　Pascal程序: 　　program Exam311; 　　var x: word; yes : boolean; 　　begin 　　x:=0; 　　repeat 　　yes :=true; inc(x,7); 　　if x mod 2 1 then yes:=false; 　　if x mod 3 1 then yes:=false; 　　if x mod 4 1 then yes:=false; 　　if x mod 5 1 then yes:=false; 　　if x mod 6 1 then yes:=false; 　　until yes; {直到yes的值为真 } 　　writeln(All =, x) ; readln 　　end. 　　　　程序中对每个X值，都先给Yes 赋真值，只有在循环体各句对X进行判断时，都得到 　　“通过”(此处不赋假值)才能保持真值。 　　　　[例3.12]从键盘输入一个整数X(X不超过10000)，若X的各位数字之和为7的倍数， 　　则打印“Yes”，否则中打印“No”。 　　解:本题考察的是数字分离的方法，由于X的位数不定，所以以往的解法不能奏效，这 　　是介绍一种取余求商法。 　　(1)用X mod 10分离出X的个位数字; 　　(2)用X div 10将刚分离的个数数字删除，并将结果送回给X; (3)重复(1)(2)直到X,0。 　　Pascal程序: 　　Program ex12; 　　var x,a,s : integer; 　　begin 　　s := 0; 　　repeat