pascal循环结构程序.ppt

While 布尔表达式 do 语句 1、WHILE语句的含义是：当布尔表达式的值是T时，反复执行DO后面的语句，直到布尔表达式的值是F才执行下一语句。 2、WHILE语句适用于不知道循环次数的循环语句。 3、WHILE语句和FOR语句比较 For I:=1 to 10 do 语句1 I:=1;while I=10 do begin语句1;I:=I+1;end; 例13：计算1*3*5*……*N=10000时，N的值是多大？ 分析：因为不知道循环次数，所以不能用FOR循环，而只能使用WHILE循环。 假设积为P，则条件表达式为P=10000 注意P要在循环前赋初值1 While p=10000 do Program 5_13; Var p,i:integer; begin End. p:=1; While p=10000 do begin p:=p*i; Writlen(I-2:5) i:=1; i:=i+2; end; 课堂练习: 计算1+1*2+2*3+3*4……+（N-1）*N900时，N的值是多大？ 分析：除第一项以外，其余各项均为有规律的数，故采用循环来做，但又不知道循环次数，而只能使用WHILE循环。 假设和为s，则条件表达式为s900 I:=1;While p900 do begin计算和；I:=I+1end; Program 5_13; Var s,i:integer; begin End. s:=1; While s900 do begin s:=s+i*(I+1); Writlen(s:5) i:=1; i:=i+1; end; 项与循环变量的关系是： X：=I*（I+1） S：=S+I*（I+1） 看程序写结果 Program lx_1;var x,y,n,I:integer;begin read(n,x); for I:=1 to n do begin read(y); if xy then x:=y end; writeln(‘x=’,x)end.输入:89 7 8 7 74 22 12 43 56 90 Program lx_2;var p,I:integer;begin p:=1; for I:=1 to p do begin p:=p+1; if p3 then write(p) end; writeln(p)end. Repeat 语句1； 语句2；…… until 布尔表达式 1、repeat语句的含义是：反复执行repeat后面的语句直到当布尔表达式的值是T时才执行下一语句。 2、repeat语句适用于不知道循环次数的循环语句。 3、repeat语句和while语句区别在于：repeat语句先执行后判断，而while语句先判断后执行。 例14：利用格里高公式求?。 ? 4 =1－ + － +……，直到最后一项的值 于10-6为止。 1 3 1 5 1 7 分析：因为不知道循环次数，所以不能用FOR循环，而使用repeat循环。 假设最后一项为N，则条件表达式为N0.000001 While N=0.000001 do Program 5_13; Var n,s,o,i:integer; begin End. s:=1; While n0.000001 do begin n:=1/i; Writlen(s:5) i:=3; O：=1 i:=i+2; end; o:=-o; s:=s+o*n; 课堂练习三: 剧场中有1000个座位,已知第一排有30个座位,以后每排增加2个座位,1000个座位最多能排几排?最后剩余不够一排的座位有几个?如果按前边的排法再补全一排,整个剧场有多少座位? 看程序写结果 Program lx_1;var a,b,y:integer;Begina=3;b:=6;y:=b-a;while y=a+b do begin write(“y=“:10,y); y:=y+b div a;end;end. Program lx_2;var a,b,y:integer;Begint:=0;a:=0;repeat a:=a+1; t:=t+a;until a=20;wirteln(“t=“;t)end. 循环语句结构 各种循环语句特点归纳： for循环的特点： while循环的特点： repeat循环的特点： 循环