03_05循环语句3.ppt.ppt

注意：REPEAT语句与WHILE语句都可以实现循环，但有３点不同： （1）两种循环一般情况下可以互换，但是REPEAT循环，是做一次，再判断条件，而WHILE循环是先判断后执行语句；所以根据实际需要，如果要先判断就用while循环，如果要求做一次再判断就用repeat 循环。 （2）在WHILE语句中的指定语句只能是一条语句或一条复合语句，REPEAT语句中的指定语句可以是多条语句，无需用BEGIN和END；， （3）在REPEAT语句中条件不成立时重复执行，而WHILE语句中当条件成立时执行； ［例1］输出1-100之间的奇数 Var x:integer; Begin x:=1; repeat write(x:5); x:=x+2; until x99; End. 运行过程： 初始化x=1，开始循环，输出1,x=x+2=3,判断，条件成立就不做，现在条件不成立，继续做，输出3，x=5….，最后一次当输出99后，x=101，条件成立，循环终止。 Var x:integer; Begin x:=1; while x100 do begin write(x:5); x:=x+2; end; End. ［例３］从键盘上输入若干个字符，统计其中的字母‘A’出现的次数（不分大小写），输入“＃”字符结束。样例：输入： abcAabc12a# 输出：4 读程序说功能 var ch:char; i:integer; begin i:=0; {初始化} repeat read(ch); if (ch=’A’) OR (ch=’a’) then i:=i+1; {计数} until ch=’#’; writeln(‘i=’,i) end. ［例３］从N个数中挑选最大数。 ［分析］这个问题的思路，可以借助于古代比武的“打擂台”来比喻：先有一人站在擂台上，然后第二个人上来与它比武，胜者留下，如此反复进行下去，直到第N个人比完为止（思考：一共比多少次），显然最后留在台上的人肯定是最强者。 用自然语言来表示该算法是这样的： 从N个数中任选一数放在变量X中，并设计一个计数器M＝0（这里变量X就是比武的擂台，M＝0表示尚未比较） 将下一个数与X中的数进行比较，大数放在X中， 使M的值加1（计一次数） 若M的值小于N－1，则重新进行第（2）步，否则执行下一步（5） 输出此时X的值，即为N个数中的最大者 结束 [作业2]： 一、选择 １、下列哪些循环不能终止.( ) A. X:=16; B. S:=0; WHILE X0 DO FOR I:=1 TO 4 DO X:=X-2; BEGIN S:=S+1; I:=I+2 C. X:=5; Y:=1; END; REPEAT D. X:=-1; Y:=1; Y:=X; REPEAT X:=X+2; X:= X MOD 2 Y:=Y+5 UNTIL X=Y; UNTIL X*Y=100; ２、请从供选择的程序行中选出能计算下列各算式的正确程序行： a:=1； x:=1; repeat _________; X:=x+2; Until x=21; Writeln(‘s=’,s); (A) a*x; s:=s+a; a:=a*(-a); (B) s:=s+x; (C) a:=-a; s:=s+a*x; (D) b:=b+x; s:=s+b; (E) a:=x*(x+2); s:=s+1/a; (F) b:=b+x; a:=-a; s:=s+1/(a*b); (1) s=1+3+5+7+…+19 (________) (2)s=-1+3-5+7-9+…+19 (________) (3)s=1/(1*3)+1/(3*5)+1/(5*7)+…+1/(17*19)(_______) (4)s=1+(1+3)+(1+3+5)+…+(1+3+5+…+19) （_____) 二、写程序的运行结果。 １、var p,m:integer;　 Begin