1.2.3基本算法语句基本算法语句 循环语句循环语句循环结构有两种循环结构有两种-当型与直到型当型与直到型.满足条件？满足条件？循环体循环体是是否否当型循环结构当型循环结构直到型循环结构直到型循环结构循环体循环体是是否否满足条件？满足条件？即即WHILEWHILE语句和语句和UNTILUNTIL语句。语句。 (1)WHILE(1)WHILE语句的一般格式是语句的一般格式是: :WHILE WHILE 条件条件 循环体循环体WENDWENDWHILEWHILE当当 时候时候WENDWEND朝朝方向方向 行走行走(1)WHILE(1)WHILE语句的一般格式是语句的一般格式是 WHILE 条件条件 循环体循环体WEND满足条件？满足条件？循环体循环体是是否否当型循环结构当型循环结构(2)UNTIL(2)UNTIL语句的一般格式是语句的一般格式是: :DODO 循环体循环体LOOP UNTIL LOOP UNTIL 条件条件循环体循环体是是否否满足条件？满足条件？直到型循环结构直到型循环结构DODO做什么做什么LOOP UNTILLOOP UNTIL绕环回线走绕环回线走, ,直到达到某种直到达到某种 条件为止条件为止( (即循环下去，直到即循环下去，直到条件成立，执行条件成立，执行UNTILUNTIL语句后的语句语句后的语句) )(2)UNTIL(2)UNTIL语句的一般格式是语句的一般格式是: :DODO 循环体循环体LOOP UNTIL LOOP UNTIL 条件条件循环体循环体是是否否满足条件？满足条件？直到型循环结构直到型循环结构区别区别：在：在WHILEWHILE语句中语句中, ,是当条件是当条件满足满足时执行循环时执行循环体体, ,而在而在UNTILUNTIL语句中语句中, ,是当条件是当条件不满足不满足时执行循环时执行循环体。体。WHILEWHILE语句的一般格式语句的一般格式WHILE WHILE 条件条件 循环体循环体WENDWENDUNTILUNTIL语句的一般格式语句的一般格式DODO 循环体循环体LOOP UNTIL LOOP UNTIL 条件条件例例1.1.编写程序编写程序, ,计算自然数计算自然数1+2+3+1+2+3+99+100+99+100的和的和. .分析分析: :这是一个累加问题这是一个累加问题. .我们可我们可以用以用WHILEWHILE型语句型语句, ,也可以用也可以用UNTILUNTIL型语型语句。句。WHILEWHILE语句语句开始开始结束结束i=1S=0i=i+1S=S+i输出输出Si100?是是否否当型循环结构当型循环结构i=1S=0WHLIE i100?否否是是直到型直到型i=1S=0DOS=S+ii=i+1LOOP UNTIL i100PRINT SEND开始开始i=1S=0i100?是是S=S+ii=i+1否否输出输出S结束结束当型循环当型循环结构结构变式训练变式训练(1):(1):编写程序求编写程序求:n!=1:n!=12 23 34 45 5n n的值的值. .如何修改如何修改? ?输入输入nWHILEWHILE语句语句i=1S=0WHLIE i100PRINT SENDS=1101S=Sii=i+2是是开始开始结束结束i=1S=0i=i+1S=S+i输出输出Si100?否否直到型直到型S=1S=Si i=i+2i101?例例2:2:根据根据P7P7页图页图1.1-2,1.1-2,将程序框图转化为程序语句将程序框图转化为程序语句INPUT “n=”;ni=2DO r=n MOD i i=i+1LOOP UNTIL i=n OR r=0IF r=0 THEN PRINT “n is not a prime number.”ELSE PRINT “n is a prime number.”END IFEND程序程序习题解答习题解答1.P19页图页图1.1-20程序框图程序框图程序程序a=1b=2e=0.005DOm=(a+b)/2f=m2-2g=a2-2IF gf0 THENa=mELSEb=mEND IFLOOP UNTIL ABS(a-b)0?程序框图程序框图开始开始f(x)=x2-2输入误差输入误差和初值和初值a,ba=m否否b=m|a-b|20PRINT “x=”;x, “y=”;yENDx=x+1程序程序2.P24页练习页练习T2.x=1WHILE x=20y=x2-3x+5WENDPRINT x, yENDx=x+1程序程序3.P25页页A组组T4.程序程序INPUT “n=”;ni=1S=0WHILE i=nS=S+(i+1)/ii=i+1WENDPRINT “S=”;SEND4.P25页页B组组T1.程序程序n=1p=1000WHILE n=7p=p(1+0.5)n=n+1WENDPRINT pEND5.P40页页A组组T4.程序程序INPUT “n=”;ni=1S=0WHILE i=nS=S+1/ii=i+1WENDPRINT “S=”;SEND6.P40页页A组组T2. 程序框图程序框图程序程序INPUT a1,b1,c1,a2,b2,c2IF a10 THENu=-a2/a1b=b2+b1uc=c2+c1uy=c/bx=(c2-b2y)/a2ELSEy=c1/b1x=(c2-b2y)/a2END IFPRINT x,yEND 继续继续开始开始程序框图程序框图输入输入a1,b1,c1,a2,b2,c2a10?是是u=-a2/a1b=b2+b1uc=c2+c1uy=c/bx=(c2-b2y)/a2否否y=c1/b1输出输出x,y结束结束返回返回7.P25-26页页B组组T3.程序程序INPUT “a=”;aINPUT “n=”;ntn=0sn=0i=1WHILE i=ntn=tn+asn=sn+tna=a10i=i+1WENDPRINT snEND