湖南省計(jì)算機(jī)水平考試強(qiáng)化培訓(xùn)班二級VFP

1、湖南省計(jì)算機(jī)水平考試二級VFP強(qiáng)化培訓(xùn)班講授內(nèi)容:常量與運(yùn)算符號常用的幾種常量：字符型、數(shù)字型、日期型、邏輯型運(yùn)算符號：數(shù)字運(yùn)算符、關(guān)系運(yùn)算符、邏輯運(yùn)算符表達(dá)式與函數(shù)搞清常用的幾種類型表達(dá)式和常用的函數(shù)選擇結(jié)構(gòu)(if-endif、ifelse-endif、do case-endcase語句)循環(huán)結(jié)構(gòu)（do while-enddo、for-endfor、exit和loop語句）數(shù)組改錯(cuò)和填空常見問題分析和舉例7.程序設(shè)計(jì)常量與運(yùn)算符號常量：數(shù)字型常量字符型常量日期型常量邏輯型常量運(yùn)算符號：算術(shù)運(yùn)算符號：+ - * / * %關(guān)系運(yùn)算符號： = = = = = != # $邏輯運(yùn)算符號：not a

2、nd or表達(dá)式與函數(shù)一、表達(dá)式注意事項(xiàng)：特別要搞清括號的使用，乘號不能省，運(yùn)算的先后順序二、函數(shù)一些常用函數(shù)：如 int mod sqrt year date round len right substr left 等選擇結(jié)構(gòu)格式格式1：if (表達(dá)式)語句序列 endif格式2：if (表達(dá)式)語句1 else 語句2 endif功能主要是進(jìn)行條件判斷,然后根據(jù)條件是否滿足來進(jìn)行相應(yīng)不同的處理,實(shí)現(xiàn)分支結(jié)構(gòu)的程序設(shè)計(jì)執(zhí)行過程過程:先進(jìn)行判斷條件,再進(jìn)行不同的處理.注意表達(dá)式可以是關(guān)系表達(dá)式、邏輯表達(dá)式，其表達(dá)式的值是為邏輯值. 常用關(guān)系運(yùn)算符號: = = = = != # 邏輯運(yùn)算符號:n

3、ot and orif abcif a!=b ,b!=cif mod(7/3)=0以上三種條件都是錯(cuò)誤的if語句嵌套搞不清楚時(shí)，盡量使用單if語句。如：if (a0) if (b10)c=c+1 endif endif可改成：if (a0 and b10)c=c+1 endifdo case -endcase語句格式：do case switch case 表達(dá)式1語句序列1case 表達(dá)式2語句序列2case 常量n語句序列ndefault 語句序列n+1endcase注意:表達(dá)式為關(guān)系或邏輯表達(dá)式表達(dá)式的結(jié)果是邏輯值循環(huán)結(jié)構(gòu)do while-enddo語句 格式： do while 表達(dá)式

4、循環(huán)體語句 enddofor-enddo語句 格式： for x=a to b step c 循環(huán)體語句 endfor對于上述二種循環(huán)結(jié)構(gòu)要了解下面幾個(gè)問題：表達(dá)式是循環(huán)控制條件，與if語句中的表達(dá)式一樣。二種循環(huán)語句的執(zhí)行過程。exit和loop語句數(shù)組數(shù)組的定義格式：dime 一維數(shù)組(常量)二維數(shù)組：dime 數(shù)組名(常量1,常量2)注意:數(shù)組元素下標(biāo)從1開始到長度dime a(5)數(shù)組元素有：a(1) a(2) a(3) a(4) a(5)下標(biāo)從1變化到5dime b(2,4)數(shù)組元素有： b(1,1) b(1,2) b(1,3) b(1,4) b(2,1) b(2,2) b(2,3)

5、 b(2,4)數(shù)組沒送初始值時(shí),一律為.F.2. 數(shù)組的引用引用數(shù)組元素名（直接方式）和引用數(shù)組名。 a=100表示把a(bǔ)數(shù)組中所有元素送初值為100 a(1)=”1111”改錯(cuò)題clears=0for n=10 to 200*下行有錯(cuò)if mod(n,6)=0 and mod(n,8)=0*下行有錯(cuò)s=sqrt(s+n)endifendfor?round(s,0)單擊”考生文件夾”,進(jìn)入下面界面首先看清題目，有幾個(gè)錯(cuò)誤提示行，則必須改正幾個(gè)錯(cuò)誤。每一個(gè)錯(cuò)誤在提示行的下一行。運(yùn)行程序，填上正確的答案。前后不要加空格，數(shù)據(jù)輸出不要在漢字輸入狀態(tài) 程序填空題:單擊考生文件夾,進(jìn)入下個(gè)界面set ta

6、lk offx=0do while x=7 y=_ if _ ?y endifendforreturn程序改錯(cuò)題舉例：變量賦初值錯(cuò)誤。（一般的情況：求和變量初值為0，求積初始值為1）。 以下程序求1,1000之間能被5 和 7 整除的數(shù)之和。請改正程序中的錯(cuò)誤，并運(yùn)行修改后的程序，給出正確程序運(yùn)行結(jié)果，填入相應(yīng)窗口。clear/*下行有錯(cuò)*/sum=1for i=1 to 1000 /*下行有錯(cuò)*/ if mod(i,5)=0 or mod(i,7)=0 sum=sum+i;?sum return運(yùn)算出錯(cuò)。常見的錯(cuò)誤：%用/，=用！=，or用and,可反過來用。以下程序求1,1000之間能被5

7、 和 7 整除的數(shù)之和。請改正程序中的錯(cuò)誤，并運(yùn)行修改后的程序，給出正確程序運(yùn)行結(jié)果，填入相應(yīng)窗口。clear/*下行有錯(cuò)*/sum=1for i=1 to 1000 /*下行有錯(cuò)*/ if mod(i,5)=0 or mod(i,7)=0 sum=sum+i;?sum return邊緣條件出錯(cuò)誤，應(yīng)該是=時(shí)，只有以下程序求1,500之間能被3 或5整除的數(shù)之和。請改正程序中的錯(cuò)誤，并運(yùn)行修改后的程序，給出正確程序運(yùn)行結(jié)果.clearsum=0i=1/*下行有錯(cuò)*/do while i500 if mod(i,3)=0) or mod(i,5)=0sum=sum+i endifi=i+1end

8、do?sum算法出錯(cuò) 下面的程序是求500以內(nèi)的所有的素?cái)?shù)之和。請修改程序中的錯(cuò)誤，使它能得出正確的結(jié)果，并給出正確結(jié)果。程序：clears=0for x=2 to 500f=1for y=2 to x-1/*下行有錯(cuò)*/if x/y=0f=0endifendforif f=1 s=s+xendifendfor?sreturn 8表達(dá)式出錯(cuò)（“*”導(dǎo)致的錯(cuò)誤）T=1+1/(2*3)+1/(3*4)+1/(m*(m+1) 當(dāng)M為70時(shí)，求出上述表達(dá)式的值。CLEAR/*下行程序有錯(cuò)*/T=0FOR I=2 TO 70/*下行程序有錯(cuò)*/ T=T+1/I*(I+1)ENDFOR?TRETURN9結(jié)

9、果是求個(gè)數(shù)，不是求累加和。下面程序是求20,1000之間同時(shí)滿足除4余3或除5余4條件的數(shù)的個(gè)數(shù)。請修改程序中的錯(cuò)誤，使它能得出正確的結(jié)果，并給出正確結(jié)果，填入相應(yīng)窗口。程序：clear count=0;for i=20 to 1000 if mod(i,4)=3 or mod(i,5)=4 /*下行有錯(cuò)*/ count=count+i; endifendfor?countReturn10for語句的三個(gè)表達(dá)式出錯(cuò)。下面的程序是求表達(dá)式的值： s=1+1/3+(1*2)/(3*5)+(1*2*3)/(3*5*7)+.+(1*2*3*.*n)/(3*5*7*.(2*n+1) 當(dāng)n=20時(shí)，程序的

10、運(yùn)行結(jié)果(按四舍五入保留10位小數(shù))。程序： clear /*下行有錯(cuò)*/ s=0 t=1 /*下行有錯(cuò)*/ for i=1 to 20 step -1 t=t*i/(2*i+1);s=s+t endfor ?round(s,0)return11奇偶數(shù)問題下面程序是求20,160之間的所有偶數(shù)的平方和。請修改程序中的錯(cuò)誤，使它能得出正確的結(jié)果，并給出正確結(jié)果，填入相應(yīng)窗口。程序： clear sum=0 /*下行有錯(cuò)*/ for i=160 to 20 /*下行有錯(cuò)*/ if (mod(i/2)!=0) sum=sum+i*i; endifendfor?sumreturn程序填空題舉例：1.編

11、寫求10000以內(nèi)所有完數(shù)之和（該數(shù)等于其不重復(fù)因子相加，因子包括1。例如6=1+2+3是完數(shù)，但是81+2+4，所以不是完數(shù)。）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之內(nèi)能被3和7整除的個(gè)數(shù)。477SET TALK OFFX=0Y=0DO WHIL X=10000 _1_Y=Y+1X=X+1LOOP ENDIFX=X+1

12、_2_?YSET TALK ON1. IF X%3=0 AND X%7=0 2.ENDDO3.求數(shù)列1/2,3/4,5/8,7/16,9/32的前20項(xiàng)之和，顯示這個(gè)結(jié)果。2.999958992004 SET TALK OFF S=0 N=1 D=2 I=1 DO WHILE I=20_1_N=N+2_2_I=I+1 ENDDO ?SRETURNS=S+N/D D=D*2 4.計(jì)算下列數(shù)列前6項(xiàng)之和。X-X2/2!+ X3/3!- X4/4!+ 當(dāng)輸入X為2時(shí)，結(jié)果為多少？0.8444SET TALK OFF S=0 _1_ INPUT “X=” TO X FOR I=1 TO 6T=-T*X

13、/IS=S+T _2_ ?”S=”,S RETURN 答案：T=-1 ENDFOR5.輸出6到1000之間的所有”完數(shù)”的個(gè)數(shù)(一個(gè)數(shù)的因子和等于其自身,如 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內(nèi)找出最大的一對的親密數(shù)對,若a,b為一對親密數(shù)對,則a的因子和等于b,b的因子和等于a,且a不等于b。 2924 2620 SET T

14、ALK 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 ENDFORRETURNC=C+I A=C AND AB 程序設(shè)計(jì)1.素?cái)?shù)100，999范圍內(nèi)同時(shí)滿足以下兩個(gè)條件的十進(jìn)制數(shù). 其個(gè)位數(shù)字與十位數(shù)字之和除以10所得的余數(shù)是百位數(shù)字；該數(shù)是素?cái)?shù); 求有多少個(gè)這樣的數(shù)？ 152. 取數(shù)字設(shè)某四位數(shù)的千位數(shù)字平方與十位數(shù)字的平方之和等于百位數(shù)字的立方與個(gè)位數(shù)字的立方之和，例如

15、，對于四位數(shù)：3201，32+02=23+13，試問所有這樣的四位數(shù)之和是多少？979933. 分硬幣把一張一元鈔票,換成一分、二分和五分硬幣,每種至少8枚,問有多少種方案?804. 勾股、弦數(shù) A,B,C是三個(gè)小于或等于100正整數(shù)，當(dāng)滿足1/A2+1/B2=1/C2關(guān)系時(shí)，稱為倒勾股數(shù)。求130A+B+CBC的倒勾股數(shù)有多少組。15.完數(shù)因子求在10，1000之間的所有完數(shù)之和。各真因子之和（不包括自身）等于其本身的正整數(shù)稱為完數(shù)。例如：6=1+2+3，6是完數(shù)。5246.平方數(shù)若一個(gè)四位正整數(shù)是另一個(gè)正整數(shù)的平方，且各位數(shù)字的和是一個(gè)平方數(shù)，則稱該四位正整數(shù)是“四位雙平方數(shù)”。例如： 由于7396=862，且7+3+9+6=25=52，則稱7396是“四位雙平方數(shù)”。求所有“四位雙平方數(shù)”之和。819777.Fibonaci(累加數(shù)列) 已知 f(n)=f(n-1)+2f(n-2)-5f(n-