循环结构之for语句pascal语言概要.pptVIP

2015年山东省信息学奥赛夏令营 2015年山东省信息学奥赛夏令营 循环结构 打印一行10个*。 var i:integer; begin for i:=1 to 10 do write(*); end. 输出1－100之间的所有偶数。 var i:integer; begin for i:=1 to 100 do if i mod 2=0 then write(i,’ ’); end. 顺序打印出26个小写英文字母 : abc…zz…cba var k : char; begin for k : =a to z do write(k); for k : =z downto a do write(k); writeln; end. 循环结构程序通常由三种循环语句来实现。它们分别为 1）计数循环——For 2）当型循环——while 3）直到型循环—— repeat……until 通常将一组重复执行的语句称为循环体，而控制重复执行或终止执行由重复终止条件决定。 因此，重复语句是由循环体及重复终止条件两部分组成。 1、for语句的一般格式： for 控制变量:=表达式1 to 表达式2 do 一条语句; for 控制变量:=表达式1 to 表达式2 do begin 语句1； 语句2； …… end； 表达式1 与表达式2的值也称为控制变量的初值和终值。 循环体：重复执行 循环体：重复执行 for语句 For语句执行过程 ①先将初值赋给左边的变量i（称为循环控制变量）； ②判断循环控制变量的值是否已“超过”终值，如超过则跳到步骤⑥； ③如果未超过终值，则执行do后面的那个语句（称为循环体）； ④循环变量自动递增（对to）１；或递减（对downto)１ ⑤返回步骤②； ⑥循环结束，执行ｆforｒ循环下面的一个语句。 输入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. i:循环控制变量 循环体：重复执行 初值 终值 说明： 1、循环控制变量必须是顺序类型。 如：整数（integer,longint）、字符型 不能是实数型。 不能是int64型。 2、循环次数：终值-初值+1。 3、初始值不一定必须是1。 for 控制变量:=表达式1 downto 表达式2 do 表达式1表达式2。 循环控制变量每次-1。 输入n，求s=1+2+3+…+n的值。n=100. Var n,i,s:integer; Begin readln(n); s:=0; for i:=1 to n do s:=s+i; writeln(s); End. 计算1*2*3*……*10 var i:integer;sum:longint;begin　　sum:=1;　　for i:=1 to 10 do　　 sum:=sum*i;　　writeln(sum);end. 累加器和累乘器 累加器形式为：s:=s+x; 一般s的初值为0。 累乘器形式为：s:=s*x; 一般s的初值为1。 例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)