2012pascal第四讲.ppt.pptVIP

循环程序 循环程序 第一节　for?循环? 第二节　repeat?循环? 第三节　While?循环? 计数循环（for/to/do）语句 计数循环语句的格式 格式1 for 控制变量 :＝初值 to 终值 do 循环体 格式2 for 控制变量 :＝初值 downto 终值 do 循环体 区别 格式1 for 控制变量 :＝初值 to 终值 do 循环体 格式2 for 控制变量 :＝初值 downto 终值 do 循环体 格式1用“to”，而格式2用“downto”。 格式1称为“递增型”计数循环， 初值＝终值。 格式2称为“递减型”计数循环， 初值＝终值。 例题 J=0 for k : = 3 to 7 do j : = j + k ; write ( ‘ j = ‘ : 8 , j ) ; 注意： 标准Pascal规定，在脱离循环后，控制变量的值已无定义，一般不再引用。但有的系统仍使它保持某一特定的值（ Pascal7.0为保持终值），为使程序具有通用性，在程序结束后不要引用循环变量的值，除非再对它重新赋值。 说明 （1）控制变量必须为顺序类型，如整型、字符型以及枚举型和子界型，但不能为实型。 （2）对于控制变量的“递增”或“递减”的变化规律。 （3）循环体可以是一个语句，也可以是多个语句。如果是多个语句，要用begin和end括起来，构成一个复合语句。 （4）控制变量不得在循环体内再被赋值。 （5）for语句中，初值和终值决定循环次数，并且在开始重复之前就已确定，在执行过程中，其值不受影响。 （6）当初值“超过”终值时，不执行循环体，循环次数为0次。 （1）控制变量必须为顺序类型，如整型、字符型以及枚举型和子界型，但不能为实型。 例： for i : = 1.5 to 3.5 do write ( i ) ; （2）对于控制变量的“递增”或“递减”的变化规律是：递增按succ(x)（后继）函数规律变化；递减按pred(x)（前驱）函数规律变化。 例： for i : = ‘ a ‘ to ‘ d ‘ do write ( i ) ; （3）循环体可以是一个语句，也可以是多个语句。如果是多个语句，要用begin和end括起来，构成一个复合语句。 例： for i : = 1 to 10 do begin k : = k + 1 ; write ( k ) end; （4）控制变量不得在循环体内再被赋值。 例： for i : = 1 to 10 do i : = 5 ; （5）for语句中，初值和终值决定循环次数，并且在开始重复之前就已确定，在执行过程中，其值不受影响。 例： program p5_1(input , output) ; var a , b , i ; integer ; begin a : = 1 ; b : = 4 ; for i : = a to b do begin a : = 3 ; b : = 5 ; write ( i : 3 ) end end 执行结果：1 2 3 4 （6）当初值“超过”终值时，不执行循环体，循环次数为0次。 例：计算1＋2＋3＋4＋……＋100之和 program p5_2(input , output) ; var i , sum : inreger ; begin sum : = 0 ; for i : = 1 to 100 do sum : = sum + i ; writeln ( ‘ sum = ‘ , sum ) end program name; var i,x:integer; begin read(x); for i:=1 to 3 do begin