第4讲重复程序结构打印.pdfVIP

第4讲 重复程序结构 重复结构就是循环结构，是指某些语句需要重复执行的程序结构。在 PASCAL语言中，共有三种重复结构语句，功能各有不同。 这三种语句是： 1、直到语句（repeat-until语句） 2、当语句 （while语句） 3、for循环语句  直到语句 格式： repeat 语句序列；（循环体） until布尔表达式； 其作用是：重复执行语句序列（循环体），直到布尔表达式的值为true为止。 即，布尔表示式的值如果为假就要一直循环。我们可以理解为，“不达目的， 不干休；达到目的，才结束”。 例题1：计算M=1+2+3+4+„„，直到M的值大于5050为止。[例：5、1] Var m,I:integer; begin m:=0; 累加器m赋初值} { i:=0; 累加器i赋初值} { Repeat 循环开始} { i:=i+1; 累加器i加1} { m:=m+i; 累加器m加1}{ Until m>5050;直到累加器m的值超过{5050为止} Writeln(i,’ ’,m); 输出i和{m的值，是多少？} End. 在上述程序中，我们使用了PASCAL中的两个作用强大的概念：累加和循 环。 ①累加：我们在上述程序中没定了两个累加器：I，M。 累加器初值我们在第一句中设定了为0，之后每次运行一次I：=I+1后， I的值就比原来大1。每运行一次M：=M+I后，M的值就被M+I所替代。 ②循环：这里我们使用的是直到循环，即重复执行循环体中的两个语句，直 到M>5050这个条件满足为止（即这个布尔表达式的值为TRUE为止）。 上述程序运行后，会在输出屏幕上显示什么结果？ 1  累加和累乘 ①象上述这种X=1+2+3+„„这种加法，我们就把它叫累加，这里的X就是累 加器，一般初值为0。 ②而N=1*2*3*4*5*6*„„这种乘法我们把它叫累乘，这里N就是累乘器，一 般初值为1（为什么？）。一般的：1*2*3*„„*N，我们把这个式子的结果叫 做N的阶乘（N！）。如：4！=1*2*3*4。 练习 1、模仿例1，编一程序，求1+2+„„+n，直到n=2010为止，输出结果。（注 意变量的类型） 2、模仿例1，编一程序，求12！（注意变量的类型）  随机数 Random是一个函数，random随机产生0～1（不包括1）之间的一个小数，random （n）其中n>0，产生0<=random(n)<n的一个整数。 例题2：随机产生一个0~100（不包括100）的整数。 【Example2】 Var i:integer begin i:=random(100); writeln(i); readln; end. 试试看，多运行几次上述程序，结果有没有什么不同？实际上，你会发现， 该程序无论运行几次结果都一样，这也就是说“还不够随机”。 通常，我们在使用random函数前，都会用randomize；语句，让结果更 随机，请你把该语句加到程序中使用random函数之前，再运行几次，结果有 何不同？ 练习 3、随机产生一些1—100之间的整数，直到产生的数为50为止，问你一共随 机产生了多少个数，把这些数都输出来，最后输出一个总数。 4、输入一个正整数 n，如 n=100，把它分解成质因子相乘的形式输出 。如 100=2*2*5*5 2 5、在练习3已完成的前提下，你能否将程序改造一下，输出2～100所有的 式子 如 2=2，3=3，4=2*2，„„，100=2*2*5*5 6、求e=1+1/2!+1/3!+„+1/n! (1)直到第50项 -5 (2)直到最后一项小于10  当