第五章 重复结构课件.ppt

第五章 重复结构;重复控制结构为计算机程序描述重复计算所提供的控制手段。一个重复控制结构需指明以下三件事情： 1．被重复执行的语句； 　2．是否重复的条件； 　3．具体的重复方式。 　在PASCAL语言，用for，while和repeat三种语句描述重复控制结构。;第一节 FOR语句;为了正确使用for语句，需遵守以下几点约定： 　　1．for语句的控制变量、初值、终值的数据类型应一致，且限于整型、布尔型和字符型等对函数ord 有意义的数据类型，即序数类型； 　　2．初值与终值一经确定，重复次数就确定不变了。 　　3．控制变量在重复语句内不能施加任何赋值操作； 　　4．for语句正常结束后，控制变量值无意义。;例5-1 打印输出大写英文字符A到Z，以及对应的ASCII的序号。 Program example5_1; var i : char; begin for i := A to Z do write(i:4,ord(i):4); readln; end.;　例5-2 由键盘输入N（N = 12）,打印输出 N! 的值。 ;Program example5_2; Var n,i,s : longint; begin write(’Input N = ’); readln(n); s := 1; for i := n downto 1 do s := s*i; writeln(n, ’! = ’,s); end. ; 例5-3 计算公式 h(n)=1+1/2+1/3+…+1/n前n项的和。 ;program example5_3; var i,n:integer; h:real; begin write(Input N = ); readln(n); h := 0; for i := 1 to n do h := h+1/i; writeln(h = ,h); end. ; 例5-4 有一个四位的正整数，它的前两位数和后两位数之和的平方，等于其本身。打印输出满足以上条件的所有正整数。 ;Program example5_4; var i,m,n : integer; begin for i := 1000 to 9999 do begin m := i div 100; n := i mod 100; if (m+n)*(m+n) = i then writeln(i); end; end. ;例5-5 在8*8的国际象棋的棋盘上，第一格放一粒米，第二格放两粒米，第三格放四粒米，第四格放八粒米，以此类推，后一格是前一格的两倍。问共需多少粒米？ ;　 Program example5_5; var i : byte; t,s : real; begin t := 1; s := 1; for i := 2 to 64 do begin t := t*2; s := s+t; end; writeln(Total : ,s:0:0); end.;1、编写一个评分程序，接受用户输入1个选手的10个得分（0-10分），然后去掉一个最高分和一个最低分，求出某选手的最后得分。（平均分） VAR a,max,min,i:integer; s:real; begin readln(a); max:=a; min:=a; s:=a; ; for i:=2 to 10 do begin readln(a); s:=s+a; if amax then max:=a; if amin then min:=a; end; s:=(s-min-max)/8; writeln(s:5:3); readln