第七课 Pascal循环结构复习ppt课件.ppt

《第七课 Pascal循环结构复习ppt课件.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、循环结构程序设计复习一、计数循环For循环是一种自动计数循环For循环的两种格式：For循环变量:=初值to终值do循环体For循环变量:=初值downto终值do循环体循环变量在循环体中不出现，其作用仅仅是控制循环体执行的次数次数=终值-初值+1循环变量在循环体中出现，参与运算，不改变循环次数循环变量在循环体中出现，被重新赋值，则改变循环次数，这种情况在pascal中不允许出现计数循环的应用programex1vara:integer;beginfora:=1to20dowriteln(a);writeln（a）；Readln；end

2、.循环了多少次？当循环结束时，a的值为多少？20计数循环用于累加和累乘，如：（1）求s=1！+2！+……+20！（2）求π的值。π/4=1–1/3+1/5–1/7+1/9-……，要求最后一项小于10-6为止（注意正负号的处理）一般处理步骤：变量赋初值，累加变量根据实际需要设为0或其他值，累乘变量一般赋值为1（1）Vari:integer;n,s:longint;BeginN:=1;s:=0；Fori:=1to20doBeginn:=n*i;s:=s+n;End;Writeln(‘s=’,s);end.循环变量参与运算（2）vars:

3、real;t,n:integer;BeginN:=1;s:=0;t:=1;While1/n>=0.000001dobeginS:=s+t*1/n;N:=n+2;t:=-t;End;Writeln(4*s:0:0)End.二、条件循环repeat和while循环是条件循环while循环是当型循环，当循环条件满足时循环，直到条件不满足为止。repeat循环是直到型循环，当循环条件不满足时循环，直到条件满足为止。条件循环的循环体内必须包含能改变控制变量取值的语句，影响条件式的值，最终使条件式为假（或真），结束循环。例1、一张纸的厚度为0.2m

4、m(假设纸张无限大)，将这张纸对折多少次之后就可以超过珠穆朗玛峰的高度（8848m）？programex1(input,output);varthick:real;n:integer;beginthick:=0.2;n:=0;whilethick<=8848000dobeginthick:=thick*2;inc(n);end;writeln(n);end.例2、求两个自然数M和N的最小公倍数programex(input,output);vard,a,b:integer;beginwrite('pleaseinputaandb=');

5、readln(a,b);ifa0thend:=d+a;untildmodb=0;writeln(d);end.可以用其他方法求最小公倍数吗？可以先求两数最大公约数，a*b/最大公约数例3、1600年前我国的一部经典数学著作中有题：“今有物，不知其数，三三数之，剩二；五五数之，剩三；七七数之，剩二，问物几何。”求最小解【分析】只知循环终止的条件，而不知道具体循环多少次，所以必须采用条件循环

6、语句来写该程序例4、猜价格：中央电视台的“幸运52”栏目深受观众喜爱，其中的“猜商品价格”的节目更是脍炙人口，现在请你编一个程序模拟这一游戏：由计算机随机产生200至5000之间的一个整数，作为某件商品的价格，然后由你去猜是多少，若你猜的数大了，则计算机输出提示“Gao”，若你猜的数小了，则计算机输出提示“Di”，然后你根据提示继续猜，直到你猜对了，计算机会提示“Ok”，并统计你猜的总次数。Programex5;Vart,price,guess:integer;BeginRandomize;price:=Random(4801)+200

7、;t:=0;Repeatt:=t+1;write(‘Qingcaiyigezhengshu:‘);readln(guess);ifguess>pricethenwriteln(‘Gao’);ifguess

8、为“外层循环”，包含在外层循环中的循环称为“内层循环”。根据循环嵌套的层数的不同，又有双重循环、三重循环等。注意：循环在嵌套过程中，采用缩进形式例如for……dobegin……while……do……end;