资源描述：
《for循环语句练习题讲解及其它循环结构)20130815.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、程序如下：ProgramEx1_4VarI,S:integer;Begini:=2;Fori:=0to100dobegins:=0;S:=S+i;end;Writeln(‘1+2+3+…+’,n,’=’,s);End.一、for语句的一般格式for<控制变量>:=<表达式1>to<表达式2>do<语句>;for<控制变量>:=<表达式1>downto<表达式2>do<语句>;运行调试如下程序，观察现象。ProgramEx1_4Vari,S:integer;Begins:=0;Fori:=0to100dobe
2、gini:=i+1;S:=S+i;end;Writeln(‘1+2+3+…+’,n,’=’,s);End.练习:1.计算并输出1*3*5*7*(2N-1)的积.（n<10）2.计算s=1*2+3*4+5*6+7*8+…+(2N-1)*2n的积.(n<1000)练习:1.计算并输出1*3*5*7*(2N-1)的积.2.计算s=1*2+3*4+5*6+7*8+…+(2N-1)*2n的积.练习1：一个两位数x，将它的个位数和十位数对换得到另一个数y,此时Y恰好比X大36，编程求出所有这样的两位数。分析练习2：输入
3、一个自然数，求该自然数所有约数之和。分析输入X----找出X的所有约数（从1到X逐个判断，看XMODY是否为0），并且累加起来保存在S中---输出S即可练习3：把整数3025从中剪开分为30和25两个数，此时再将这两数之和平方，（30+25）^2=3025计算结果又等于原数，求所有符合这样条件的四位数。一、WHILE循环对于for循环有时也称为计数循环，当循环次数未知，只能根据某一条件来决定是否进行循环时，用while语句或repeat语句实现循环要更方便。while语句的形式为：while<布尔表达式
4、>do<语句>；其意义为：当布尔表达式的值为true时，执行do后面的语句。WHILE循环与REPEAT…UNTIL循环while语句的执行过程为：①判断布尔表达式的值,如果其值为真,执行步骤2,否则执行步骤4;②执行循环体语句(do后面的语句);③返回步骤1;④结束循环,执行while的下一个语句。说明：这里while和do为保留字，while语句的特点是先判断，后执行。当布尔表达式成立时，重复执行do后面的语句(循环体)。例1、求恰好使s=1+1/2+1/3+…+1/n的值大于10时n的值。分析：“恰好
5、使s的值大于10”意思是当表达式s的前n-1项的和小于或等于10，而加上了第n项后s的值大于10。从数学角度，我们很难计算这个n的值。故从第一项开始，当s的值小于或等于10时，就继续将下一项值累加起来。当s的值超过10时，最后一项的项数即为要求的n。programex;vars:real;n:integer;｛n表示项数｝begins:=0.0;n:=0;whiles<=10do｛当s的值还未超过10时｝beginn:=n+1;｛项数加1｝s:=s+1/n;｛将下一项值累加到s｝end;writlen('n
6、=',n);｛输出结果｝end.二、直到循环（REPEAT－until语句）用while语句可以实现“当型循环”，用repeat-until语句可以实现“直到型循环”。repeat-until语句的含义是：“重复执行循环，直到指定的条件为真时为止”。直到循环语句的一般形式:repeat<语句1>;:<语句n>;until<布尔表达式>;其中Repeat、until是Pascal保留字，repeat与until之间的所有语句称为循环体。说明：①repeat语句的特点是：先执行循环，后判断结束条件，因而至少要执
7、行一次循环体。②repeat-until是一个整体，它是一个（构造型）语句，不要误认为repeat是一个语句，until是另一个语句。③repeat语句在布尔表达式的值为真时不再执行循环体，且循环体可以是若干个语句，不需用begin和end把它们包起来，repeat和until已经起了begin和end的作用。while循环和repeat循环是可以相互转化的。例2、求两个正整数m和n的最大公约数。分析：求两个正整数的最大公约数采用的辗转相除法求解。以下是辗转的算法：分别用m,n,r表示被除数、除数、余数。①
8、求m/n的余数r.②若r=0,则n为最大公约数.若r≠0,执行第③步.③将n的值放在m中,将r的值放在n中.④返回重新执行第①步。programex;varm,n,a,b,r:integer;beginwrite('Inputm,n=');readln(m,n);a:=m;b:=n;repeatr:=amodb;a:=b;b:=r;untilr=0;writeln('Thegreatestcommondivide
