当型循环和直到型循环.ppt
《当型循环和直到型循环.ppt》由会员分享,可在线阅读,更多相关《当型循环和直到型循环.ppt(19页珍藏版)》请在三一文库上搜索。
1、循环结构程序设计 当型循环和直到型循环,当型循环(while),while 布尔表达式 do begin 语句1; 语句2; end;,格式:,循环体,当布尔表达式为真执行循环体,为假则退出循环体。,例: while a4 do begin a:=a+1; end;,注意:布尔表达式中的变量在循 环体中一定要有所改变,要不然循环就要进入死循环中。,当型循环(while),例1:求s=2+6+10+14+18+94+98的值,program li1; var s,x:integer; begin x:=2;s:=0; while x=98 do begin s:=s+x; x:=x+4; end
2、; writeln(s=,s); readln; end.,实例1:输出1到100之间的奇数。,实例2:输入若干个字符,它的终止符号是#,计算输入的字符中字母a及其大写字母的出现次数。,练习一:看程序,写结果,program lianxi1; var a,b,c:integer; begin a:=8; b:=3; c:=2; while a-b2 do begin a:=a-b; end; write(a=,a); readln; end.,例3:看程序,写结果,program li2; var i,k:integer; begin i:=10; k:=0; while (i=10) and
3、 (i=30) do begin k:=k+i; i:=i+2; end; writeln(k=,k); readln; end.,实例4:求输入一个整数的各位数字之和。,实例5:求两个自然数m,n的最小公倍数。,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:
4、=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.,直到型循环(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.,直到型循环(r
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 循环 直到
链接地址:https://www.31doc.com/p-3467889.html