pascal循环结构的回顾上

《pascal循环结构的回顾上》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第三讲循环结构回顾（上）-for循环─程序设设计基础班（A班）08年上学期基础班讲稿知识点回顾在程序设计中我们是通过循环语句来实现程序的逻辑判规律性的重复运算功能。在本讲中我们将回顾循环结构的各种语法格式以及该结构在我们程序设计中的重要应用；在Pascal语言中，循环结构程序通常由三种的循环语句来实现。它们分别为FOR循环、当循环和直到循环。循环结构具体分成三种1）FOR循环结构；2）当型循环while条件do;3）直到型循环repeat….until条件;通常将一组重复执行的语句称为循环体，而控制重复执行或终止执

2、行由重复终止条件决定。因此，重复语句是由循环体及重复终止条件两部分组成。08年上学期基础班讲稿循环应用总结1:一般说来，用for循环比较简明，只要能用for循环，就尽量作用for循环。只在无法使用for循环时才用while循环和repeat-until循环，而且while循环和repeat-until循环是可以互相替代的。for循环在大多数场合也能用while和repeat-until循环来代替。一般for循环用于有确定次数循环，而while和repeat-until循环用于未确定循环次数的循环。OR循环，对于fo

3、r循环有时也称为计数循环，一般只有于预先知道循环的次数的应用中2:当循环次数未知，只能根据某一条件来决定是否进行循环时，用while语句或repeat语句实现循环要更方便。while语句的形式为：while<布尔表达式>do<语句>；　　其意义为：当布尔表达式的值为true时，执行do后面的语句。3:用repeat-until语句可以实现"直到型循环"。repeat-until语句的含义是："重复执行循环，直到指定的条件为真时为止"。　　直到循环语句的一般形式:Repeat<语句1>;:<语句n>;until<

4、布尔表达式>;08年上学期基础班讲稿循环结构的流程图在实际应用中，会经常遇到许多有规律性的重复运算，这就需要掌握本章所介绍的循环结构程序设计。在Pascal语言中，循环结构程序通常由三种的循环语句来实现。它们分别为FOR循环、当循环和直到循环。通常将一组重复执行的语句称为循环体，而控制重复执行或终止执行由重复终止条件决定。因此，重复语句是由循环体及重复终止条件两部分组成。右图表示1+2+…+100的循环结构I<=100NUM：=0I:=1NUM:=NUM+II:=i+1YNNum:=0;Fori:=1to100do

5、Num:=num+I;08年上学期基础班讲稿一、for语句的一般格式for<控制变量>:=<表达式1>to<表达式2>do<语句>;递增for<控制变量>:=<表达式1>downto<表达式2>do<语句>;EG：(1)num:=0;fori:=1to10donum:=num+I;｛i从1递增到100｝(2)num:=1;fori:=10downto1donum:=num*i｛i从10递减到1｝其中for、to、downto和do是Pascal保留字。表达式1与表达式2的值也称为初值和终值。对于for循环有时也称为

6、计数循环，因为我们用循环控制变量来控制循环体执行的次数，循环体执行的次数是(初值和终值之差的绝对值+1)08年上学期基础班讲稿注意下面几点(1)循环控制变量必须为顺序型.可以是整型、字符型、布尔型、枚举型、子界型，不能为实型。如:forI:=1.5to4.5dowrite(I)是错误的。(2)循环体可以是一个基本语句，也可以是一个复合语句。例2：forI:=1tondobeginreadln(x);writeln(x+1);end;(3)循环控制变量不得在循环体内再被赋值，如下例是错误的：例3：forx:=1to1

7、0dobeginx:=2*x+1;writeln(x)end;（4）如果在循环次数没有到就提前退出循环用BREAK;如果在程序中想终止程序用exit;08年上学期基础班讲稿四：应用例一例1．输出1－100之间的所有偶数。Programoushu(input,output）；vari:integer;beginfori:=1to100do{用记数形循环来实现穷举1~100之间的偶数}ifimod2=0thenwrite(i:5);end.思考：统计1到1000之间能够同时被3和7整除的数的个数，并计算他们的和。08年

8、上学期基础班讲稿例二例2．求N！＝1＊2＊3＊…＊N，这里N不大于10。分析：程序要先输入N，然后从1累乘到N。　　程序如下：varn,i:integer；｛i为循环变量｝S:longint;｛s作为累乘器｝beginwrite('Entern=');readln(n);{输入n}s:=1;fori:=2tondo｛从2到n累乘到s中｝s:=s*i;wri