当型循环和直到型循环

《当型循环和直到型循环》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、循环结构程序设计当型循环和直到型循环当型循环(while)while布尔表达式dobegin语句1;语句2；…end;格式：循环体当布尔表达式为真执行循环体，为假则退出循环体。例：whilea<4dobegina:=a+1;end;注意：布尔表达式中的变量在循环体中一定要有所改变，要不然循环就要进入死循环中。当型循环(while)例1：求s=2+6+10+14+18+……+94+98的值programli1;vars,x:integer;beginx:=2;s:=0;whilex<=98dobegins:=s+x;x:=x+4;end;wr

2、iteln(‘s=‘，s);readln;end.实例1：输出1到100之间的奇数。实例2：输入若干个字符，它的终止符号是'#',计算输入的字符中字母‘a'及其大写字母的出现次数。练习一：看程序，写结果programlianxi1;vara,b,c:integer;begina:=8;b:=3;c:=2;whilea-b>2dobegina:=a-b;end;write(‘a=‘,a);readln;end.例3：看程序，写结果programli2;vari,k:integer;begini:=10;k:=0;while(i>=10)and

3、(i<=30)dobegink:=k+i;i:=i+2;end;writeln(‘k=‘,k);readln;end.实例4：求输入一个整数的各位数字之和。实例5：求两个自然数m,n的最小公倍数。varx,t,s:integer;beginreadln(x);s:=0;whilex<>0dobegint:=xmod10;s:=s+t;x:=xdiv10;end;writeln(s);end.varm,n,i,s:longint;beginwriteln(‘inputtwonumber:');readln(m,n);i:=1;

4、s:=m*i;whilesmodn<>0dobegini:=i+1;s:=m*i;end;writeln('mandnzuixiaogongbeishushi:',s);end.直到型循环(repeat)格式：repeat语句1；语句2；…语句n;until布尔表达式；当布尔表达式是假，执行循环体，直到布尔表达式是真时，退出循环。循环体例：vara,b:integer;begina:=0;b:=0;repeata:=a+3;b:=b+2;untila+b>20;writeln(a,b);readln;end.直到型循环(repeat)看程序

5、，写结果programlianxi2;varn,k:integer;beginread(n);k:=n;repeatk:=k-1;untilnmodk=0;write(k);readln;end.从n个数中挑选出最大的数（用repeatuntil循环来做）varn,x,m,y:integer;beginwriteln('inputtotalnumbern:');readln(n);readln(x);m:=1;repeatreadln(y);ify>xthenx:=y;m:=m+1;untilm=n;writeln(n,'geshuzhon

6、gzuidashushi:',x);end.求300以内能被17整除的最大的数。找到满足条件的最大数，结束循环vari:integer;beginfori:=300downto1dobeginif(imod17)thenbeginwriteln(i);break;end;end;end.实例练习：输入若干个字符，它的终止符号是'#',计算输入的字符中字母‘a'及其大写字母的出现次数。(用repeatuntil语句实现）编写程序提示用户输入一系列整数，用0作结束标志，统计其中有多少个正数。programe;varcount,x:integer

7、;beginwriteln('inputintegernumber(0--end):');count:=0;repeatread(x);ifx>0theninc(count);until(x=0);writeln('count=',count);end.转向语句(goto)Goto语句使用的标号必须在程序说明部分的最前面进行说明。说明的格式：label标号1,标号2,…；转向的格式：goto标号转向语句(goto)练习2：programlx3;label1;vari,t:integer;begini:=1;1:ifi<=10thenbegi

8、nt:=t+I;i:=i+1;goto1end;write(‘t=‘,t);readln;end.编写程序：输入n个整数，计算它们之和。programlx3;vari,n,x,s