while与repeat语句.pptVIP

Program Example; var s, x: real; begin s := 1; x :=1; repeat s := s * x; readln(x); until x = 0; writeln( ‘ s =‘, s); readln; end. 累加和累乘 Inc(var x:integer); 它在程序中等价于x :=x+1; dec(var x:integer); 它在程序中等价于x :=x-1; 控制循环语句 Break语句 功能：强制退出循环，返回到循环语句的下一语句。 i:=1; s:=0; While i= 5 do begin s:=s+I; writeln(i:4, s:4); If s2 then break; i:= i+1; End; Write(‘s=‘, s); 练习： 分别用repeat和while语句实现： 1.求2的i(0..N)次幂的和，直到2的N次幂大于1000为止。 2.用迭代法求y = ) x y = y + 初始值y0 = x , 误差要求 ε=10 。X由键盘输入。 3.输入几组a, b, c的值，计算对应方程 ax^2+bx+c=0的根，若a=0，停止计算。 4.计算当我国人口增长率分别为3%时，从1982年算起多少年就会达到或超过12亿人口（1982年人口数为10亿3千万） 5.输入一个正整数，求其因子的和（因子不包括1与其自身）。 多重循环 Program example; Var n, m, I, j :integer; Begin write(‘n, m=‘); readln(n, m); For i:=1 to n do begin for j:=1 to m do write(‘*’); writeln; end; Readln; End. 多重循环 Pascal语言的循环语句中的循环体都可以嵌套，即循环语句的循环体中又有循环语句。我们称此种循环结构为多重循环。多重循环的嵌套层次是任意的，可以按嵌套的层次数分为二重循环、三重循环。 处于内层的内循环，处于外层的外循环。 嵌套关系的循环变量不可以同名。 当我国人口增长率分别为3%、2.5%，2%，1.5%，1%，0.5%时，从1982年算起多少年就会达到12亿人口？（1982年人口数为10亿3千万） Program example; Var I,n:integer; r,p:real; Begin r:=3; For i:=1 to 6 do begin 多重循环练习1： 输出下列图形 1 1 121 12321 2 A A B A B C ……… A B C ………X Y Z 多重循环练习2 （for嵌套） 计算并输出2N，2-N。N=0，1，2，．．．15. 计算1！+2！+ ．．．+M！ 在国际象棋棋盘上放米粒，第一格放1粒，第二格放2粒，第三格放4粒，第四格放八粒，以此类推，计算棋盘共放多少粒米？（64） 多重循环练习 3.分解合数：将2~100间的每个数分解为素数的积。如： 2=2； 3=3； 4=2*2； 输入一个正整数判断是否为素数； 验证哥德巴赫猜想：将6~100中的所有偶数分别用两个素数之和表示。输出为： 4=2+2； 6=3+3； 练习： 5.验证哥德巴赫猜想：将7~100中的所有奇数分别用3个素数之和表示。输出为： 7=2+2+3 9=3+3+3 11=2+2+7 6.计算∏/4 的值=1-1/3+1/5-1/7+…+1/(4n-3)…1/(4n-1)(n=100). 7.输入x的值，按下列公式计算cos(x). Cos(x)=1-x2 /2!+x4/4!-x6/6!+…,直到最后一项的绝对值小于10-7时为止。 8.输入x值，按下列公式计算x-x3/3+x5/5-x7/7+… (1)直到100项； （2）直到最后一项的绝对值小于10-7为止。 9.按下列公式计算e的值，e=1+1/2!+1/3!+1/4!+…1/n! (1)直到30项。 （2）直到最后一项的绝对值小于10-7时为