最新当型循环和直到型循环PPT课件.ppt

《最新当型循环和直到型循环PPT课件.ppt》由会员分享，可在线阅读，更多相关《最新当型循环和直到型循环PPT课件.ppt（20页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、当型循环和直到型循环当型循环当型循环(while)while 布尔表达式布尔表达式 do begin 语句语句1;语句语句2；end;格式：格式：循环体循环体当布尔表达式为真当布尔表达式为真执行循环体执行循环体，为假则，为假则退出循环体退出循环体。例：例：while a4 do begin a:=a+1;end;注意：布尔表达式中的变量在循注意：布尔表达式中的变量在循注意：布尔表达式中的变量在循注意：布尔表达式中的变量在循 环体中一定要有所改变，要不然循环就要进入死循环中。环体中一定要有所改变，要不然循环就要进入死循环中。环体中一定要有所改变，要不然循环就要进入死循环中。环体中一定要有所改变，

2、要不然循环就要进入死循环中。var x,t,s:integer;begin readln(x);s:=0;while x0 do begin t:=x mod 10;s:=s+t;x:=x div 10;end;writeln(s);end.var m,n,i,s:longint;begin writeln(input two number:);readln(m,n);i:=1;s:=m*i;while s mod n0 do begin i:=i+1;s:=m*i;end;writeln(m and n zui xiao gong bei shu shi:,s);end.直到型循环直到型循环

3、(repeat)格式：格式：repeat语句语句1；语句语句2；语句语句n;until 布尔表达式；布尔表达式；当布尔表达式是假，执行循环体，直到布尔表达式当布尔表达式是假，执行循环体，直到布尔表达式是真时，退出循环。是真时，退出循环。循环体循环体例：例：var a,b:integer;begin a:=0;b:=0;repeat a:=a+3;b:=b+2;until a+b20;writeln(a,b);readln;end.直到型循环直到型循环(repeat)看程序，写结果看程序，写结果 program lianxi2;varn,k:integer;beginread(n);k:=n;r

4、epeat k:=k-1;until n mod k=0;write(k);readln;end.从从从从n n个数中挑选出最大的数（用个数中挑选出最大的数（用个数中挑选出最大的数（用个数中挑选出最大的数（用repeat until repeat until 循环来做）循环来做）循环来做）循环来做）varvar n,x,m,y:integer;n,x,m,y:integer;beginbegin writeln(input total number n:);writeln(input total number n:);readln(n);readln(n);readln(x);readln(x

5、);m:=1;m:=1;repeatrepeat readln(y);readln(y);if yx then if yx then x:=y;x:=y;m:=m+1;m:=m+1;until m=n;until m=n;writeln(n,ge shu zhong zui da shu shi:,x);writeln(n,ge shu zhong zui da shu shi:,x);end.end.求求300300以内能被以内能被1717整除的最大的数。整除的最大的数。找到满足条件的最找到满足条件的最大数，结束循环大数，结束循环var i:integer;begin for i:=300

6、downto 1 do begin if (i mod 17)then begin writeln(i);break;end;end;end.实例练习：输入若干个字符，它的终止符号是#,计算输入的字符中字母a及其大写字母的出现次数。(用repeat until 语句实现）编写程序提示用户输入一系列整数，用编写程序提示用户输入一系列整数，用0作结束标志，统计其中有多少个正数。作结束标志，统计其中有多少个正数。program e;var count,x:integer;begin writeln(input integer number(0-end):);count:=0;repeat read(

7、x);if x0 then inc(count);until(x=0);writeln(count=,count);end.转向语句转向语句(goto)Goto语句使用的标号必须在程序说明部分的最前面进行说明。语句使用的标号必须在程序说明部分的最前面进行说明。说明的格式：说明的格式：label 标号标号1,标号标号2,；转向的格式：转向的格式：goto 标号标号 转向语句转向语句(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;writ

8、e(t=,t);readln;end.编写程序：编写程序：输入输入n个整数，计算它们之和。个整数，计算它们之和。program lx3;var i,n,x,s:integer;beginreadln(n);s:=0;for i:=1 to n dobegin read(x);s:=s+x;end;writeln(s);readln;end.4 4、求、求、求、求e e1 11/2!1/2!1/3!1/3!1/n!1/n!直到最后一项的值小于直到最后一项的值小于直到最后一项的值小于直到最后一项的值小于0.0000010.000001 programexeprogramexe_ _4(input,output)4(input,output)；vare,n,i:realvare,n,i:real；beginbegine:e:0 0；i:i:0 0；n:n:1 1；repeatrepeati:i:i i1 1；n:n:n*in*i；e:e:e e1/n1/nuntil1/nuntil1/n0.0000010.000001；writeln(e)writeln(e)；end.end.结束语结束语谢谢大家聆听！谢谢大家聆听！20