《循环结构for》PPT课件

《《循环结构for》PPT课件》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

第三讲循环结构一for2009/09/26 循环结构引例：输入n（n<=100）个正整数[0..30000],输出他们的和与平均值（小数点后保留2位小数）。输入：第一行：n。第二行：n个用空格隔开的正整数。输出：第一行：n个数的和。第二行：n个数的平均值。 样例输入：41042030样例输出：6416.00 varn,i,x:integer;sum:longint;aver:real;beginreadln(n);sum:=0;fori:=1tondobeginread(x);sum:=sum+x;end;aver:=sum/n;writeln(sum);writeln(aver:0:2);end. 循环结构程序通常由三种循环语句来实现。它们分别为1）、FOR循环2）、当循环while3）、直到repeat循环。 一）、for语句1、for语句的一般格式：for<控制变量>:=<表达式1>to<表达式2>do<一条语句>;for<控制变量>:=<表达式1>to<表达式2>dobegin语句1；语句2；……end；表达式1与表达式2的值也称为控制变量的初值和终值。循环体：重复执行循环体：重复执行 varn,i,x:integer;sum:longint;aver:real;beginreadln(n);sum:=0;fori:=1tondobeginread(x);sum:=sum+x;end;aver:=sum/n;writeln(sum);writeln(aver:0:2);end.i:循环控制变量循环体：重复执行初值终值 For语句执行过程①先将初值赋给左边的变量i（称为循环控制变量）；②判断循环控制变量的值是否已“超过”终值，如超过则跳到步骤⑥；③如果末超过终值，则执行do后面的那个语句（称为循环体）；④循环变量自动递增（对to）１；⑤返回步骤②；⑥循环结束，执行ｆｏｒ循环下面的一个语句。 说明：1、循环控制变量必须是顺序类型。如：整数（integer,longint）、字符型不能是实数型。不能是int64型。2、循环次数：终值-初值+1。3、初始值不一定必须是1。 for<控制变量>:=<表达式1>downto<表达式2>do表达式1>表达式2。循环控制变量每次-1。 例1：输入n，求s=1+2+3+…+n的值。n<=100.Varn,i,s:integer;Beginreadln(n);s:=0;fori:=1tondos:=s+i;writeln(s);End. 例2：输入n，求n以内所有能被2整除但不能被3整除的整数的和。n<=1000varn,i:integer;s:longint;beginreadln(n);s:=0;fori:=1tondoif(imod2=0)and(imod3<>0)thens:=s+i;writeln(s);end. 例3、键入一个自然数N（<=106），求这个自然数的因数的个数S（包含1和n）。如：输入：6输出：4（1，2，3，6） varn,I,s:longint;beginreadln(n);s：=0；fori:=1tondoifnmodi=0thens:=s+1;writeln(s);end. 例4：键入一个自然数N（<10000），求这个自然数的所有约数之和S（n的约数不包含1和n）。如：输入：6输出：5 varn,i:integer;s:longint;beginreadln(n);s:=0;fori:=2ton-1doifnmodi=0thens:=s+i;writeln(s);end. 例5、求100---999中的水仙数。（若三位数abc，a3+b3+c3=abc，则称abc为水仙数。如153，13+53+33=1+125+27=153，则153称为水仙数）。varn,a,b,c:integer;beginforn:=100to999dobegina:=ndiv100;b:=(ndiv10)mod10;c:=nmod10;ifn=a*a*a+b*b*b+c*c*cthenwriteln(n);end;end. 例6、[IMO2]求出所有这样的3位数：它能被11整除，且所得的商是原三位数的各位数字的平方和。varn,a,b,c:integer;beginforn:=100to999dobegina:=ndiv100;b:=(ndiv10)mod10;c:=nmod10;if(nmod11=0)and(a*a+b*b+c*c=ndiv11)thenwriteln(n);end;end. 例7、从键盘上输入n个数，输出他们的最大数，最小数，平均数。输入：第一行：n（<100）.第二行：n个正整数（［1，1000］），中间一个空格隔开。输出：第一行：最大数。第二行：最小数。第三行：n个数的平均值（小数点后保留2位小数）。样例：输入：41042030输出：30416.00 varn,i,x,min,max:integer;beginreadln(n);min:=1001;max:=0;fori:=1tondobeginread(x);ifx>maxthenmax:=x;ifx=108 例11：根据公式计算圆周率的值。小数点后保留6位小数。输入：10000输出：3.1414972222 varn,i:longint;s,p:real;beginreadln(n);s:=0;fori:=1tondos:=s+1/i/i;p:=sqrt(6*s);writeln(p:0:8);end. 例12、键入一个自然数N（<=109），求这个自然数的因数的个数S（包含1和n）。如：输入：6输出：4 varn,I,s,m:longint;beginreadln(n);m:=trunc(sqrt(n));s：=0；fori:=1tomdoifnmodi=0thens:=s+2;writeln(s);end.ifn=m*mthens:=s-1; 例13任何一个n3一定可以表示成n个连续的奇数和。输入n(n≤100)，输出n3对应的表达式。样例：输入：3输出：7+9+11（说明：33=7+9+11） varn,x,i:integer;beginreadln(n);x:=n*(n-1)+1;write(x);fori:=1ton-1dobeginx:=x+2;write('+',x);end;end.