pascal-for循环语句.docVIP

第六课 　for循环语句 Pascal语言中，循环结构程序通常由三种的循环语句来实现。它们分别为FOR循环、当循环和直到循环。通常将一组重复执行的语句称为循环体，而控制重复执行或终止执行由重复终止条件决定。因此，重复语句是由循环体及重复终止条件两部分组成。for语句的一般格式for : to do ;　　for : downto do ;　　其中for、to、downto和do是Pascal保留字。表达式1 2的值也称为初值和终值。For语句执行过程　　②判断循环控制变量的值是否已超过终值，如已超过，则跳到步骤⑥；do后面的那个语句（称为循环体）；to）或递减（对downt o １；　　⑥循环结束，执行ｆｏｒ循环下面的一个语句。 　　三、说明 ①循环控制变量必须是顺序类型。例如，可以是整型、字符型等，但不能为实型。　　②循环控制变量的值递增或递减的规律是：选用to则为递增；选用downto则递减。超过终值，对递增型循环，超过指大于，对递减型循环，超　　过指小于。　　⑤循环控制变量的初值和终值一经确定，循环次数就确定了。但是在循环体内对循环变量的值进行修改，常常会使得循环提前结束或进入死环。建议不要在循环体中随意修改控制变量的值。　　⑥for语句中的初值、终值都可以是顺序类型的常量、变量、表达式。var K, I: Integer; begin K : 0; for I : 1 to 10 do K : K + I; End; 同样的for语句可以用正好相反的计数器来写： var K, I: Integer; begin K : 0; for I : 10 downto 1 do K : K + I;End; 例1．输出1－100之间的所有偶数。var i:integer; begin for i: 1 to 100 do if i mod 2 0 then write i:5 ; end.　　例2．求N！＝1＊2＊3＊…＊N N不大于10。N，然后从1累乘到N。　　var n,i : integer；｛i为循环变量｝S : longint;｛s作为累乘器｝begin　　　write Enter n ;readln n ; 输入n s: 1;　　　for i: 2 to n do｛从2到n累乘到s中｝s: s*i;　　　writeln n,! ,s ;｛输出n!的值｝end. 思考：更改上面的程序，使之输出的值是s 1+1/2+1/3+1/4+…+1/n，再改之，使其值为s 1*1/2*1/3*1/4*…*1/n 注意：不允许在循环体内再对循环控制变量赋值。 例如： A: 10;B: 50; FOR K: A TO B DO BEGIN K: K+1; 这一句是错误的！！！！！！！！ WRITELN K ; END; ‘*’ ; Writeln; 输出一行的“*”后换行 End; Readln; End. 程序中的循环对于a的每个值都包含着一个b 1～9 次的内循环。外循环for a 将内循环for b 包含在里面，称为for循环的嵌套。嵌套形式如: for a: n1 to n2 do for b: m1 to m2 do 循环体语句； 例5. 打印出九九乘法表: 解:设a为被乘数，范围为1～9；b为乘数，范围为1～a；乘式为a*b a,b的乘积 ，则 a 1: b 1～a 1*1 1 a 2: b 1～a 2*1 2 2*2 4 a 3: b 1～a 3*1 3 3*2 6 3*3 9 a 4: b 1～a 4*1 4 4*2 8 4*3 13 4*4 16 ： ： a 9 b 1～a 9*1 9 9*2 18 … 9*9 81 练　习 　　1． 求s 1+4+7+…+298的值。2． 10个选手的得分 0-10分 ，然后去掉一个最高分和一个最低分，求出某选手的最后得分 平均分 。3． 1分、2分和5分的硬币，每种至少一枚， 问有哪几种换法（各几枚）？ Program Exam31； Var a: byte； Begin for a: 200 downto 1 do Writeln a ； Readln End.