聪明人的游戏上课稿第(1).ppt

小冬冬一家 小冬冬一家子的状况 编号 成员年龄(岁 ) 身高(cm) 体重 (kg) 1爷爷6817566 2奶奶6216050.5 3外公6517265.5 4外婆6315846 5爸爸3517370 6妈妈3216245 7小冬冬1014230 找找谁最重 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. 及时充电（直到型循环） 格式： repeat ； until ; 作用：不断执行循环体并检测条件，直到条件成立时退 出循环。 说明： 1、在书写直到型循环语句时，repeat和until 一定要配对写，不能漏任何一个。 2、repeat 后不能加分号“;”,否则计算机当它是一个独立语句，发生错误。 3、repeat 和until 已将循环体包在中间，因此不需要用复合语句将循环体括住。 4、循环体要有能够影响改变为true值的语句，否则循环将无法结束。 5、直到行循环的特点是至少执行一次循环后猜检查是否为true。 直到型和计数型循环比较 1、对于确定重复次数的处理，通常用for语句实现，也可以用直到型循环语句实现。 2、对于不确定重复次数的处理，一般不用for语句实现，用直到型循环语句实现。 3、直到行循环语句的循环体至少执行一次，for循环体可能一次都不执行(当递增型for 的初值大于终值，或递减型for的初值小于于终值)。 4、for 的循环体中一般不改变循环变量的值，而直到型循环中一定要有影响值 变化的语句。 求出不大于10000的5个数中最小数。 用repeat循环用for循环 min:=10000; n:=0; Repeat n:=n+1; read(a); if a 100 S:=0; Repeat read(w); s:=s*w; Until s0 t:=20; Repeat s:=s+2*t; t:=t-1; Until t:=0 f:=true; Repeat Begin readln(a); f:=(a0) and (a0 then _; until da =64; writeln(d=,d); (2) s:=0;readln(x); repeat s:=s+(x mod 10); x:=x div 10; until x=0; Writeln(s) (运行时输 入 128) d=8 11 编写程序 1、求1+4+7+97+100的和。 （分别用for和repeat 语句编写两个程序） 2、求出100至9999范围内的所