pascal多重循环.ppt

知识回顾 For语句 1.递增型FOR循环。? FOR 循环控制变量:=循环初值 TO 循环终值 DO 循环的语句（或语段）例： FOR I:=5 TO 10 DO WRITELN (I);? 如果要重复多个语句，一定要用BEGIN-END形式：?例：FOR I:=1 TO 10 DO? BEGIN? WRITELN (I);? WRITELN (10-I);? END;? 知识回顾 For语句 2.递减型FOR循环? FOR 循环控制变量:=循环初值 DOWNTO 循环终值 DO 循环语句?递减型FOR循环与递增型FOR循环基本相同，只是循环控制变量每次递减。? 知识回顾 3.FOR循环的几点注意内容：?(1)循环控制变量必须是顺序类型的变量。所谓顺序类型的变量，就是指整型，字符型，枚举型，子界型，不允许是实型。?(2)不允许在循环体内再对循环控制变量赋值。例如： A:=10;B:=50;?FOR K:=A TO B DO? BEGIN? K:=K+1;{这一句是错误的！！！} WRITELN (K);? END;? 循环嵌套实例 打印出“*”组成以下图形（4行每行5个）： 循环嵌套实例 打印出“*”组成以下图形（5行）： * 第四节：多重循环 * * 就像条件语句（if）可以嵌套一样，一个循环结构的内部（循环体）也可以包括一个循环结构，就称为多重循环结构。实现多重循环结构可以用前面讲的三种循环语句，任一循环语句的循环体部分都可以包含另一个循环语句，也称为循环语句的嵌套。多重循环语句的嵌套次数可以是任意的，按照嵌套层次数，分别叫做二重循环、三重循环等。 例1.计算下面程序的输出结果. program xh; var i,j,k:integer; begin k:=0; for i:=1 to 4 do for j:=1 to 4 do k:=k+i+j; write(k); end. 思考：i:=2 j:=4，下一次循环之后里面的值是多少？本题的结果是多少？ 一个for循环好比是一个齿轮， 多个for循环就好比是很多的 齿轮卡在一起，外面的大“齿轮” 总是使它最近的小”齿轮“转一圈 后自己才转一格，也就是说“大齿 轮”每转一格，“小齿轮”都要转一 圈当最大的“齿轮”转完了，循环也 就结束了。 ***** ***** ***** ***** program tuxing(input,output);var i，j:integer;begin for i:= 1 to 4 do? bebin for j:=1 to 5 do???? begin write(‘* ‘); end; writeln; end; readln; end. * ** *** **** ***** program tuxing(input,output);var i，j:integer;begin for i:= 1 to do? bebin for j:=1 to do???? begin write(‘* ‘); end; writeln; end; readln; end. 例2.求S=1!+2!+3!+...+10!的值。 分析： 第一步：把每一项的值相加：　　　for n:=1 to 10 do　　　begin　　　　1.N!的值为t;　　　　2.累加N!的值为S;　　　end;　　第二步：求N!的值: t:=1; 　　　for j:=1 to n do 　　　　t:=t*j; program exe;　　　var　　　　t,s:longint;　　　　i,j,n:integer;　　　begin　　　　s:=0;　　　　for n:=1 to 10 do　　　　begin　　　　 t:=1;　　　　　for j:=1 to n do　　　　　　t:=t*j;　　　　 s:=s+t;　　　　end;　　　　writeln(s=,s);　　　end.