财务程序设计第四章(06版).ppt

1、第四章 循环程序设计,本章内容: DO WHILE语句 FOR-ENDFOR语句 SCAN-ENDSCAN语句 多重循环,第一节 循环的概念,一、概念：循环是按照给出的条件去重复执行一段具有特定功能的程序。 二、DO 语句格式: DO WHILE (语句行序列) LOOP (语句行序列) EXIT (语句行序列) ENDDO,F,T,功能：,说明：,1循环中DO WHILE和ENDDO必须成对出现，缺一不可。 2LOOP语句为可选项，它使计算机不执行LOOP后面的（语句行序列）而回到循环的开始DO WHILE位置，实际上它相当于一种特殊的循环终端语句。通常它被用于当遇到某个特殊的条件时，需要阻

2、止执行循环体内下面语句的场合，因此LOOP语句必须包括在IF-ENDIF或DO CASE-ENDCASE之间。 3EXIT语句为可选项，它使循环强行结束，而执行ENDDO下面的第一条语句。一般情况下，它用于遇到某个特殊的条件需要中途退出循环的场合。因此，EXIT语句也必须包括在IF-ENDIF或DO CASE-ENDCASE之间。,4、DO WHILE语句操作模式,一、循环次数已知 INPUT N= TO N I=1 DO WHILE I=N 做某件事情 I=I+1 ENDDO,例1: 1+2+3+4+100=? 思路:累加器S=S+I 记数器I=I+1 SET TALK OFF S=0 +S

3、TR(C,2)+ ,例3：试判断一个数M是否为素数。,方法一： SET TALK OFF INPUT M= TO M I=2 S=.T. DO WHILE I=M-1 IF M/I=INT(M/I) S=.F. EXIT ENDIF I=I+1 ENDDO,IF S ?M,是素数 ELSE ?M,不是素数 ENDIF RETU,方法二： SET TALK OFF INPUT M= TO M I=1 A=0 款,6,2)+STR(实发工资,8,2)+ ENDSCAN,? ? SET PRINT OFF RETURN 从本例中可以看出，用本循环语句对表循环，特别简练，所以对于表的循环，应使用语句。

4、,例2：对PZK.DBF表中所有金额大于1000元的记录加200元，如果记录号超过80就停止操作。 SET TALK OFF USE PZK SCAN FOR 金额1000 IF RECNO()=80 EXIT ENDIF REPLACE 金额 WITH 金额+200 DISP ENDSCAN,四、 多重循环,例1：请编程完成下图 * * * * *,SET TALK OFF FOR I=1 TO 5 ?SPACE(I+2) FOR J=1 TO 8 ? * ENDF ENDF RETU,例2：请编程完成下图,* * * *,SET TALK OFF FOR I=1 TO 4 ？SPACE(6

5、-I) FOR J=1 TO 2*I-1 ? * ENDF ENDF RETU,例3：请编程完成下图,1 2 3 4 5 2 3 4 5 1 3 4 5 1 2 4 5 1 2 3 5 1 2 3 4,SET TALK OFF FOR N=1 TO 5 A=N FOR M=1 TO 5 ?A A=A+1 A=IIF(A5,1,A) ENDF ? ENDF RETU,提问:改变图形,如何改变程序?,5 4 3 2 1 4 3 2 1 5 3 2 1 5 4 2 1 5 4 3 1 5 4 3 2,SET TALK OFF FOR N=5 TO 1 STEP -1 A=N FOR M=5 TO 1

6、 STEP -1 ?A A=A-1 A=IIF(A1,5,A) ENDF ? ENDF RETU,例4：找出1000以内的完备数。(所谓完备数是一个数,它等于它的各个因子之和。) SET TALK OFF FOR I=2 TO 1000 S=0 FOR J=1 TO I-1 IF INT(I/J)=I/J S=S+J ENDIF ENDF IF I=S ?I,是一个完备数 ENDIF ENDF RETU,例5：找出0-999之间的所有“水仙花数”，所谓“水仙花数”是指一个三位数，其各位数字立方和等于该数本身。 (例如，153=1*3+5*3+3*3,故153是水仙花数。) (分析：本问题有10

7、00个数需遍历判断，所以需要三重循环。分别控制百位数、十位位数、个位数，最内层循环执行一千次，每次均判断该数是否为水仙花数。),* 找水仙花数模块 SET TALK OFF FOR X=0 TO 9 & 百位数循环 FOR Y=0 TO 9 & 十位数循环 FOR Z=0 TO 9 & 个位数循环 S1=X*100+Y*10+Z S2=X*3+Y*3+Z*3 IF S1=S2 ?X=,X,Y=,Y,Z=,Z ENDIF ENDFOR ENDFOR ENDFOR SET TALK ON,例6：有W,O,N,E,T,W五个数，他们满足： ONE + ONE , 求这五个数。(选学) TWO 分析： 1、O不大于5且O0再进一步O为偶数,所以O为2或4 2、E只能为1，2或6，7 3、T为4，8，5，9,SET TALK OFF FOR O=2 TO 4 STEP 2 FOR N=0 TO 9 FOR E=1 TO 7 IF E=1.OR.E=2.OR.E=6.OR.E=7 FOR T=4 TO 9 IF T=4.OR.T=5.OR.T=8.OR.T=9 FOR W=0 TO 9 S1=O*100+N*10+E S2=T*100+W*10+O IF S2=2*S1 ? S