循环结构第一次课.pptVIP

第四讲 循环结构 打印出30至60的偶数 方法一： ①设a表示30至60的所有的数，可用for循环列出； ②用式子　a mod 2=0　筛选出其中的偶数并输出。 打印出30至60的偶数 方法二： ①设n表示15至30的所有自然数，可用for循环列出； ②用式子　a := 2*n　求出其中的偶数； ③将结果输出至屏幕。 * * 三种结构 ab Y bc Y a b c ac cb a c b c a b Y ca ac ba bc ca b c a c b a Y cb b a c Y var a,b,c:integer; begin readln(a,b,c); if ab then if bc then writeln(a, ,b, ,c) else if ac then writeln(a, ,c, ,b) else writeln (c, ,a, ,b) else if ac then writeln(b, ,a, ,c) else if bc then writeln(b, ,c, ,a) else writeln(c, ,b, ,a); end. 4.1.1 for 循环语句有两种格式: (1) for　循环变量:=初值 To 终值 do 语句； (2) for　循环变量:=初值　downto 终值 do 语句； 第(1)种格式的初值小于等于终值,循环变量值按自动加1递增变化； 第(2)种格式的初值大于或等于终值,循环变量值按自动减1递减变化。 for 循环是 (以递增1或以递减1) 计数型循环。 说明：格式中的for,to,downto,do都是保留字,to一般用在升序的计数,而downto用在降序的计数。变量标识符在这里称作是控制变量,必须是离散（有序）数据类型,如： for i:=1 to 100 do …. for ch:=’a’ to ‘z’ do…. for i:=1 downto 100 do …. for ch:=’a’ downto ‘z’ do…. 4.1 循环语句（for语句） t=n s←s+t t←t+1 Y N [例3.1] 试打印出1~20的自然数。 ① 用a代表1~20各数,同时也用a兼作计数,以控制循环次数； ② 让a从1开始； ③ 输出a； ④ a自动计数（加1）,如果未超越所规定的循环范围则重复步骤③,否则结束循环。 Program Exam12； Var a: byte； Begin for a:=1 to 20 do Write (a：2)； End. 若将程序改为倒计数(递减)循环则输出20～1的自然数数: Program Exam31； Var a: byte； Begin for a:=20 downto 1 do Write (a：2) ； End. Program ex32; Var a : integer; Begin For a := 30 to 60 do If (a mod 2=0) then writeln(a); End. Program ex32; Begin For n := 15 to 30 do Begin a := 2*n; Writeln(a); End; End. [例3.2]自然数求和：求从1至100的自然数的和 [分析]：① 令S＝0； ② 令a表示1至100的自然数,用循环列出； ③ 将这些自然数用公式S:=S+a 逐一累加到S中去； ④ 循环结束后,S即为1至100的自然数的和,输出即可。 Program ex32; var s,a : integer; Begin S := 0; For a := 1 to 100 do S := S+a; Writeln(‘S=’,S); Readln; End. t=100 s←s+t t←t+1 Y N [例3.3]计算前N（N1）个自然数中所有偶数的和 [分析]：判定偶数可有多种方法,也可以不用判定而直接去构造偶数,由此得到更多的方法。 [方法1] sum:=0; for counter:=1 to n div 2 do