pascal语言第五讲.pptVIP

千里之行，始于足下... Pascal语言循环程序设计 你准备好了吗？ 楚王好细腰 吾王好细腰 宫中多饿死 白绫遍缠身 气息何奄奄 何为循环程序？ 在应用中，经常遇到许多有规律性的重复运算，这就需要循环结构程序来实现。 循环结构有三种，分别为FOR循环、当循环和直到循环。 一组重复执行的语句称循环体，而控制重复执行或终止执行由重复终止条件决定。重复语句由循环体及重复终止条件两部分组成。 FOR 语句 一般格式 for 控制变量:=初值 to 表达式2 do 循环体语句; for 控制变量:=初值 downto 表达式2 do 循环体语句; 执行过程 ①先将初值赋给左边的变量（循环控制变量）； ②判断循环控制变量的值是否已“超过”终值，如已超过，则跳到步骤⑥； ③若末超过终值，则执行do后面的语句（循环体）； ④循环变量递增（对to）或递减（对downt o)１； ⑤返回步骤②； ⑥循环结束，执行for下面的一个语句。 说明 ①循环控制变量必须是顺序类型。 ②选to为递增；选downto递减。 ③循环控制变量是否“超过”终值，对递增，“超过”指大于，对递减，“超过”指小于。 ④循环体可以是一个基本语句，也可以是一个复合语句。 ⑤循环控制变量初值和终值一经确定，循环次数就确定了。 ⑥for语句中的初值、终值都可以是顺序类型的常量、变量、表达式。 例：计算1+2+3+……+99+100　　program jia;　　var i,sum:integer;　　begin　　　sum:=0;　　　for i:=1 to 100 do　　　 sum:=sum+i;　　　writeln(sum);　　end.? （2）1+3+5+……+97+99? for语句 输出1－100之间的所有偶数。 var i:integer; begin for i:=1 to 100 do if i mod 2=0 then write(i:5); end. 当语句(WHILE 语句) for称为计数循环，当循环次数未知，根据条件决定是否进行循环时，可用while 或repeat来实现。 格式： while 布尔表达式 do 语句； 意义：布尔表达式的值为true时，执行do后面的语句。 当语句(WHILE 语句) 执行过程： ①判断布尔表达式的值,若为真,执行步骤2,否则执行步骤4; ②执行循环体语句(do后面的语句); ③返回步骤1; ④结束,执行while的下一个语句。 while 特点是先判断，后执行。 输出1~100之间;的奇数. Program exam; Var x:integer; Begin x:=1 While x100 do Begin Write(x:5); X:=x+2; end; End. while语句示例 求恰好使s=1+1/2+1/3+…+1/n的值大于10时n的值。 var s:real; n:integer; ｛n表示项数｝ begin s:=0.0;n:=0; while s=10 do ｛当s的值还未超过10时｝ begin n:=n+1; ｛项数加1｝ s:=s+1/n; ｛将下一项值累加到s｝ end; writlen(’n=’,n); ｛输出结果｝ end. 直到循环（REPEAT 语句） 用while 实现“当型循环”，用repeat-until 实现“直到型循环”。repeat-until含义是：“重复执行循环，直到指定的条件为真时为止”。 格式: Repeat 语句1; : 语句n; until 布尔表达式; repeat与until之间的所有语句称循环体。 说明： ①repeat特点：先执行，后判断，故至少要执行一次循环体。 ②repeat-until 是一个整体，它是一个（构造型）语句，不要误认为repeat 是一个语句，until 是另一个语句。 ③repeat中布尔表达式的值为真时不再执行循环体，且循环体可以是若干个语句，不需用begin和end把它们包起来， while循环和repeat循环是可以相互转化。 一般说，for 比较简明，只要能用for ，就尽量用for 。只在无法使用for 时才用while 和repeat-until ， 且 while 和repeat-until可以互相替代。for 大多也能用while和repeat-until代替。 一般for用于确定次数循环，while和repeat-until用于未确定次数的循环。 多重循环 一个循环的循环体中又包含循环结构程序，称之为循环嵌套，又称多重循环。 在设计多重循环时，要注意内外循环的关系，内外循环的控制变量不得