第11部分解析

1、Visual Foxpro 6.0,程序設(shè)計(jì)基礎(chǔ),重慶工商大學(xué)計(jì)算機(jī)學(xué)院計(jì)算機(jī)基礎(chǔ)教研室,3種循環(huán)結(jié)構(gòu),Do while.enddo,for.endfor,scan.endscan,循環(huán)輔助語句,loop: 通常又稱為中途復(fù)始語句或短路語句。,exit：通常又稱為中途退出語句或循環(huán)終止語句。,流程圖：,條件,語句序列 LOOP EXIT,enddo的下一條命令,N,Y,【例】 將10到20中第一個(gè)能被3整除的數(shù)找出來。,For n=10 to 20 if n%3=0 ?n exit endif endfor,【例】 求300以內(nèi)能被17整除的最大的數(shù)。,for x=300 to 1 step

2、-1 if mod(x,17)=0 ?x exit endif endfor,從大數(shù)開始，第一次找到的就是最大值,【例】 將10到20中所有不能被3整除的數(shù)找出來。,for n=10 to 20 if n/3=int(n/3) loop endif ?n endfor,【例】 求300以內(nèi)能被17整除的所有整數(shù)。,for x=1 to 300 if x%17!=0 loop else ?x endif endfor,例：計(jì)算100以內(nèi)的奇數(shù)和,s=0 i=0 do while .t. i=i+1 if i100 exit endif if i%2=0 loop else s=s+i endif

3、 enddo ? 100以內(nèi)的奇數(shù)和為：,s cancel,mod(I,2)=0 或 int(i/2)=i/2,store 0 to x,s do whil .t. x=x+1 s=5*x if s20 exit else ?s endi endd retu,結(jié)果為：5 10 15 20,例：寫出程序的結(jié)果,x=.t. s=0 do whil x s=s+1 if s/8=int(s/8) ?s else loop endi if s30 x=.f. endi endd retu,結(jié)果為：8 16 24 32,例：寫出程序的結(jié)果,例：逐條顯示xsda.dbf中女生的記錄并統(tǒng)計(jì)人數(shù)。 clea

4、use xsda vs=0 do whil not eof() if 性別=“男” scan skip if 性別=“男” loop loop else else disp disp vs=vs+1 vs=vs+1 skip endi endi ends endd ?”女生人數(shù)為：”,vs retu,例：以下程序段與VFP命令： DELETE WHILE 性別=男 .and. 政治面貌=群眾 等效，請?zhí)羁胀瓿伞?Go top do while .not.eof() if 性別男 endif if 政治面貌=群眾 endif skip enddo,exit delete,例：下列程序判斷一個(gè)自然

5、數(shù)n是否為素?cái)?shù)，其方法是用2到之間的數(shù)逐個(gè)去除，若余數(shù)都不為0，則n為素?cái)?shù)，否則不是素?cái)?shù),請?zhí)羁胀瓿伞?INPUT 請輸入一個(gè)大于1的自然數(shù): TO N Y=1 &Y=1表示所輸入的自然數(shù)是素?cái)?shù),為0表示不是素?cái)?shù) X=INT(SQRT(N) I=2 DO WHILE I=X IF N%I_ _ LOOP ELSE Y=0 EXIT ENDIF ENDDO IF Y=1 ?_ +是素?cái)?shù) ELSE ?N,不是素?cái)?shù) ENDIF RETURN,0 i=i+1 str(n),多重循環(huán)（掌握雙重循環(huán)）,真,真,外循環(huán)初始條件,內(nèi)循環(huán)初始條件,內(nèi)循環(huán)體,外循環(huán)條件,假,內(nèi)循環(huán)條件,假,改變內(nèi)循環(huán)循環(huán)條件,改

6、變外循環(huán)循環(huán)條件,外循環(huán)結(jié)束,二重循環(huán)嵌套結(jié)構(gòu)執(zhí)行流程,內(nèi)循環(huán)結(jié)束,例:利用雙重循環(huán)編程求sum=1+(1+2)+ (1+2+3)+(1+2+3+10)之值。,方法一： clear sum=0 for i=1 to 10 t=0 for j=1 to i t=t+j endfor sum=sum+t endfor ? 1+（1+2）+（1+2+3）+（1+2+3+10）=,sum return,方法二： clear sum=0 t=0 for i=1 to 10 t=t+i sum=sum+a endfor ?sum=,sum return,例：編寫輸出乘法口訣表的程序，要求口訣表呈三角形格式

7、輸出。,1*1=1 2*1=2 2*2=4 3*1=3 3*2=6 3*3=9 4*1=4 4*2=8 4*3=12 4*4=16 5*1=5 5*2=10 5*3=15 5*4=20 5*5=25 . . . . . 9*1=9 9*2=18 9*3=27 9*4=36 9*5=45 9*9=81,clea for x=1 to 9 =+allt(str(s)+ endf ? endf retu,什么意思，可以省略嗎？,例：編程打印如下圖形： * * * * *,clear for i=1 to 5 &控制行 for j=1 to 2*i-1 &控制列 ?* endfor ? endfor return,for i=1 to 6 & 用于控制行 for k=6 to i step -1 ?“ ” endfor for j