循环结构程序有效设计.pptVIP

第四章 循环结构 第一节 循环语句（FOR语句） for语句的一般格式 For语句执行过程 说明 应用举例 第二节 当语句（?WHILE语句） WHILE循环 第三节 直到循环（REPEAT语句） 【上机练习4.3】 第四节 多重循环结构 【上机练习4.4】 1、用REPEAT循环完成如下3题： ①求s=1+2+3+4+…+10 ②求s=1+1/2+1/3+…+1/100 ③计算n！，其中n由键盘输入。 2、读一组实数,遇零终止,打印其中正、负数的个数 及各自的总和。 3、用辗转相除法求两个自然数的最大公约数。 4、找出被2、3、5除时余数为1的最小的十个数。 5、将一根长为369cm的钢管截成长为69cm和39cm 两种规格的短料。在这两种规格的短料至少各截 一根的前提下,?如何截才能余料最少。 当一个循环的循环体中又包含循环结构程序时，我们就称之为循环嵌套。 内循环整个作为外循环的一条语句。 例4.17 求1!+2!+…+10!的值。 【分析】这个问题是求10自然数的阶乘之和，可以用for 循环来实现。程序结构如下： 　　for n:=1 to 10 do begin ①N!的值?t ②累加N!的值?s end 显然,通过10次的循环可求出1!,2!…,10!,并同时累加起来, 可求得S的值。而求T=N!,又可以用一个for循环来实现:因此,整个程序为: program ex4_17; 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 //求n! t:=t*j; S:=S+t; //累加n! end; writeln(‘s=’,s:0:0); end. * * 第一节 循环语句（FOR语句） 第二节 当语句（?WHILE语句） 第三节 直到循环（REPEAT语句） 第四节 多重循环结构 在实际应用中，会经常遇到许多有规律性的重复运算，这就需要掌握本章所介绍的循环结构程序设计。在Pascal语言中，循环结构程序通常由三种的循环语句来实现。它们分别为FOR循环、当循环和直到循环。通常将一组重复执行的语句称为循环体，而控制重复执行或终止执行由重复终止条件决定。重复语句是由循环体及重复终止条件两部分组成。 for 控制变量:=表达式1 to 表达式2 do 语句; //递增型循环 for 控制变量:=表达式1 downto 表达式2 do 语句; //递减型循环 其中for、to、downto和do是Pascal保留字。表达式1 与表达式2的值称为初值和终值。 循环的语句格式： FOR 变量名 := 初值 TO 终值 DO 语句； 求1+2+3+……+N的和。如何编程呢？ 【例】 S：=0； FOR I ：= 1 TO 10 DO S ：= S + I； Writeln（‘S =’，S）； ①先将初值赋给左边的变量（称为循环变量）； ②判断循环变量的值是否“等于”终值，如已等于终值，则下次不再执行（本次是最后一次执行，循环变量的值也不更改），则跳到步骤⑥； ③如果小于等于终值，则执行do后面的那个语句（称为循环体）； ④循环变量递增（对to）或递减（对downto)１； ⑤返回步骤②； ⑥循环结束，执行for循环下面的一个语句。 ①循环变量必须是顺序类型。可以是整型、字符型、枚举型等，但不能为实型。 ②循环变量的值递增或递减的规律是：选用to则为递增；选用downto则递减。 ③循环体可以是一个基本语句，也可以是一个复合语句。 ④循环变量的初值和终值一经确定，循环次数就确定了。但是在循环体内对循环变量的值进行修改，常常会使得循环提前结束或进入死环。所以禁止在循环体中随意修改控制变量的值。如： for i : =1 to 10 do begin i : =2*i+1; //禁止类似的修改，Free Pascal中会提示语法错误 writeln(i); end; 以上for循环是一个死循环，i永远等于2，不可能