pascalfor循环.docVIP

FOR循环语句 使用for语句解决1+2+3+4+……100问题 Program leijia; Var i:integer; ｛i为循环变量｝ ｛s为累加器Sum:integer; Begin Sum: 0; For i: 1 to 100 Do step 1 sum: sum+i; Writeln sum ; End. 5050一、FOR语句 格式　　 for 控制变量: 初值 to 终值 do 语句;　　 for 控制变量: 初值 downto 终值 do 语句; For语句执行过程： 1、先将初值赋给左边的变量（称为循环控制变量）；　　2、判断循环控制变量的值是否已“超过”终值，如已超过，则跳到步骤5；　　3、超过终值，则执行do后面的那个语句（称为循环体）；　　4、控制变量返回步骤2；　　5、循环结束，执行for循环后语句。 说明：　　循环控制变量必须是顺序类型。例如，可以是整型、字符型等，但不能为实型。　　循环控制变量的值选用to则为递增；选用downto则递减。　　循环控制变量的值“超过”终值，对递增型循环，“超过”指大于，对递减型循环，“超过”指小于。　　循环控制变量的初值和终值一经确定，循环次数就确定了。但是在循环体内对循环变量的值进行修改，常常会使得循环提前结束或进入死环。建议不要在循环体中随意修改控制变量的值。　　for语句中的初值、终值都可以是顺序类型的常量、变量、表达式。 例5_1、求S＝1+2+3+…+ 100Program leijia;　　var i : integer； ｛i为循环变量｝ : longint; ｛s为累加器｝　　begin　　 sum: 0;　　　for i: to 100 do s: s+i; ｛从到n累加到s中｝ 　writeln 1+2+3+…+ 100 ,s ; end.  思考：求解求s 1+4+7+10+13的值 分析数列规律：an an-1+3 Program leijia; 　var i : integer； ｛i为循环变量｝ : longint;?? b:integer; ｛s为累加器｝例5_2、输出斐波那契数列的前20项。 规律： F1 0 n 1 F2 1 n 2 Fn Fn-1+Fn-2 n 3 即 0，1，1，2，3，5，8，13，21，…… 分析：由公式Fn Fn-1+Fn-2，采用递推算法求解。 方法一 var a,b,i: longint; begin a: 0; b: 1; write a, , ,b ; for i 2 to 10 do begin a: a+b; b: a+b; write , a, , ,b ; end; end. 方法二 var a,b,c,i:integer; begin a: 0; b: 1; write a, , ,b ; for i 3 to 20 do begin c: a+b; a: b; b: c; write , ,c ; end; end. /258chengma/blog/item/eccdbc5c16b6414ffaf2c0e6.html 补充：清屏语句clrscr;在使用前要声明uses crt;