当型循环和直到型循环

当型循环和直到型循环

ID:38302145

大小:358.81 KB

页数:19页

时间:2019-06-08

当型循环和直到型循环_第1页
当型循环和直到型循环_第2页
当型循环和直到型循环_第3页
当型循环和直到型循环_第4页
当型循环和直到型循环_第5页
资源描述:

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

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.var m,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

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。