while repeat 循环结构.ppt

Event Name Here BEA Confidential while语句的形式为：　　while 布尔表达式 do 语句；　其意义为：当布尔表达式的值为true时，执行do后面的语句。 　　while语句的执行过程为：　　①判断布尔表达式的值,如果其值为真,执行步骤2,否则执行步骤4;　　②执行循环体语句(do后面的语句);　　③返回步骤1;　　④结束循环,执行while的下一个语句。　　说明：这里while和do为保留字，while语句的特点是先判断 例：输出1—100之间的奇数 Program ex; var x,y:integer; Begin for x:=1 to 50 do begin y:=x*2-1; write(y:4)； end; writeln; End. 样程： program ex(input,output); var i,s,x:integer; begin s:=0; i:=2; while i=100 do begin s:=s+i; i:=i+2; end; writeln(s); end. 样程： program ex(input,output); var i:integer; s,x:real; begin s:=0; i:=1; while i=100 do begin x:=1/i; s:=s+x; i:=i+1; end; writeln(s:0:3); end. 样程： program ex(input,output); var i:integer; s,x:longint; begin s:=0; i:=12; while i=1002 do begin s:=s+i; i:=i+10; end; writeln(s); end. 分析：求两个正整数的最大公约数采用的辗转相除法求解。以下是辗转的算法：　　分别用m,n,r表示被除数、除数、余数。　　①求m/n的余数r.　　②若r=0,则n为最大公约数.若r≠0,执行第③步.　　③将n的值放在m中,将r的值放在n中.　　④返回重新执行第①步。 程序如下:　　program ex4_4;　　var m,n,t,a,b,r:integer;　　begin　　　　write(‘Input m,n:’);　　　　readln(m,n); a:=m;b:=n; r:=a mod b; 　　　　while r0 do　　　　begin a:=b;b:=r; r:=a mod b; 　　　 end;　　　　writeln(The greatest common divide is:,b:8);　　end. 练习：输入一串字符,以回车符结束,输出其中字母个数与数字个数。 分析:确定使用while循环. 循环条件是:输入的字符不是回车符（即ord(ch)13) 定义数据: ch:char; num1,num2:integer; 样程： Program ex ; Var ch:char; num1,num2:integer; Begin num1:=0; num2:=0; read(ch); while ord(ch)13 do begin if (ch=a ) and (ch=z) or (ch=A ) and (ch=Z) then num1:=num1+1 else if (ch=0) and (ch=9) then num2:=num2+1; end; writeln (number of letters:,num1); writeln (number of digit:,num2) End. var i,sign:integer; pi:real; begin pi:=0; sign:=1;i:=1; while 1/(i*2-1)=1e-6 do begin pi:=pi+1/(i*2-1)*sign; sign:=sign*(-