当型循环和直到型循环--1.ppt

《当型循环和直到型循环--1.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、循环结构当型循环ftp://10.66.5.100当型循环FOR循环的特点----计数型循环，知道循环的次数。FOR循环举例一：　求S=1+3+5+7+……99；FOR循环举例二：任意一个正整数N的立方，总可以表示成N个连续奇数的和。输入N，输出这N个奇数。另一种问题：求恰好使s=1+1/2+1/3+…+1/n的值大于5时n的值不知道循环次数，无法用FOR语句！！！当型循环While<布尔表达式>do<语句>；其意义为：当布尔表达式的值为true时，反复执行do后面的语句。While语句的执行过程为：　　①判断布尔表达式的值

2、,如果其值为真,执行步骤2,否则执行步骤④;②执行循环体语句(do后面的语句);③返回步骤①;④结束循环,执行While后面的下一个语句。语句流程图NY表达式当型循环if选择请注意区别FOR循环是一种特殊的当型循环当型循环生活中的例子有一个爱哭的小娃娃，有一天他要求父母给买一个玩具，可是父母不同意，于是他就开始一个循环：While(父母不给买玩具)doBegin我哭;End;进一步细化如果父母铁了心就是不给买怎么办？这时小娃娃不可能无限制哭下去(死循环)，还需有一个能结束的条件：While(父母不给买玩具)and(我还没有哭累)d

3、oBegin我哭;End;问题：如何表示哭累的程度？完整程序为表示是否哭累，我们假设小娃娃有一个疲劳度，每哭一次疲劳度加1，当疲劳度到达某个数值，比如100时，可怜的小娃娃累了……程序如下：疲劳度初始化为0;While(父母不给买玩具)and(疲劳度<100)doBegin我哭;看爸妈是否同意买;疲劳度:=疲劳度+1;Ends:=0.0;n:=0;whiles<=5do{停止计数的条件}｛当s的值还未超过5时｝Beginn:=n+1;{项数加1｝s:=s+1/n;{将下一项值累加到S｝End;Writlen(n);｛输出结果｝当

4、型循环例题一从键盘上连续输入字符，当遇到“?”时结束输入，并打印出字符的个数。当型循环例题二当型循环停止计数的条件是字符为“?”，无法用FOR循环。CH--------字符(char)类型num-------整数(integer)类型Read(ch);{读入第一个字符}Whilech<>’?’doBeginnum:=num+1;{统计字符的个数}read(ch);{继续读入下一个字符}End;Writeln(num);{输出字符个数}当型循环例题三所有的For循环都可以转化为While循环求S=1+3+5+……99S:=0;{

5、总和S初始化}i:=1;{计数器i初始化}Whilei<=50dobeginS:=S+2*i－1;i:=i+1;{计数器累加，步长为1}end;Write(s);{退出循环后，i是多少呢？}当型循环例题三初始化值变动时，循环语句可能要变动。求S=1+3+5+……99S:=0;{总和S初始化}i:=0;{计数器i初始化}Whilei<=50dobeginS:=S+2*i+1;i:=i+1;{计数器累加，步长为1}end;Write(s);{这个程序有个小错误}当型循环例题三步长变动时，循环语句可能也要变动。求S=1

6、+3+5+……99S:=0;{总和S初始化}i:=1;{计数器i初始化}Whilei<=????do{i<=50是错的}beginS:=S+i;i:=i+2;{计数器累加，步长为2}end;{这里i如果初始化为0是错的}Write(s);例四求正整数N的所有因子之和Varn,i,s:Longint;BeginReadln(N);{输入N}S:=0;{S初始化}i:=1;{计数器初始化}Whilei<=Ndobegin{复合语句}ifNmodi=0thenS:=S+i;i:=i+1;{计数器累加}end;Writ

7、eln(S);End.OK:=true;Readln(N);i:=2;Whilei<=Round(sqrt(N))doBeginifNmodi=0thenbeginok:=false;break{强行退出循环}end;i:=i+1;End;Ifok=truethenwriteln(‘YES’)elsewriteln(‘NO’);例五判断正整数N是否为质数作业：求两个正整数m和n的最大公约数