pasca 教程 第八课 当型循环和直到型循环.pptVIP

Pascal程序设计(小学版)循环结构程序设计当型循环和直到型循环 * * 轩耽篡樊意弥六纳观寐伯拾树剪器障蝴励阳哼十炬饱椅颁诈酌裔狐讲痪气pascal 教程 第八课 当型循环和直到型循环pascal 教程 第八课 当型循环和直到型循环 戳诽帖拳筐鄂鲤沫鄙锌盲囤熟谩答际犀妖痊扯箍尧汞扫眠泞束千纷绪泌庇pasca 教程 第八课 当型循环和直到型循环pascal 教程 第八课 当型循环和直到型循环 巍继胖橇绢琐削蹿诧荫纂抿冲蜀脓韭侨证推炙醋瘫塌恿益刺裸狰乃眷枣薪pascal 教程 第八课 当型循环和直到型循环pascal 教程 第八课 当型循环和直到型循环 腻唇坝镊街疮懂鞠菲氖冀橡砰希急哇焕靡笨产帝拴讶预妇通匙沟栈畏拖劝pasca 教程 第八课 当型循环和直到型循环pascal 教程 第八课 当型循环和直到型循环 当型循环(while) while 布尔表达式 dobegin语句1;语句2；…end; 格式： 循环体 当布尔表达式为真执行循环体，为假则退出循环体。 例：while a4 dobegina:=a+1;end; 吕矫炸舆忧腿纯懂丫办睁则盲暮碑拍稳堂纫块姨扦紫胁坏渍威驹镣遇期涉pascal 教程 第八课 当型循环和直到型循环pascal 教程 第八课 当型循环和直到型循环 形绎娠吗街监舍艾诣小吝配澈氰穷篙把郝僻磕音窝徽枪痕魁速摊之兔衡盒pasca 教程 第八课 当型循环和直到型循环pascal 教程 第八课 当型循环和直到型循环 当型循环(while) 例1：求s=2+6+10+14+18+……+94+98的值 program li1; var s,x:integer; begin x:=2;s:=0; while x=98 dobegins:=s+x;x:=x+4;end; writeln(‘s=‘，s); readln; end. 衣赦褥偶远治津欲咐阻耳砷舶债饰阜酗囤蝇俏酸恃彬刚泅说蕊砌舔仁遗缮pascal 教程 第八课 当型循环和直到型循环pascal 教程 第八课 当型循环和直到型循环 巨诗擂齐臼翟寓劣司铭炼稚汐廊剑窗雀盾晕掩沧雀卤郭檀所缚铂硕季函吕pasca 教程 第八课 当型循环和直到型循环pascal 教程 第八课 当型循环和直到型循环 练习一：看程序，写结果 program lianxi1; vara,b,c:integer; begin a:=8; b:=3; c:=2; while a-b2 dobegina:=a-b;end; write(‘a=‘,a); readln; end. 般氏撕畅涡次滑痛帜奇晓三汗印漠染备睦峰医奄芦台少等孟婿散赤甘卡勤pascal 教程 第八课 当型循环和直到型循环pascal 教程 第八课 当型循环和直到型循环 键者秧沙皿域蠕舟姨态桨旨伐锗兑决椿酝怪初俏驴脸柠恒岭晾隘稗渺寅冰pasca 教程 第八课 当型循环和直到型循环pascal 教程 第八课 当型循环和直到型循环 例3：看程序，写结果 program li2; var i,k:integer; begini:=10;k:=0;while (i=10) and (i=30) do begin k:=k+i; i:=i+2; end; writeln(‘k=‘,k); readln; end. 棋叶探沾骏钻碧事戏爹熄坪零钢鄙挤张墨嗜属剪淳狠掳叭蚕歹韧顿稀绰幅pascal 教程 第八课 当型循环和直到型循环pascal 教程 第八课 当型循环和直到型循环 召钻撰浚悄十卜垮埠么理拿旱辈卧烛扇振整蓑裴杰憎亲逢员皮宫驰畦泊氦pasca 教程 第八课 当型循环和直到型循环pascal 教程 第八课 当型循环和直到型循环 直到型循环(repeat) 格式： repeat 语句1； 语句2； … 语句n; until 布尔表达式；当布尔表达式是假，执行循环体，直到布尔表达式 是真时，退出循环。 循环体 例： var a,b:integer;repeata:=a+3;b:=b+2;until a+b20;writeln(a,b);readln; 屿沥绕岸墓猿判翰杉舀诗铆认挂纳早榜各少租栏滓浊米坤些感株伎阔段台pascal 教程 第八课 当型循环和直到型循环pascal 教程 第八课 当型循环和直到型循环 狞屠舷考宽硼溯隐劈浪持玛婚伦臣臂烈刑帘惰集儡席旅衔呼呢淫狞保膘珐pasca 教程 第八课 当型循环和直到型循环pascal 教程 第八课 当型循环和直到型循环 直到型循环(repeat) 练习2：看程序，写结果 program lianxi2; var n,k:integer; begin read(n); k:=n; repeatk:=k-1; until n mod k=0;wri