聪明人的游戏上课稿第13课.pptVIP

小冬冬一家 找找谁最重 及时充电（直到型循环） 格式： repeat 循环体； until 条件; 作用：不断执行循环体并检测条件，直到条件成立时退出循环。 说明： 直到型和计数型循环比较 探索奥秘 探索奥秘 展示实力 完善程序 阅读程序 编写程序 1、求1+4+7+…+97+100的和。（分别用for和repeat 语句编写两个程序） 2、求出100至9999范围内的所有水仙花数。 （所谓水仙花数，就是指各位数字立方之和等于该数的数。例如：因为153=13+53+33，所以153是一个水仙花数） * * 30 142 10 小冬冬 7 45 162 32 妈妈 6 70 173 35 爸爸 5 46 158 63 外婆 4 65.5 172 65 外公 3 50.5 160 62 奶奶 2 66 175 68 爷爷 1 体重(kg) 身高(cm) 年龄(岁) 成员 编号 小冬冬一家子的状况 Program P1_13_1； var num,bh：integer; {num存放最大体重编号} tz,maxtz:real; {tz存体重，maxtz存最大体重} Begin maxtz:=0; repeat read(bh,tz); if bh0 then if tzmaxtz then begin maxtz:=tz;num:=bh end until bh=0; {直到输入编号为0时，结束循环} writeln(‘bh=‘,bh,’ maxtz=’,maxtz:0:1); End. 1、在书写直到型循环语句时，repeat和until 一定要配对写，不能漏任何一个。 2、repeat 后不能加分号“;”,否则计算机当它是一个独立语句，发生错误。 3、repeat 和until 已将循环体包在中间，因此不需要用复合语句将循环体括住。 4、循环体要有能够影响条件改变为true值的语句，否则循环将无法结束。 5、直到行循环的特点是至少执行一次循环后猜检查条件是否为true。 1、对于确定重复次数的处理，通常用for语句实现，也可以用直到型循环语句实现。 2、对于不确定重复次数的处理，一般不用for语句实现，用直到型循环语句实现。 3、直到行循环语句的循环体至少执行一次，for循环体可能一次都不执行(当递增型for的初值大于终值，或递减型for的初值小于于终值)。 4、for 的循环体中一般不改变循环变量的值，而直到型循环中一定要有影响条件值变化的语句。 min:=10000; for n:=1 to 5 do begin read(a); if a min then min:=a; end min:=10000; n:=0; Repeat n:=n+1; read(a); if a min then min:=a; Until n=5; 用for循环 用repeat循环 求出不大于10000的5个数中最小数。 Program P1_13_2； var da,m,b：integer; bt,bs:string; Begin readln(da); m:=da; bs:=‘’; repeat b:=m mod 2; m:=m div 2; str(b,bt); bs:=bt+bs; until m=0; writeln(bs); End. (运行时输入6) 运行结果： 110 输出下列图案: 输入样例 输出样例 + + - + - - + + + - + - - + + - - - + - - + + - - - + - + - - - + + + Program P1_13_3； var p,n：integer; st:string; Begin readln(st); n:=length(st); writeln(st); repeat n:=n-1; for p:=1 to n do begin if st[p]=st[p+1] then st[p]:=‘+’ else st[p]:=‘-’; write(st[p]); end; writeln; until n=1; End. 指出下列程