第3讲 循环结构for.pptVIP

第三讲 循环结构一for 2009/09/26 循环结构 引例： 输入n（n=100）个正整数[0..30000],输出他们的和与平均值（小数点后保留2位小数）。 输入： 第一行：n。 第二行：n个用空格隔开的正整数。 输出： 第一行：n个数的和。 第二行：n个数的平均值。 样例输入： 4 10 4 20 30 样例输出： 64 16.00 var n,i,x:integer; sum:longint; aver:real; begin readln(n); sum:=0; for i:=1 to n do begin read(x); sum:=sum+x; end; aver:=sum/n; writeln(sum); writeln(aver:0:2); end. var n,i,x:integer; sum:longint; aver:real; begin readln(n); sum:=0; for i:=1 to n do begin read(x); sum:=sum+x; end; aver:=sum/n; writeln(sum); writeln(aver:0:2); end. 说明： 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. var n,i:longint; s,p:real; begin readln(n); s:=0; for i:=1 to n do s:=s+1/i/i; p:=sqrt(6*s); writeln(p:0:8); end. 循环结构程序通常由三种循环语句来实现。它们分别为 1）、FOR 循环 2）、当循环 while 3）、直到 repeat循环。 一）、for语句 1、for语句的一般格式： for 控制变量:=表达式1 to 表达式2 do 一条语句; for 控制变量:=表达式1 to 表达式2 do begin 语句1； 语句2； …… end； 表达式1 与表达式2的值也称为控制变量的初值和终值。 循环体：重复执行 循环体：重复执行 i:循环控制变量 循环体：重复执行 初值 终值 For语句执行过程 ①先将初值赋给左边的变量i（称为循环控制变量）； ②判断循环控制变量的值是否已“超过”终值，如超过则跳到步骤⑥； ③如果末超过终值，则执行do后面的那个语句（称为循环体）； ④循环变量自动递增（对to）１； ⑤返回步骤②； ⑥循环结束，执行ｆｏｒ循环下面的一个语句。 Var n,i,s:integer; Begin readln(n); s:=0; for i:=1 to n do s:=s+i; writeln(s); End. 例2：输入n，求n以内所有能被2整除但不能被3整除的整数的和。n=1000 var n,i:integer; s:longint; begin readln(n); s:=0; for i: = 1 to n do if (i mod 2=0)and(i mod 30) then s:=s+i; writeln(s); end. 例3、键入一个自然数N（=106），求这个自然数的因数的个数S（包含1和n）。 如： 输入： 6 输出： 4 （1，2，3，6） var n,I,s:longint; begin readln(n); s：=0； for i:=1 to n do if n mod i=0 then s:=s+1; writeln(s); end. 例4：