《面向过程编程题》word版.doc

一、 数值运算1.累加和累乘程序1：求1+2+100的值程序2：求1！+2！+100！的值程序3：求X+X2+XN的值程序4：求S=2/1+3/2+5/3+8/5+13/8前20项之和程序5：求S=1+X+X2/2！+X3/3！+XN/N！，其中X，N的值从键盘输入，当XN/N！0）正整数，输出其中的偶数之和 程序11：从键盘输入一个正整数，判断其所含5的个数程序12：求M！末尾有0的个数（M为正整数）4综合运用程序13：编写程序将给定的正整型数值表达式的值分解因子，输出各个质数因子。如24的因子有：2，2，2和3。程序14：编写程序比较从键盘输入的若干个数的大小并输出其中的最大数和最小数程序15：将一个数值型数据（可以有小数）中位值最大的和最小的数码输出（如2963.751，最大数码为9，最小数码为1）程序16：从键盘输入N个无序数（N由键盘输入确定），去掉一个最大数，去掉一个最小数，然后求平均值程序17：对任意输入的20个数，按从小到大进行排列程序18：求2至100中质数的个数及其和（质数：只能被1和本身整除的数）程序19：求100至999之间水仙花数（指一个三位数，其各位数字立方之和等于该数本身。如：153=13+53+33）程序20：求2至1000之间完数的个数（完数：一个数如果恰好等于它的因子之和，因子不包括本身且不重复。如：6=1+2+3，81+2+4,所以6是完数，8不是完数）程序21：求1至1000之间的同构数（同构数：若A是同构数，则A出现在A的平方数右边。如5*5=25，5出现在25的右边，3*3=9，3不出现在9的右边，所以5是同构数，3不是同构数。）二、 字符串处理程序1：编写一个自定义函数，实现字符串倒置程序2：编写一个自定义函数，实现将一串小写字符串转换为大写字符串程序3：编写一个自定义函数，实现将键盘输入的数字金额转换为中文大写金额程序4：编写一个自定义函数，实现将任意一个日期型表达式转换成中文大写形式三、 表内容处理1. 表输入程序1：用永真循环结构向学生.DBF添加空白记录，其中学号，姓名，性别和出生年月四个字段内容从键盘输入2. 表查询程序1：用永真循环结构实现对学生.DBF中多个学生情况的查询，要求按学号查询程序2：编写一个模糊查询程序，实现对用户指定表文件中的指定字段，查询指定内容（可以是不完整的，要求是字符型）并显示所有满足条件的记录内容，如果用户指定的表文件不存在，自动显示提示信息，该程序可查询任意多个表文件，结束查询操作由用户决定3. 表输出程序1：显示输出学生.DBF中每个班级的男女同学的奖学金总额 *各班男女奖学金总额统计*班级 男同学奖学金总额 女同学奖学金总额951 75.00 75.00953 125.00 0.00954 0.00 25.00程序2：根据成绩.DBF，编写程序统计显示表文件中所有学生的平均成绩和成绩档次 学 号 平均成绩 成绩档次 * 951001 91.7 优 951003 84.9 良 953008 80.1 良 954006 81.1 良程序3：根据学生.DBF，编写输出“学生奖学金统计汇总表”程序 学生奖学金统计汇总表 *班级 奖学金总额 100元张数 50元张数 5元张数 1元张数951 150 1 1 0 0953 150 1 1 0 0954 100 1 0 0 0程序4：统计显示“课程”表中所有不同学期考试课和考查课的总学分数。输出格式如下： 学期 考试课总学分 考查课总学分 * 1 11 3 程序5：统计显示“成绩”表中所有不同学生的各课成绩和总平均成绩。输出格式如下： 学号 课程号 成绩 * 951001 0001 95 0007 89.6 0008 90.6 总平均成绩为： 91.73 951003 0006 87 程序6：将“学生”表中符合下列条件的学生名单输出显示在VFP主窗口。条件：都是指定的班级的学生，曾经都在指定的中学学习过（指定的班级和中学名称从键盘输入。班级号为学号的前3位，指定的中学要在表中的简历字段中查找匹配）。四、 口令程序程序1：编写口令判断程序，要求在VFP主窗口显示并从键盘输入口令，能自动判断是否与系统口令学生.DBF中“姓名”字段的值完全一致，若一致则显示欢迎信息，否则给予二次重输机会，若仍不对则退出系统。程序2：从键盘输入一串字符（口令），自动判断输入的口令是否与系统的口令（自设）一致。若一致则显示相应的欢迎信息；否则有三次机会，输入次数在三次之内，给予重输的提示，输入次数超过三次，则显示无权使用本系统的提示。程序3：口令PASSWORD为6个字符，存放在内存变量PASS中，其中第二个到第四个字符为“KLK”，允许用户输入三次口令，输入正确则退出本系统，否则进入死循环。 五、 图案打印程序1：打印如下图形：6 5 4 3 2 15 4 3 2 14 3 2 1 3 2 12 11程序2：打印如下图形： 程序3：打印杨辉三角形程序4：打印矩形方阵1 0 0 00 1 0 00 0 1 00 0 0 1六、口决表打印程序1：打印乘法九九表1*1=11*2=2 2*2=41*3=3 2*3=6 3*3=91*4=4 2*4=8 3*4=12 4*4=16.1*9=9 2*9=18 3*9=27 4*9=36 9*9=81程序2：打印乘法口决表* 1 2 3 4 51 12 2 43 3 6 94 4 8 125 5 10 15 20 25七、参数传递和自定义函数实现程序1：利用参数传递和过程文件， 求 （M！+N！）/（M-N）！其中M，N从键盘输入。程序2：利用参数传递和过程文件求（M！+N！）/（M-N）！+MM），其中值从键盘输入。一数值运算程序1：求1+2+100的值SET TALK OFFCLEARS=0N=1DO WHILE N=100 S=S+N N=N+1ENDDO?1+2+100=+ALLTRIM(STR(S,4)SET TALK ON程序2：求1！+2！+100！的值SET TALK OFFCLEARN=1T=1S=0DO WHILE N=100 T=T*N S=S+T N=N+1ENDDO?1！+2！+100！=+ALLTRIM(STR(S,19)SET TALK ON程序3：求X+X2+XN的值SET TALK OFFCLEARINPUT X= TO XINPUT N= TO NI=1T=1S=0DO WHILE I=N T=T*X S=S+T I=I+1ENDDO?X+X2+XN=+ALLTRIM(STR(S,19)SET TALK ON程序4：求S=2/1+3/2+5/3+8/5+13/8前20项之和SET TALK OFFCLEARSTORE 1 TO T,C,IS=0DO WHILE I=20 T=T+C C=T-C S=S+T/C I=I+1ENDDO?S=+ALLTRIM(STR(S,19,6)SET TALK ON程序5：求S=1+X+X2/2！+X3/3！+XN/N！，其中X，N的值从键盘输入，当XN/N！=0.0001时停止计数方法一：SET TALK OFFCLEARSTORE 1 TO T,C,S,IINPUT X= TO XINPUT N= TO NDO WHILE I0.0001 T=T*X C=C*I S=S+T/C I=I+1ENDDO?S=+ALLTRIM(STR(S,19,10)SET TALK ON方法二：SET TALK OFF CLEAR INPUT X= TO X INPUT N= TO N S=1 I=1 DO WHILE I=N P=1 J=1 DO WHILE J=I P=P*J J=J+1 ENDDO IF XI/P=0.0001 EXIT ENDIF S=S+XI/P I=I+1 ENDDO ?S=,S SET TALK ON程序6：从键盘输入一个正整数，判断其是否为偶数SET TALK OFFCLEARDO WHILE .T. INPUT N= TO N IF INT(N)!=N OR ABS(N)!=N ?输入的数据不符合题目要求！ LOOP ELSE EXIT ENDIFENDDOIF INT(N/2)=N/2 ?N,是偶数！ELSE ?N,是奇数！ENDIFSET TALK ON程序7：求1000之内能被3和7整除的数的个数和SET TALK OFFCLEARN=1S=0DO WHILE N=1000 IF INT(N/3)=N/3 AND INT(N/7)=N/7 S=S+1 ?N ENDIF N=N+1ENDDO?1000之内能被3和7整除的数的个数和；为：+ALLTRIM(STR(S,5)SET TALK ON程序8：求A、B两数的最小公倍数M和最大公约数NSET TALK OFFCLEARINPUT A= TO AINPUT B= TO BX=MIN(A,B)FOR I=X TO 1 STEP -1 IF INT(A/I)=A/I AND INT(B/I)=B/I N=I EXIT ENDIFENDFOR?最大公约数N=+ALLTRIM(STR(N,19)?最小公倍数；M=+ALLTRIM(STR(A*B/N,19)SET TALK ON程序9：编写一个自定义函数，实现将任意一个正整数分解为最小因子的连乘（如8=2*2*2）方法1：FUNC LCJPARA XZ=XSET TALK OFFFOR I=2 TO Z IF INT(Z/I)=Z/I S=ALLTRIM(STR(I,19) Z=Z/I EXIT ENDIFENDFORDO WHILE INT(Z/I)=Z/I S=S+*+ALLTRIM(STR(I,19) Z=Z/IENDDOIF Z1 S=不能分解成最小因子的连乘积！ENDIFRETURN SENDFUNC方法2：SET TALK OFFCLEARINPUT M= TO MFOR I=2 TO M IF INT(M/I)=M/I EXIT ENDIFENDFORS=0IF CC(M,I,S) P=ALLTRIM(STR(M,19)+=； +ALLTRIM(STR(I,19) FOR J=S TO 2 STEP -1 P=P+*+ALLTRIM(STR(I,19) ENDFOR ?PELSE ?ALLTRIM(STR(M,19)+不能分解为；最小因子的连乘积。ENDIFSET TALK ON FUNC CCPARA X,Y,TDO WHILE INT(X/Y)=X/Y T=T+1 X=X/YENDDOIF X=1 RETURN .T.ELSE RETURN .F.ENDIFENDFUNC程序10：输入N个（N从键盘输入，N0）正整数，输出其中的偶数之和 SET TALK OFFCLEARINPUT N= TO NS=0FOR I=1 TO N INPUT M= TO M IF INT(M/2)=M/2 S=S+M ENDIFENDFOR?S=+ALLTRIM(STR(S,19)SET TALK ON程序11：从键盘输入一个正整数，判断其所含5的个数SET TALK OFFCLEARINPUT N= TO N?ALLTRIM(STR(N,19)+中所含5的个数； 为：+STR(NCT(N,5),2)+个SET TALK ONFUNC NCTPARA X,YS=0M=XDO WHILE .T. N=MOD(M,10) IF N=Y S=S+1 ENDIF M=INT(M/10) IF M=0 EXIT ENDIFENDDORETURN SENDFUNC程序12：求M！末尾有0的个数（M为正整数）SET TALK OFFCLEARINPUT M= TO MS=0N=1FOR I=1 TO M N=N*IENDFOR?NDO WHILE .T. T=MOD(N,10) IF T=0 S=S+1 N=INT(N/10) ELSE EXIT ENDIFENDDO?ALLTRIM(STR(M,19)+！末尾0的个数；为：+ALLTRIM(STR(S,19)+个SET TALK ON程序13：编写程序将给定的正整型数值表达式的值分解因子，输出各个质数因子。如24的因子有：2，2，2和3。SET TALK OFFSET ESCAPE OFFCLEAR?*按Esc键结束操作*DO WHILE .T. INPUT M= TO M IF INT(M)!=M OR ABS(M)!=M ?输入的数据不符合题目要求！ LOOP ENDIF?ALLTRIM(STR(M,19)+的质数因子有： I=2 DO WHILE I=M IF M%I=0 ?STR(I,6) M=INT(M/I) LOOP ENDIF I=I+1 ENDDO IF INKEY(0)=27 EXIT ENDIFENDDOSET TALK ONSET ESCAPE ON程序14：编写程序比较从键盘输入的若干个数的大小并输出其中的最大数和最小数SET TALK OFFCLEARINPUT M= TO MSTORE M TO D,XDO WHILE .T. INPUT N= TO N IF DN X=N ENDIF WAIT 是否还要继续输入？Y/N： TO YN IF UPPER(YN)!=Y EXIT ENDIFENDDO?最大数是：,D?最小数是：,XSET TALK ON程序15：将一个数值型数据（可以有小数）中位值最大的和最小的数码输出（如2963.751，最大数码为9，最小数码为1）SET TALK OFFCLEARINPUT M= TO MDO WHILE INT(M)M M=M*10ENDDOSTORE MOD(M,10) TO D,XM=INT(M/10)DO WHILE M0 N=MOD(M,10) IF DN X=N ENDIF M=INT(M/10)ENDDO?最大数码为：+ALLTRIM(STR(D,1)?最小数码为：+ALLTRIM(STR(X,1)SET TALK ON程序16：从键盘输入N个无序数（N由键盘输入确定），去掉一个最大数，去掉一个最小数，然后求平均值SET TALK OFFCLEARINPUT N= TO NINPUT A= TO ASTORE A TO D,XS=AP=N-2FOR I=2 TO N INPUT B= TO B S=S+B IF DB X=B ENDIFENDFORR=S-D-X?平均值=+ALLTRIM(STR(R/P,19,2)SET TALK ON程序17：对任意输入的20个数，按从小到大进行排列SET TALK OFFCLEARDIME A(20)FOR I=1 TO 20INPUT A(+ALLTRIM(STR(I,2)+)= TO A(I)ENDFORFOR I=1 TO 19 FOR J=I+1 TO 20 IF A(I)A(J) T=A(I) A(I)=A(J) A(J)=T ENDIF ENDFORENDFORLIST MEMO LIKE ASET TALK ON程序18：求2至100中质数的个数及其和（质数：只能被1和本身整除的数）SET TALK OFFCLEART=0S=0FOR M=2 TO 100 FOR I=2 TO M-1 IF INT(M/I)=M/I EXIT ENDIF ENDFOR IF I=M S=S+M T=T+1 ?M ENDIFENDFOR?S=,S?质数的个数为：,TSET TALK ON程序19：求100至999之间水仙花数（指一个三位数，其各位数字立方之和等于该数本身。如：153=13+53+33）SET TALK OFFCLEARFOR M=100 TO 999 X=M A=MOD(X,10) X=INT(X/10) B=MOD(X,10) X=INT(X/10) C=X IF M=C3+B3+A3 ?STR(M,4)+是水仙花数。 ENDIFENDFORSET TALK ON程序20：求2至1000之间完数的个数（完数：一个数如果恰好等于它的因子之和，因子不包括本身且不重复。如：6=1+2+3，81+2+4,所以6是完数，8不是完数）SET TALK OFFCLEARS=0FOR M=2 TO 1000 T=0 FOR I=1 TO M-1 IF INT(M/I)=M/I T=T+I ENDIF ENDFOR IF M=T S=S+1 ?ALLTRIM(STR(M,4)+是完数 ENDIFENDFOR?S=,SSET TALK ON程序21：求1至1000之间的同构数（同构数：若A是同构数，则A出现在A的平方数右边。如5*5=25，5出现在25的右边，3*3=9，3不出现在9的右边，所以5是同构数，3不是同构数。） SET TALK OFF CLEAR FOR X=1 TO 1000 Y=X2 L=LEN(ALLTRIM(STR(X,19) IF ALLTRIM(STR(X,19)=； RIGHT(ALLTRIM(STR(Y,19),L) ?ALLTRIM(STR(X,19)+是同构数。 ENDIF ENDFOR SET TALK ON二字符串处理程序1：编写一个自定义函数，实现字符串倒置SET TALK OFFCLEARACCEPT 请输入字符串： TO ACN=CC(A)?A+经倒置后变为：,CNSET TALK ONFUNC CCPARA XC=SPACE(0)L=LEN(X)DO WHILE L0 Q=SUBSTR(X,L,1) C=C+Q L=L-1ENDDORETURN CENDFUNC程序2：编写一个自定义函数，实现将一串小写字符串转换为大写字符串SET TALK OFFCLEARACCEPT 请输入小写字符串： TO CCN=ZH(C)?C+经转换后为：+CNSET TALK ONFUNC ZHPARA XS=UPPER(X)RETURN SENDFUNC程序3：编写一个自定义函数，实现将键盘输入的数字金额转换为中文大写金额SET TALK OFFCLEARINPUT 请输入数字金额： TO ACN=CASH(A)?ALLTRIM(STR(A,19,4)+经转换后为：+CNSET TALK ONFUNC CASHPARA XC1=零壹贰叁肆伍陆柒捌玖C2=分角元拾佰仟万拾佰仟亿M=ROUND(X,2)M=M*100I=0C=SPACE(0)DO WHILE .T. N=MOD(M,10) P1=SUBSTR(C1,2*N+1,2) P2=SUBSTR(C2,2*I+1,2) C=P1+P2+C I=I+1 M=INT(M/10) IF M=0 EXIT ENDIFENDDORETURN CENDFUNC程序4：编写一个自定义函数，实现将任意一个日期型表达式转换成中文大写形式SET TALK OFFCLEARINPUT “请输入日期型日期：” TO RQ?ZH(RQ)SET TALK ONFUNC ZHPARA XY=YEAR(X)M=MONTH(X)D=DAY(X)C=一二三四五六七八九十S=FOR I=1 TO 4 P=MOD(Y,10) S=SUBSTR(C,2*P+1,2)+S Y=INT(Y/10)ENDFORS=S+年IF M=10 S=S+SUBSTR(C,2*M+1,2)ELSE S=S+； 十+SUBSTR(C,2*MOD(M,10)+1,2)ENDIFS=S+月DO CASE CASE D=10 S=S+SUBSTR(C,2*D+1,2) CASE D0 WAIT 是否还要查询其他字； 段内容？Y/N： TO YN IF UPPER(YN)!=Y EXIT ENDIF ENDDO ELSE ?指定的表文件并不存在！ ENDIF WAIT 是否还要查询其他表文件？Y/N： TO NY IF UPPER(NY)!=Y EXIT ENDIFENDDOUSESET TALK ON3. 表输出程序1：显示输出学生.DBF中每个班级的男女同学的奖学金总额 *各班男女奖学金总额统计*班级 男同学奖学金总额 女同学奖学金总额 951 75.00 75.00 953 125.00 0.00 954 0.00 25.00 SET TALK OFF CLEAR USE 学生 INDEX ON 学号 TO XH ?*各班男女奖学金总* ?班级 男同学奖学金总额 女同学奖学金 总额 DO WHILE NOT EOF() CLASS=LEFT(学号,3) STORE 0 TO BOYS,GIRLS DO WHILE LEFT(学号,3)=CLASS IF 性别 BOYS=BOYS+奖学金 ELSE GIRLS=GIRLS+奖学金ENDIFSKIP ENDDO ?CLASS+STR(BOYS,19,2)+STR(GIRLS,23,2) ENDDO USE SET TALK ON程序2：根据成绩.DBF，编写程序统计显示表文件中所有学生的平均成绩和成绩档次 学 号 平均成绩 成绩档次 * 951001 91.7 优 951003 84.9 良 953008 80.1 良 954006 81.1 良SET TALK OFFCLEARUSE 成绩INDEX ON 学号 TO XH1?学 号 平均成绩 成绩档次?*DO WHILE NOT EOF() XH=学号 AVER 成绩 TO CJ WHILE 学号=XH DO CASE CASE CJ=90 DC=优 CASE CJ=80 DC=良 CASE CJ=70 DC=中 CASE CJ=60 DC=及格 OTHERWISE DC=不及格 ENDCASE ?XH+STR(CJ,12,1)+SPACE(10)+DCENDDOUSESET TALK ON程序3：根据学生.DBF，编写输出“学生奖学金统计汇总表”程序 学生奖学金统计汇总表 *班级 奖学金总额 100元张数 50元张数 5元张数 1元张数951 150 1 1 0 0953 150 1 1 0 0954 100 1 0 0 0SET TALK OFFCLEARDIME T(4)USE 学生INDEX ON LEFT(学号,3) TO BJ?SPACE(18)+学生奖学金统计汇总表+SPACE(18)?SPACE(18)+*+SPACE(18)?班级 奖学金总额 100元张数 50元张数 5元张数 1元张数DO WHILE .NOT. EOF() CLASS=LEFT(学号,3) S=0 DO WHILE LEFT(学号,3)=CLASS S=S+奖学金 SKIP ENDDO P=S T(1)=100 T(2)=50 T(3)=5 T(4)=1 FOR I=1 TO 4 R=T(I) DO VCT WITH P,R T(I)=P P=R ENDFOR ?CLASS+STR(S,10)+STR(T(1),10)+STR(T(2),10)+;STR(T(3),9)+STR(T(4),8)ENDDOUSESET TALK ONPROC VCTPARA X,YA=0B=XIF X=Y A=INT(X/Y) B=MOD(X,Y)ENDIFX=AY=BENDPROC程序4：统计显示“课程”表中所有不同学期考试课和考查课的总学分数。SET TALK OFFCLEAR?学期 考试课总学分 考查课总学分?*USE 课程INDEX ON 开课学期 TO XQDO WHILE NOT EOF() XQ=开课学期 STORE 0 TO KS,KC DO WHILE 开课学期=XQ IF 考查标志=1 KS=KS+学分数 ELSE KC=KC+学分数 ENDIF SKIP ENDDO ?XQ+STR(KS,14,2)+STR(KC,14,2)ENDDOUSESET TALK ON程序5：统计显示“成绩”表中所有不同学生的各课成绩和总平均成绩。SET TALK OFFCLEAR?学号 课程号 成绩?*USE 成绩INDEX ON 学号 TO XHDO WHILE NOT EOF() XH=学号 STORE 0 TO S,I DO WHILE 学号=XH IF I0 ?SPACE(11)+课程号+STR(成绩,12,2) ELSE ?XH+SPACE(5)+课程号+STR(成绩,12,2) ENDIF S=S+成绩 I=I+1 SKIP ENDDO ?总平均成绩为：+STR(S/I,13,2)ENDDOUSESET TALK ON程序6：将“学生”表中符合下列条件的学生名单输出显示在VFP主窗口。条件：都是指定的班级的学生，曾经都在指定的中学学习过（指定的班级和中学名称从键盘输入。班级号为学号的前3位，指定的中学要在表中的简历字段中查找匹配）。SET TALK OFFCLEARUSE 学生DO WHILE .T. ACCEPT 请输入班级： TO BJ ACCEPT 请输入中学名称： TO ZX I=0 GO TOP DO WHILE NOT EOF() IF BJ=LEFT(学号,3) AND AT(ZX,简历)0 ?学号+姓名 I=I+1 ENDIF SKIP ENDDO IF I=0 ?没有符合条件的学生！ ENDIF WAIT 还要继续吗？Y/N： TO YN IF UPPER(YN)!=Y EXIT ENDIFENDDOUSESET TALK ON四、口令程序程序1：编写口令判断程序，要求在VFP主窗口显示并从键盘输入口令，能自动判断是否与系统口令学生.DBF中“姓名”字段的值完全一致，若一致则显示欢迎信息，否则给予二次重输机会，若仍不对则退出系统。SET TALK OFFCLEARUSE 学生C=FOR I=1 TO 3 ACCEPT C+请输入口令： TO PSW LOCATE FOR ALLTRIM(姓名)=ALLTRIM(PSW) IF FOUND() ?欢迎使用本系统！ EXIT ENDIF C=口令错！再试一次。ENDFORIF I3 ?无权使用本系统！再见！ENDIFUSESET TALK ON程序2：从键盘输入一串字符（口令），自动判断输入的口令是否与系统的口令（自设）一致。若一致则显示相应的欢迎信息；否则有三次机会，输入次数在三次之内，给予重输的提示，输入次数超过三次，则显示无权使用本系统的提示。SET TALK OFFCLEARFOR I=1 TO 3 ACCEPT 请输入口令： TO PSW IF ALLT(PSW)=ABC ?欢迎使用本系统！ EXIT ENDIF ?口令错！再试一次。ENDFORIF I3 ?无权使用本系统！再见！ENDIFUSESET TALK ON程序3: 口令PASSWORD为6个字符，存放在内存变量PASS中，其中第二个到第四个字符为“KLK”，允许用户输入三次口令，输入正确则退出本系统，否则进入死循环。SET TALK OFFCLEARFOR I=1 TO 3 ACCEPT 请输入口令： TO PASSWORD IF ALLT(PASSWORD)=SUBSTR(PASS,2,3) ?欢迎使用本系统！ EXIT ENDIF IF I3DO WHILE .T.ENDDO ENDIF?口令错！再试一次。 ENDFORUSESET TALK ON五、图形打印程序1：打印如下图形：6 5 4 3 2 15 4 3 2 14 3 2 1 3 2 12 11S