VFP程序设计实例.doc

课题：程序设计实例目的要求：通过实例进一步理解FORENDFOR、DO WHILEENDDO、SCANENDSCAN语句的格式、作用及流程，掌握循环结构的程序设计，领会循环结构在程序的作用及问题的解决方法。重点：循环语句的格式、作用与流程；循环结构程序的编写。 难点：解决问题能力的培养和提高。 学时：4学时教学过程及内容：导入：前面掌握各循环的格式、作用、流程，我们今天学习如何应用循环结构解决常见的问题。一、程序设计实例1、求11000之间的全部同构数，即一个数若出现在它的平方数的右端，则称之为同构数。如5与25、25与625思路：将其平方数的右端取出来，然后与原数比较，若相等，则为同构数，否则不是。在取平方数的右端时，若平方数小于100，则取一位，若平方数小于10000，则取两位，其他的取三位。代码：CLEARFOR I=1 TO 1000J=I*IDO CASE CASE J100K=MOD(J,10)CASE J10000K=MOD(J,100)OTHERWISEK=MOD(J,1000)ENDCASEIF I=K?I,I*IENDIFENDFORRETURN2、求3100之间的素数，即一个数若只能被1和他本身整除外，不再被任何数整除，那么该数就为素数。思路：一个数若能被某数整除，除数一定是小于等于该数。那么判断某数是否为素数，应用2N-1之间的数来除，若找到能被其中的一个数整除，那么就不是，若没有找到，则是。代码：CLEARFOR I=3 TO 100T=.T.FOR J=2 TO I-1IF MOD(I,J)=0T=.F.EXITENDIFENDFORIF T?IENDIFENDFORRETURN 3、求1-1/2+1/3-1/4+1/99-1/100的和思路：关键是控制其+、-代码：CLEARS=0T=1FOR I=1 TO 100S=S+T*(1/I)T=-TENDFOR?SRETURN 4、编程输出99乘法表。思路：了解99乘法表，掌握其特点。代码：CLEARFOR I=1 TO 9 FOR J=1 TO I?STR(J,1)+”x”+STR(I,1)+”=”+STR(J*I,2)+” “ENDFOR?ENDFORRETURN 5、随机产生20个（100，200）之间的整数，然后将他们从大到小输出思路：产生随机数用RAND（）函数。n,m之间的随机数的式子为：n+int(rand()*(m-n+1)；(n,m)之间的随机数的式子为：n+1+int(rand()*(m-n-1)。随机数的保存用数组。然后将随机数进行从小到在排序，最后输出。排序的方法为将一个数与其后面的每个数进行比较，若后面的数大于该数，则交换。代码：CLEARDIMENSION N(20)FOR I=1 TO 20N(I)=101+INT(RAND()*99)ENDFORFOR I=1 TO 19FOR J=I+1 TO 20IF N(J)N(I)T=N(i)N(I)=N(J)N(J)=TENDIFENDFORENDFORFOR I=1 TO 20?N(I)ENDFORRETURN6、数列互换 1 2 3 4 1 5 9 A：5 6 7 8 B： 2 6 10 9 10 11 12 3 7 114 8 12思路：将行、列位置互换，如5在A中为(2,1)，在B中为(1,2)代码：CLEARDIMENSION A(3,4),B(4,3)FOR I=1 TO 12A(I)=IENDFORFOR I=1 TO 3FOR J=1 TO 4?A(I,J)ENDFOR?ENDFORFOR I=1 TO 4FOR J=1 TO 3B(I,J)=A(J,I)?B(I,J)ENDFOR?ENDFORRETURN 7、数制的转换（十进制转换为二进制）思路：用该数去整除基（2），取其余数，然后再用商去整除基，直至商为0，最后将余数从后往前排。代码：CLEARINPUT “请输入一个十进制整数：” to xT=XY=”DO WHILE T0P=MOD(T,2)T=INT(T/2)Y=STR(P,1)+YENDDO?”转换为二进制数为：”+yreturn 8、输入一个纯英文句子，统计单词的个数（单词之间用1个或数个空格分隔）思路：将句子的字符一个一个取出进行判断，如果其是不是空隔，且是单词的开头，则个数加1。代码：CLEARaccept “请输入一个纯英文句子：” to sN=0T=0For I=1 to len(s)X=substr(s,I,1)If x” “ If t=0N=n+1T=1EndifElse T=0EndifEndfor?”单词个数为：”+str(n,3)return 9、输入一个字符串，检查其是否是回文，如：LEVEL、123321思路：将前后字符依次一个一个读出，判断其是否相同，若出现一个不相同，则不是回文，直至字符串的最中间代码：CLEARACCEPT “请输入一个字符串：” to sT=.t.L=len(s)For I=1 to int(n/2)W1=substr(s,I,1)W2=substr(s,n-I+1,1)If w1w2T=.f.ExitEndifEndforIf t ?”是回文”else?”不是回文”endifreturn 10、一球从100米高度自由落下，每次落地后反弹回原高度的一半，再落下，求它第10次落地时共经过多少米，第10次落地后反弹多高。思路：从上一次落地到下一次落地经过的路程为上一次落地时的反弹高度+这次落地的高度。第一次落地时没有反弹高度。SN=0HN=100RN=0FOR I=1 TO 10SN=SN+HN+RN RN=HN/2HN=RNENDFOR?”共经过：”+str(sn,4)+”米”?”第10次落地时的反弹高度为：”+str(rn,5,3)+”米”return 11、已知XG表中有学号、姓名、性别、出生日期、联系电话、家庭住址，CG表中有学号、语文、数学、英语、计应、VF、总分、平均分、名次。现从键盘输入学号，查询并显示该学生的学号、姓名、家庭住址、总分、平均分、名次。直至输入N时退出思路：两个表之间必须建立关联，然后输入学号进行查询，若找到，则显示，若没有找到，则显示“没有此学生”代码：SET TALK OFFSELECT 1USE XG INDEX ON 学号 TO XHSELECT 2USE XG SET RELATION TO 学号 INTO AY=”Y”DO WHILE UPPER(Y)=”Y”CLEARACCEPT “请输入学生的学号：” to xhLocate for 学号=xh If found()Display 学号，姓名，家庭住址，a-总分，a-平均分,a-名次Else?”没有该学号”endifwait “是否继续查询（Y/N）？” to yenddoclose table all return 12、随机产生20个1，200之间的整数，要求不能出现重复值，然后从小到大输出。思路：产生一个随机数，必须与前面的所有随机数进行比较，若出现相同，则重新产生，然后比较从小到大排序,最后输出，要求每行只能输出5个。代码：CLEARDIMENSION N(20)FOR I=1 TO 20N(I)=1+INT(RAND()*200)FOR J=1 TO I-1IF N(I)=N(J)I=I-1EXITENDIFENDFORENDFORFOR I=1 TO 19FOR J=I+1 TO 20IF N(J)N(I)T=N(J)N(J)=N(I)N(I)=TENDIFENDFORENDFORFOR I=1 TO 20If mod(I,5)=0?endif?n(I)endfor小结作业1、随机产生20个1，100之间的整数，并按从大到小