当型循环和直到型循环

,*,单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,循环结构程序设计,当型循环和直到型循环,1,当型循环(while),while,布尔表达式,do,begin,语句1;,语句2；,end;,格式：,循环体,当布尔表达式为真,执行循环体,，为假则,退出循环体,。,例： while a4 do,begin,a:=a+1;,end;,注意：布尔表达式中的变量在循 环体中一定要有所改变，要不然循环就要进入死循环中。,2,当型循环(while),例1：求s=2+6+10+14+18+94+98的值,program li1;,var,s,x:integer;,begin,x:=2;s:=0;,while,x2,do,begin,a:=a-b;,end;,write(a=,a);,readln;,end.,6,例3：看程序，写结果,program li2;,var,i,k:integer;,begin,i:=10;,k:=0;,while (i=10) and (i20;,writeln(a,b);,readln;,end.,10,直到型循环(repeat),看程序，写结果,program lianxi2;,var,n,k:integer;,begin,read(n);,k:=n;,repeat,k:=k-1;,until n mod k=0;,write(k);,readln;,end.,11,从n个数中挑选出最大的数（用repeat until 循环来做）,var,n,x,m,y:integer;,begin,writeln(input total number n:);,readln(n);,readln(x);,m:=1;,repeat,readln(y);,if yx then,x:=y;,m:=m+1;,until m=n;,writeln(n,ge shu zhong zui da shu shi:,x);,end.,12,求300以内能被17整除的最大的数。,找到满足条件的最大数，结束循环,var,i:integer;,begin,for i:=300 downto 1 do,begin,if (i mod 17) then,begin,writeln(i);,break;,end;,end;,end.,13,实例练习：输入若干个字符，它的终止符号是#,计算输入的字符中字母a及其大写字母的出现次数。(用repeat until 语句实现）,14,编写程序提示用户输入一系列整数，用,0,作结束标志，统计其中有多少个正数。,program e;,var,count,x:integer;,begin,writeln(input integer number(0-end):);,count:=0;,repeat,read(x);,if x0 then inc(count);,until(x=0);,writeln(count=,count);,end.,15,转向语句(goto),Goto语句使用的标号必须在程序说明部分的最前面进行说明。,说明的格式：,label 标号1,标号2,；,转向的格式：,goto 标号,16,转向语句(goto),练习2：,program lx3;,label 1;,var i,t:integer;,begin,i:=1;,1:,if i=10 then,begin,t:=t+I;,i:=i+1;,goto 1,end;,write(t=,t);,readln;,end.,17,编写程序：,输入n个整数，计算它们之和。,program lx3;,var i,n,x,s:integer;,begin,readln(n);,s:=0;,for i:=1 to n do,begin,read(x);,s:=s+x;,end;,writeln(s);,readln;,end.,18,4,、求,e,1,1/2!,1/3!,1/n!,直到最后一项的值小于,0.000001,program exe,_,4(input, output),；,var e,n,i:real,；,begin,e:,0,；,i:,0,；,n:,1,；,repeat,i:,i,1,；,n:,n*i,；,e:,e,1/n,until 1/n,0.000001,；,writeln(e),；,end.,19,