VFP讲稿第11周参考讲义.doc

VFP第十一周电子讲义 [复习上节课内容] 总结：DO-WHILE循环一般含有三要素：循环变量赋初值、循环条件和循环增值语句。累加、累乘算法一般含有两条语句：累加（乘）变量赋初值语句（循环之前）和累加（乘）语句（循环体内）。 水仙花数拆分各个位数 BW=INT（N/100） SW=INT((N-BW*100)/10) GW=N%10 从键盘输入一个大于3的整数，判断是否素数。 素数：除被1和自身整除外，不能被任何数整除。 思路：穷举法。令n被2-n-1之间的任何一个整数去除，若n能被其中任何一个整除，则非素数，若都不能整除则是素数。 法一： 步骤： 输入N 设一标志变量F=0 FOR I=2 TO N-1 …… ENDFOR循环 循环体：判断N能否被I整除，若能，F=1、EXIT。 出循环后，判断F的值，若F=0，输出N是素数；否则，输出N不是素数。 F=0 标志量,假定其值为0时N是素数。 INPUT TO N FOR I=2 TO N-1 IF N%I=0 或INT(N/I)=N/I 或MOD（N，I）=0 F=1 EXIT ENDIF ENDFOR IF F=0 ?N,是素数 ELSE ?N,不是素数 ENDIF 法二：不用标志量。判断是否正常出循环，是，则输出‘是素数’，否则，输出‘不是素数’。（IF I=N，表示正常出循环，一直未执行过EXIT命令。） CLEAR INPUT “INPUT N” TO N I=2 DO WHILE IN IF INT(N/I)=N/I EXIT ENDIF I=I+1 ENDDO IF I=N ?”N是素数” ELSE ?”N不是素数” ENDIF RETURN 法三： clear input 请输入一个数：to n m=int(sqrt(n)) for i=2 to m if n%i=0 exit endif endfor if im ?是素数 else ?不是素数 endif cancel **例5：三层循环解水仙花数问题 FOR B=1 TO 9 FOR S=0 TO 9 FOR G=0 TO 9 N=B*100+S*10+G IF N=B^2+S^2+G^2 ??N ENDIF ENDFOR ENDFOR ENDFOR 例6：打印九九表（三角形） CLEAR X=1 DO WHILE X=9 Y=1 DO WHILE Y=X S=X*Y ?? STR(Y,1)+*+STR(X,1)+=+STR(S,2)+ Y=Y+1 ENDDO ? X=X+1 ENDDO RETURN 例7：求200以内的所有素数 SET TALK OFF CLEAR N=3 J=0 DO WHILE N=200 I=2 DO WHILE IN IF INT(N/I)=N/I EXIT ENDIF I=I+1 ENDDO IF I=N IF MOD(J,5)!=0 ??N ELSE ?N ENDIF J=J+1 ENDIF N=N+1 ENDDO SET TALK ON RETURN 数组与数组元素 数组在使用前必须要通过DIMENSION或DECLARE定义。定义后，它的初始值是逻辑值.F.，在使用数组时，一定要注意数组的初始化。 数组是用一个名字表示一组变量，每个变量用下标区分，如S(10)包含10个下标变量：S(1)，S(2)， S(3)，S(4)，··· ，S(10)。 数组的定义格式:DIMENSION 数组名(下标1[,下标2]) DIME A(3),B(2,3) 数组A包含A(1), A(2), A(3) 数组B包含B(1,1), B(1,2), B(1,3),B(2,1), B(2,2), B(2,3) 功能:定义一维数组或二维数组数组元素的个数每个数组元素都是一个内存变量数组元素的顺序:按下标从小到大(二维先按行,后按列 数组的赋值与内存变量赋值相同STORE 表达式 TO 数组名表/数组元素数组名/数组元素=表达式 例如: DIME A(2,3),B(2,3),(10) A(1)=1 A(2)=’ABC’ STOR 0 TO S STOR .T. TO B(1,2), B(2,1) 数组的使用使用数组元素同内存变量直接使用数组元素直接使用数组名——使用数组名默认为第一个数组元素 A(1)=3