循环结构程序设计for.pptVIP

例1．输出1－100之间的所有数字。 program ex; var i:integer;beginfor i:=1 to 100 do write(i:5);end. 循环结构程序设计—计数循环for 循环 For描述已知重复次数的循环结构。 一、For语句基本格式 (1) 递增循环： for 循环变量：=初值 to 终值 do 　 语句（块）（循环体）；  (2)递减循环： for 循环变量：=初值 downto 终值 do 语句（块）（循环体）； 例7_3 求1+2+3+…+99+100 Program ex; Var i,sum:integer; Begin End. 三、说明 ①循环控制变量必须是顺序类型。 　　②循环控制变量的值递增或递减的规律是：选用to则为递增；选用downto则递减。 ③循环控制变量的值“超过”终值，对递增型循环，“超过”指大于，对递减型循环，“超过”指小于。 ④循环体可以是一个基本语句，也可以是一个复合语句。 ⑤循环控制变量的初值和终值一经确定，循环次数就确定了。 abs(终值－初值)＋1，abs(ord(初值)－ord(终值))＋1 ⑥在循环体内对循环变量的值进行修改，常常会使得循环提前结束或进入死循环。建议不要在循环体中随意修改控制变量的值。 ⑦for语句中的初值、终值都可以是顺序类型的常量、变量、表达式。 For/to/do while/do repeat/until while 循环和repeat-until循环是可以互相替代的。 for 循环在大多数场合也能用while和repeat-until循环来代替. for循环用于有确定次数循环，而while和repeat-until循环用于未确定循环次数的循环。 for循环的嵌套 在一个for循环的循环体中又包含另一个for循环，称为for循环的嵌套。内层for循环是外层for循环体中的一个语句。 例7_5 编程输出以下形状的字符组合： 题1 ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ program ex1;var i,j:integer;begin for i:=1 to 5do　begin　　for j:=1 to 5 do　　　　write(*);　　writeln;　end;readln;end. 题4 ＊ 　　　＊＊＊ 　　＊＊＊＊＊ 　＊＊＊＊＊＊＊ ＊＊＊＊＊＊＊＊＊ program ex4; var i,j:integer; begin for i:=1 to 5 do begin write( :6-i); for j:=1 to 2*i-1 do write(*); writeln; end; readln; end. 例7-6 打印出下列的金字塔 1 1 2 1 1 2 3 2 1 1 2 3 4 3 2 1 1 2 3 4 5 4 3 2 1 …… …… 1 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1 program ex57; var row,col,indent:integer; begin indent:=25; for row:=1 to 9 do{行数} begin write(:indent); for col:=1 to row do write(col:2); for col:=row-1 downto 1 do write(col:2); {每行上的数字} writeln; indent:=indent-2; end; readln; end. 例7-7 把一元钞票换成一分、二分、五分硬币（每种至少一枚）有多少种换法。 上机练习： 一个炊事员上街采购,用500元钱买了90只鸡, 其中母鸡一只15元,公鸡一只10元,小鸡一只5元,正好把钱买完。问母鸡、公鸡、小鸡各买多少只？ 打印下列图案： * * * * * * * * * # @ * # # @ @ * * # # # @ @ @ * * * A