2023年湖南省计算机水平考试强化培训班二级VFP.doc

《2023年湖南省计算机水平考试强化培训班二级VFP.doc》由会员分享，可在线阅读，更多相关《2023年湖南省计算机水平考试强化培训班二级VFP.doc（28页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、湖南省计算机水平考试二级VFP强化培训班讲授内容:1. 常量与运算符号惯用几种常量：字符型、数字型、日期型、逻辑型运算符号：数字运算符、关系运算符、逻辑运算符2. 表达式与函数弄清惯用几种类型表达式和惯用函数3. 选取构造(if-endif、ifelse-endif、do case-endcase语句)4. 循环构造（do while-enddo、for-endfor、exit和loop语句）5. 数组6. 改错和填空常用问题分析和举例7.程序设计常量与运算符号常量：数字型常量字符型常量日期型常量逻辑型常量运算符号：算术运算符号：+ - * / * %关系运算符号： = = = = = !=

2、# $逻辑运算符号：not and or表达式与函数一、表达式注意事项：特别要弄清括号使用，乘号不能省，运算先后顺序二、函数某些惯用函数：如 int mod sqrt year date round len right substr left 等选取构造1 格式格式1：if (表达式)语句序列 endif格式2：if (表达式)语句1 else 语句2 endif2 功能重要是进行条件判断,然后依照条件与否满足来进行相应不同解决,实现分支构造程序设计3 执行过程过程:先进行判断条件,再进行不同解决.4 注意(1) 表达式可以是关系表达式、逻辑表达式，其表达式值是为逻辑值. 惯用关系运算符号:

3、= = = = != # 逻辑运算符号:not and orif abcif a!=b ,b!=cif mod(7/3)=0以上三种条件都是错误(2) if语句嵌套搞不清楚时，尽量使用单if语句。如：if (a0) if (b10)c=c+1 endif endif可改成：if (a0 and b10)c=c+1 endif5 do case -endcase语句格式：do case switch case 表达式1语句序列1case 表达式2语句序列2case 常量n语句序列ndefault 语句序列n+1endcase注意:(1) 表达式为关系或逻辑表达式(2) 表达式成果是逻辑值循环构造

4、1 do while-enddo语句 格式： do while 表达式循环体语句 enddo2 for-enddo语句 格式： for x=a to b step c 循环体语句 endfor对于上述二种循环构造要理解下面几种问题：（1） 表达式是循环控制条件，与if语句中表达式同样。（2） 二种循环语句执行过程。3 exit和loop语句数组1 数组定义格式：dime 一维数组(常量)二维数组：dime 数组名(常量1,常量2)注意:(1) 数组元素下标从1开始到长度dime a(5)数组元素有：a(1) a(2) a(3) a(4) a(5)下标从1变化到5dime b(2,4)数组元素有

5、： b(1,1) b(1,2) b(1,3) b(1,4) b(2,1) b(2,2) b(2,3) b(2,4)数组没送初始值时,一律为.F.2. 数组引用引用数组元素名（直接方式）和引用数组名。 a=100表达把a数组中所有元素送初值为100 a(1)=”1111”改错题clears=0for n=10 to 200*下行有错if mod(n,6)=0 and mod(n,8)=0*下行有错s=sqrt(s+n)endifendfor?round(s,0)单击”考生文献夹”,进入下面界面一方面看清题目，有几种错误提醒行，则必要改正几种错误。每一种错误在提醒行下一行。运营程序，填上对的答案。

6、先后不要加空格，数据输出不要在中文输入状态 程序填空题:单击考生文献夹,进入下个界面set talk offx=0do while x=7 y=_ if _ ?y endifendforreturn程序改错题举例：1 变量赋初值错误。（普通状况：求和变量初值为0，求积初始值为1）。 如下程序求1,1000之间能被5 和 7 整除数之和。请改正程序中错误，并运营修改后程序，给出对的程序运营成果，填入相应窗口。clear/*下行有错*/sum=1for i=1 to 1000 /*下行有错*/ if mod(i,5)=0 or mod(i,7)=0 sum=sum+i;?sum return2 运

7、算犯错。常用错误：%用/，=用！=，or用and,可反过来用。如下程序求1,1000之间能被5 和 7 整除数之和。请改正程序中错误，并运营修改后程序，给出对的程序运营成果，填入相应窗口。clear/*下行有错*/sum=1for i=1 to 1000 /*下行有错*/ if mod(i,5)=0 or mod(i,7)=0 sum=sum+i;?sum return3 边沿条件犯错误，应当是=时，只有如下程序求1,500之间能被3 或5整除数之和。请改正程序中错误，并运营修改后程序，给出对的程序运营成果.clearsum=0i=1/*下行有错*/do while i500 if mod(i

8、,3)=0) or mod(i,5)=0sum=sum+i endifi=i+1enddo?sum4 算法犯错 下面程序是求500以内所有素数之和。请修改程序中错误，使它能得出对的成果，并给出对的成果。程序：clears=0for x=2 to 500f=1for y=2 to x-1/*下行有错*/if x/y=0f=0endifendforif f=1 s=s+xendifendfor?sreturn 8表达式犯错（“*”导致错误）T=1+1/(2*3)+1/(3*4)+1/(m*(m+1) 当M为70时，求出上述表达式值。CLEAR/*下行程序有错*/T=0FOR I=2 TO 70/*

9、下行程序有错*/ T=T+1/I*(I+1)ENDFOR?TRETURN9成果是求个数，不是求累加和。下面程序是求20,1000之间同步满足除4余3或除5余4条件数个数。请修改程序中错误，使它能得出对的成果，并给出对的成果，填入相应窗口。程序：clear count=0;for i=20 to 1000 if mod(i,4)=3 or mod(i,5)=4 /*下行有错*/ count=count+i; endifendfor?countReturn10for语句三个表达式犯错。下面程序是求表达式值： s=1+1/3+(1*2)/(3*5)+(1*2*3)/(3*5*7)+.+(1*2*3*

10、.*n)/(3*5*7*.(2*n+1) 当n=20时，程序运营成果(按四舍五入保存10位小数)。程序： clear /*下行有错*/ s=0 t=1 /*下行有错*/ for i=1 to 20 step -1 t=t*i/(2*i+1);s=s+t endfor ?round(s,0)return11奇偶数问题下面程序是求20,160之间所有偶数平方和。请修改程序中错误，使它能得出对的成果，并给出对的成果，填入相应窗口。程序： clear sum=0 /*下行有错*/ for i=160 to 20 /*下行有错*/ if (mod(i/2)!=0) sum=sum+i*i; endife

11、ndfor?sumreturn程序填空题举例：1.编写求10000以内所有完数之和（该数等于其不反复因子相加，因子涉及1。例如6=1+2+3是完数，但是81+2+4，因此不是完数。）8659SET TALK OFFCLEARSUM=0FOR X=1 TO 10000s=1 FOR I=2 TO X-1 IF _1_ s=s+i ENDIFENDFOR IF X=S SUM=SUM+1_2_ ENDFOR ?SUMSET TALK ON1. X%I=02. ENDIF 2.该程序是求10000之内能被3和7整除个数。477SET TALK OFFX=0Y=0DO WHIL X=10000 _1_

12、Y=Y+1X=X+1LOOP ENDIFX=X+1_2_?YSET TALK ON1. IF X%3=0 AND X%7=0 2.ENDDO3.求数列1/2,3/4,5/8,7/16,9/32前20项之和，显示这个成果。2.99995899 SET TALK OFF S=0 N=1 D=2 I=1 DO WHILE I=20_1_N=N+2_2_I=I+1 ENDDO ?SRETURN1. S=S+N/D 2. D=D*2 4.计算下列数列前6项之和。X-X2/2!+ X3/3!- X4/4!+ 当输入X为2时，成果为多少？0.8444SET TALK OFF S=0 _1_ INPUT “X

13、=” TO X FOR I=1 TO 6T=-T*X/IS=S+T _2_ ?”S=”,S RETURN 答案：1. T=-1 2. ENDFOR5.输出6到1000之间所有”完数”个数(一种数因子和等于其自身,如 6=1+2+3,28=1+2+4+7+24) 3SET TALK OFF A=0FOR I=6 TO 1000 S=0 FOR J=1 TO _1_IF I%J=0 S=S+JENDIF ENDFOR IF _2_A=A+1 ENDIFENDFOR?ARETURN1.I-1 2.S=I 6.在6到5000内找出最大一对密切数对,若a,b为一对密切数对,则a因子和等于b,b因子和等于

14、a,且a不等于b。 2924 2620 SET TALK OFF FOR A=5000 TO 6 STEP -1B=0C=0FOR I=1 TO A-1 IF A%I=0 B=B+I ENDIFENDFORFOR I=1 TO B-1 IF B%I=0 _1_ ENDIFENDFORIF _2_ ?A,B EXITENDIF ENDFORRETURN1. C=C+I 2. A=C AND AB 程序设计1.素数100，999范畴内同步满足如下两个条件十进制数. 其个位数字与十位数字之和除以10所得余数是百位数字；该数是素数；求有多少个这样数？ 152. 取数字设某四位数千位数字平方与十位数字平

15、方之和等于百位数字立方与个位数字立方之和，例如，对于四位数：3201，32+02=23+13，试问所有这样四位数之和是多少？979933. 分硬币把一张一元钞票,换成一分、二分和五分硬币,每种至少8枚,问有多少种方案?804. 勾股、弦数 A,B,C是三个不大于或等于100正整数，当满足1/A2+1/B2=1/C2关系时，称为倒勾股数。求130A+B+CBC倒勾股数有多少组。15.完数因子求在10，1000之间所有完数之和。各真因子之和（不涉及自身）等于其自身正整数称为完数。例如：6=1+2+3，6是完数。5246.平方数若一种四位正整数是另一种正整数平方，且各位数字和是一种平方数，则称该四位

16、正整数是“四位双平方数”。例如： 由于7396=862，且7+3+9+6=25=52，则称7396是“四位双平方数”。求所有“四位双平方数”之和。819777.Fibonaci(累加数列) 已知 f(n)=f(n-1)+2f(n-2)-5f(n-3),f(0)=1,f(1)=2,f(2)=3,求f(0)+f(1)+f(30)。-7508748.a,b,c,d,e类设有十进制数字a,b,c,d和e，它们满足下列式子：abcd*e=bcde (a不等于0， e不等于0或1)，求满足上述条件所有四位数abcd和。36659.方程求方程8x-5y=3,在|x|=150，|y|=200内整数解。试问这样整数解有多少组？5010.其他已知AB，A和B均为正整数，且A*B=716699，求A+B最小值。 1836