06第六课 循环结构程序设计(全课).pptVIP

第六课　循环结构程序设计 概念 在程序设计中，经常需要将一些功能按一定要求反复执行多次，我们将这一过程称为循环。 步长型循环（For语句） for 语句用来描述已知重复次数的循环结构。for 语句有两种形式：　(1) for 循环变量：＝初值　to　终值　do　语句；　(2) for 循环变量：＝初值　downto　终值　do　语句； 说明 ①循环控制变量必须是顺序类型。例如，可以是整型、字符型等，但不能为实型。 例：计算1+2+3+……+99+100的和 program jia; var i,n,sum:integer;begin sum:=0; for i:=1 to 100 do sum:=sum+i; writeln(sum); readln；end. 不允许在循环体内再对循环控制变量赋值。 a:=10;b:=50; for k:=a to b do begin k:=k+1;{这一句是错误的！！！！！}writeln (k); end; 当循环初值或循环终值中包含变量时，允许在循环体内改变这些变量的值，并不改变原定的循环次数。例：a:=1;b:=10; for i:=a to b do begin a:=5;b:=4;end; 在上面例子中，A，B的值在循环的内部发生了变化，但并不影响循环的次数，依然是10次。 输出1－100之间的所有偶数。 var i:integer;　　begin　　　for i:=1 to 100 do　　　 if i mod 2=0 then write(i:5);　　end. 求N！＝1＊2＊3＊…＊N ，这里N不大于10。 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. 循环嵌套 当一个循环的循环体中又包含循环结构程序时，我们就称之为循环嵌套 。 求1!+2!+…+10!的值。 程序 program ex4_5;　　var t,s:real;　　　 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:0:0);　　end. 程序改进 program ex4_5;　　var t,s:real;　　　　i,j,n:integer;　　begin　　　S:=0;t:=1;　　　for n:=1 to 10 do　　　begin　　　　t:=t*n;　　　　S:=S+t;　　　end;　　　writeln(s=,s:0:0);　　end. 例 一个炊事员上街采购，用500元钱买了90只鸡，其中母鸡一只15元，公鸡一只10元，小鸡一只5元，正好把钱买完。问母鸡、公鸡、小鸡各买多少只？ 源程序 programr ex4_6;　var i,j,k:integer;begin　for i:=0 to 33 do　 for j:=0 to 50 do　　begin　　　k:=90-i-j;　　　if 15*i+10*j+5*k=500 then writeln(i:5,j:5,k:5);　　end;end. 当(while)语句 程序框图 从框图中可以看出，要使用循环语句时，必须要确定循环体及条件（布尔表达式）两个重要因素，亦即首要考虑的是：我要重复执行哪些语句，我要重复到什么时候为止！ while语句的执行过程为： ①判断布尔表达式的值,如果其值为真,执行步骤2,否则执行步骤4;②执行循环体语句(do后面的语句);③返回步骤1;④结束循环,执行while的下一个语句。 例：计算 18！ var i:integer; x:longint;begin i:=1; x:=1; While i=18 do begin x:=x*I; i:=i+1; end;Writeln(x);End. 例题 从键盘上输入两个整数 M， N，求它们的最大公约数。 程序 Var m,n,x:intege