VFP程序设计实例.doc

[课题]：[目的要求]：掌握[重点]：。 [难点]：。 [学时]：学时 [教学过程及内容]： ”x”+STR(I,1)+”=”+STR(J*I,2)+” “ ENDFOR ? ENDFOR RETURN 5、随机产生20个（100，200）之间的整数，然后将他们从大到小输出 思路：产生随机数用RAND（）函数。[n,m]之间的随机数的式子为：n+int(rand()*(m-n+1))； (n,m)之间的随机数的式子为：n+1+int(rand()*(m-n-1))。随机数的保存用数组。然后将随机数进行从小到在排序，最后输出。排序的方法为将一个数与其后面的每个数进行比较，若后面的数大于该数，则交换。 代码： CLEAR DIMENSION N(20) FOR I=1 TO 20 N(I)=101+INT(RAND()*99) ENDFOR FOR I=1 TO 19 FOR J=I+1 TO 20 IF N(J)N(I) T=N(i) N(I)=N(J) N(J)=T ENDIF ENDFOR ENDFOR FOR I=1 TO 20 ??N(I) ENDFOR RETURN 6、数列互换 1 2 3 4 1 5 9 A：5 6 7 8 B： 2 6 10 9 10 11 12 3 7 11 4 8 12 思路：将行、列位置互换，如5在A中为(2,1)，在B中为(1,2) 代码： CLEAR DIMENSION A(3,4),B(4,3) FOR I=1 TO 12 A(I)=I ENDFOR FOR I=1 TO 3 FOR J=1 TO 4 ??A(I,J) ENDFOR ? ENDFOR FOR I=1 TO 4 FOR J=1 TO 3 B(I,J)=A(J,I) ??B(I,J) ENDFOR ? ENDFOR RETURN 7、数制的转换（十进制转换为二进制） 思路：用该数去整除基（2），取其余数，然后再用商去整除基，直至商为0，最后将余数从后往前排。 代码： CLEAR INPUT “请输入一个十进制整数：” to x T=X Y=”” DO WHILE T0 P=MOD(T,2) T=INT(T/2) Y=STR(P,1)+Y ENDDO ?”转换为二进制数为：”+y return 8、输入一个纯英文句子，统计单词的个数（单词之间用1个或数个空格分隔） 思路：将句子的字符一个一个取出进行判断，如果其是不是空隔，且是单词的开头，则个数加1。 代码： CLEAR accept “请输入一个纯英文句子：” to s N=0 T=0 For I=1 to len(s) X=substr(s,I,1) If x” “ If t=0 N=n+1 T=1 Endif Else T=0 Endif Endfor ?”单词个数为：”+str(n,3) return 9、输入一个字符串，检查其是否是回文，如：LEVEL、123321 思路：将前后字符依次一个一个读出，判断其是否相同，若出现一个不相同，则不是回文，直至字符串的最中间 代码： CLEAR ACCEPT “请输入一个字符串：” to s T=.t. L=len(s) For I=1 to int(n/2) W1=substr(s,I,1) W2=substr(s,n-I+1,1) If w1w2 T=.f. Exit Endif Endfor If t ?”是回文” else ?”不是回文” endif return 10、一球从100米高度自由落下，每次落地后反弹回原高度的一半，再落下……，求它第10次落地时共经过多少米，第10次落地后反弹多高。 思路：从上一次落地到下一次落地经过的路程为上一次落地时的反弹高度+这次落地的高度。第一次落地时没有反弹高度。 SN=0 HN=100 RN=0 FOR I=1 TO 10 SN=SN+HN+RN RN=HN/2 HN=RN ENDFOR ?”共经过：”+str(sn,4)+”米” ?”第10次落地时的反弹高度为：”+str(rn,5,3)+”米” return 11、已知XG表中有学号、姓名、性别、出生日期、联系电话、家庭住址，CG表中有学号、语文、数学、英语、计应、VF、总分、平均分、名次。现从键盘输入学号，查询并显示该学生的学号、姓名、家庭住址、总分、平均分、名次。直至输入N时退出 思