精英計(jì)算機(jī)投影講稿

合肥精英學(xué)校專升本計(jì)算機(jī)基礎(chǔ)復(fù)習(xí)資料第1頁徐奇觀編

常量：在程序的執(zhí)行過程中，其值不變的量。

[]整數(shù)：5,-12,0

數(shù)值型<「小數(shù)形式：3.14,-45.678

,實(shí)數(shù)一

〔科學(xué)記數(shù)法形式：1.0E-6,-1.234E18

字符型(字符串)：包含在一對(duì)定界符之間的所有字符。定界符可以是一對(duì)雙引號(hào)、單引號(hào)或方括號(hào)。

常量如："Helloworld!”

\'Heasked,"Getthepicture?”'

[Shesaid,"You'remysuperstar."]

字符串的長(zhǎng)度為定界符中間的所有字符個(gè)數(shù)；字符串原樣照輸出。

邏輯型：.T.和.F.

.T.表示真，即條件成立。如：3<5的值為.T.

.F.表示假，即條件不成立。如：-3〈-5的值為.F.

二.變意在程序的執(zhí)行過程中，其值可以變化的量。

變量命名：以字母開頭，后跟若干個(gè)字母、數(shù)字串。變量名最好有含義，如：SCORE.SUM等。

三.運(yùn)算符

高算術(shù)運(yùn)算符

()

函數(shù)

-負(fù)號(hào)

**或.

*/%(取余)

+-

字符運(yùn)算符

+-

關(guān)系運(yùn)算符

><>=<==?或#

邏輯運(yùn)算符

NOT

\AND

低OR

說明：①-3'2的值為9；-(3'2)的值為-9

②“abc”+“def”結(jié)果為“abcdef”

③“abc”-“def”結(jié)果為“abcdef”

④關(guān)系運(yùn)算的結(jié)果為邏輯值。條件成立，結(jié)果為.T.;條件不成立，結(jié)果為.F.

如：3>5結(jié)果為.F.;5>=3結(jié)果為.T.

⑤NOT、AND、OR的運(yùn)算量必須是邏輯值，結(jié)果也是邏輯值。

⑥運(yùn)算符有優(yōu)先級(jí)的高低，具體如上所示。

四.表達(dá)式及其書寫

表達(dá)式：用運(yùn)算符將常量、變量、函數(shù)等連接起來，組成有意義的式子。

合肥精英學(xué)校專升本計(jì)算機(jī)基礎(chǔ)復(fù)習(xí)資料第2頁徐奇觀編

a+b

(Q+h)tic+d)

c+d

a+b

(a+6)/(2*a)

2a

—b+yjh2—4ac

(—b+sqrt(b*6—4*a*c))/(2*a)

2a

-2<x<5x>=—2andx<=5

五.函數(shù)

1.輸出命令？與？？

2.SIN(2)

3.ABS(-7.8)

4.SQRT(25)

5.PIO

6.INT(18.7)

7.ROUND(3.456,2)

8.MOD(8,3)

9.MIN(a,b,c,d)

10.MAX(1,-4,2,-3,6,3+1,2*3+1)

11.SPACE(5)

12.ASC(,b,)

合肥精英學(xué)校專升本計(jì)算機(jī)基礎(chǔ)復(fù)習(xí)資料第3頁徐奇觀編

13.CIIR(66)

14.LEN(“Followme!”)

15.SUBSTR("ABCDEFG”，3,2)

16.STR(365,5)

17.VAL(“238”)

18.ALLTRIM(“ABCDEFG")

LTRIM(ABCDEFG”)

RTRIM("ABCDEFG”)

六.語句和程序結(jié)構(gòu)

1.順序結(jié)構(gòu)

①變量賦值和賦值語句

賦值語句格式：變量=表達(dá)式

a=l

a=a+l

b=3+INT(-5.8)

②交換a,b兩個(gè)變量的值|Memory|

c=aa3,4

a=bb4,3

b=cc3

?變量

③INPUT"提示信息”TO

注：內(nèi)存變量可以是數(shù)值型，字符型等。輸入字符型常量時(shí)要加定界符。

ACCEPT"提示信息”TO變量

ACCEPT語句只能接受字符型值。輸入字符型常量時(shí)不要加定界符。

④RETURN、CANCEL語句VFP程序的最后一條語句

⑤計(jì)數(shù)N=N+1N的初始值為0

⑥累加S=S+XS的初始值為0

⑦累乘P=P*NP的初始值為1

數(shù)組定義DIMENSIONA(5),B(2,4)

2.選擇(分支)結(jié)構(gòu)

①IF條件

語句塊

ENDIF

②IF條件

語句塊A

ELSE

語句塊B

ENDIF

合肥精英學(xué)校專升本計(jì)算機(jī)基礎(chǔ)復(fù)習(xí)資料第4頁徐奇觀編

合肥精英學(xué)校專升本計(jì)算機(jī)基礎(chǔ)復(fù)習(xí)資料第5頁徐奇觀編

3.循環(huán)結(jié)構(gòu)

①DOWHILE條件表達(dá)式

語句塊

ENDDO

②FOR循環(huán)變量=初值TO終值［STEP步長(zhǎng)］

語句塊

ENDFOR

說明：

①通常WHILE循環(huán)用于循環(huán)次數(shù)預(yù)先未知的場(chǎng)合，F(xiàn)OR循環(huán)用于循環(huán)次數(shù)已知的場(chǎng)合。DOWHILE語句中的條

件表達(dá)式總是與題目中給出的結(jié)束條件相反。

②FOR循環(huán)中，步長(zhǎng)可以為負(fù)。此時(shí)，初值必須大于終值，否則循環(huán)體一次也不執(zhí)行。步長(zhǎng)為1時(shí)，STEP步

長(zhǎng)可以省略。

③循環(huán)變量可以在循環(huán)體中出現(xiàn)，既控制循環(huán)次數(shù)，又參加相應(yīng)運(yùn)算；循環(huán)變量也可以不在循環(huán)體中出現(xiàn)，

此時(shí)循環(huán)變量?jī)H僅起著控制循環(huán)次數(shù)的作用。

④循環(huán)可以嵌套，構(gòu)成多重循環(huán).要注意語句的配套使用。如：

/■FOR1=1TO10STEP2

rFORJ=8TO1STEP-2

<J語句塊

IENDFOR

IENDFOR

二重循環(huán)的含義是：外循環(huán)變一次，內(nèi)循環(huán)變一圈。內(nèi)循環(huán)變?nèi)梢岳斫鉃橥瓿赡撤N功能。所以要多次

完成某種功能時(shí)，可考慮使用二重循環(huán)。

⑤循環(huán)語句流程圖如下所示

DOWHILE循環(huán)

合肥精英學(xué)校專升本計(jì)算機(jī)基礎(chǔ)復(fù)習(xí)資料第6頁徐奇觀編

FOR

1.輸入一個(gè)半徑值，求圓周長(zhǎng)、圓面積、球表面積和球體積

INPUT“輸入半徑”TOR

S=2*PI()*R

?”圓周長(zhǎng):”,S

?”圓面積:”,PI()*R*R

?”球表面積”,4*3.14*R**2

?”球體積:",4/3*3.14*RA3

2.鍵盤輸入一個(gè)攝氏溫度，求其對(duì)應(yīng)的華氏溫度；輸入一個(gè)華氏溫度，求其對(duì)應(yīng)的攝氏溫度

INPUT“輸入攝氏溫度”TOC

F=1.8*C+32

?“等于華氏溫度”,F

INPUT"輸入華氏溫度"TOF

C=(F-32)/1.8

?“等于攝氏溫度”,C

3.鍵盤輸入三個(gè)數(shù)，求其最大數(shù)和最小數(shù)，并輸出之。

INPUTTOA

INPUTTOB

INPUTTOC

?”其中最大數(shù)為:",MAX(A,B,C)

?”其中最小數(shù)為:",MIN(A,B,C)

合肥精英學(xué)校專升本計(jì)算機(jī)基礎(chǔ)復(fù)習(xí)資料第7頁徐奇觀編

4.鍵盤輸入五個(gè)數(shù)，去掉一個(gè)最高分，去掉一個(gè)最低分，求其余三個(gè)數(shù)的平均分。

INPUTTOA

INPUTTOB

INPUTTOC

INPUTTOD

INPUTTOE

MA=MAX(A,B,C,D,E)

MI-MIN(A,B,C,D,E)

SUM=A+B+C+D+E

AVER=(SUM-MA-MI)/3

?”平均分為：”，AVER

5.鍵盤輸入三邊之長(zhǎng)，求所構(gòu)成的三角形的面積。

INPUTTOA

INPUTTOB

INPUTTOC

S=(A+B+C)/2

AREA=SQRT(S*(S-A)*(S-B)*(S-C))

?“三角形的面積為：”，AREA

課外練習(xí)題一

1)已知AABC的兩條邊和夾角：A=3.0,B=4.0,/C=60°,求三角形的面積

2)鍵盤輸入一個(gè)大寫字母，要求輸出它的ASCII碼及其對(duì)應(yīng)的小寫字母

3)求兩個(gè)電阻Rl=3。，R2=6。的串聯(lián)值和并聯(lián)值

4)設(shè)某工廠2004年的產(chǎn)量為100,若年增長(zhǎng)率為5%,則到2010年的產(chǎn)量是多少？

6.從鍵盤輸入一個(gè)整數(shù)，判斷是偶數(shù)還是奇數(shù)

INPUT"請(qǐng)輸入?個(gè)正整數(shù):"TOSZ

IFMOD(SZ,2)=0

?"這是個(gè)偶數(shù)''

ELSE

?"這是個(gè)奇數(shù)”

ENDIF

7.輸入乘車的公里數(shù)，輸出乘車費(fèi)。(記費(fèi)標(biāo)準(zhǔn)為：2.5公里之內(nèi)6元；2.5公里以外，每超過1公里增加1元2

角)

INPUT”請(qǐng)輸入公里數(shù):"TOX

IFX>2.5若錢數(shù)四舍五入到元，則

PAY=(X-2.5)*1.2+6PAY=ROUND(((X-2.5)*1.2+6),0)

ELSE

PAY=6

ENDIF

?”應(yīng)付費(fèi)”，PAY,“元”

合肥精英學(xué)校專升本計(jì)算機(jī)基礎(chǔ)復(fù)習(xí)資料第8頁徐奇觀編

8.從鍵盤輸入三個(gè)數(shù)，分別賦予A,B,C三個(gè)變量，編程使A中存放最大數(shù)，C中存放最小數(shù)，并按A,B,

C的次序輸出

方法一方法二

INPUTTOAINPUTTOA

INPUTTOBINPUTTOB

INPUTTOCINPUTTOC

IFA<BBIG=MAX(A,B,C)

T=ASMALL=MIN(A,B,C)

A=BSUM=A+B+C

B=TA=BIG

ENDIFC=SMALL

IFA<CB=SUM-BIG?SMALL

T=A?A,B,C

A=C

C=T

ENDIF

IFB<C

T=B

B=C

C=T

ENDIF

?”最大數(shù)為yA”最小數(shù)為巴c

?A,B,C

ax+bx+c=0

9.編程求一元二次方程：

的實(shí)根(設(shè)A不等于0)

INPUT"ENTERANUMBERTOA

INPUT"ENTERANUMBER:"TOB

INPUT"ENTERANUMBER:"TOC這部分也可以改寫如下：

D=B*B-4*A*CDOCASE

IFD>0CASED>0

X1=(-B+SQRT(D))/(2*A)X1=(-B+SQRT(D))/(2*A)

X2=(-B-SQRT(D))/(2*A)X2=(-B-SQRT(D))/(2*A)

?"X1=",XI?"X1=",XI

?"X2=",X2?"X2=",X2

ELSECASED=0

IFD=0X=-B/(2*A)

X=-B/(2*A)?"X1=X2=",X

?"X1=X2=",XOTHERWISE

ELSE?”N0REALROOTS”

?”N0REALROOTS”ENDCASE

ENDIF

合肥精英學(xué)校專升本計(jì)算機(jī)基礎(chǔ)復(fù)習(xí)資料第9頁徐奇觀編

ENDIF

10.輸入一個(gè)X值，求Y值：

Xx<\

y=<2x-ll<x<10

3x-llx>10

INPUTTOX

DOCASE

CASEX<1

Y=X

CASEX<10

Y=2*X-1

CASEX>=10

Y=3*X-11

ENDCASE

?”Y=”,Y

11.鍵盤輸入一個(gè)年份，判斷是平年還是閏年？

INPUTUENTERAYEAR："TOY

IFMOD(Y,4)=0ANDMOD(Y,100)<>0ORMOD(Y,40(0=0

?Y,"ISALEAPYEAR.”

ELSE

?Y,"ISACOMMONYEAR.”

ENDIF

12.輸入一個(gè)字符，判斷是否為英文字母。

ACCEPT“請(qǐng)輸入一個(gè)字符:"TOCH&&或WAIT“請(qǐng)輸入一個(gè)字符:"TOCH

IFASC(CH)>=65ANDASC(CH)<=90ORASC(CH)>=97ANDASC(CH)<=122

?CHJ是英文字母”

ELSE

?CHJ不是英文字母”

ENDIF

&&也可以IFCH>="A”ANDCHv=ZORCH>="a"ANDCHv="z"

13.鍵盤輸入某學(xué)生的考試成績(jī),若95?100則輸出優(yōu)秀;85/4則輸出很好;70/4則輸出好;60~69則輸出一

般；60以下，輸出不及格。

INPUT"INPUTASCORE:"TOSCORE

DOCASE

CASESCORE>=95

?”EXCELLENT

CASESCORE>=85

?,,VERYGOODM

CASESCORE>=70

?MGOODM

CASESCORE>=60

合肥精英學(xué)校專升本計(jì)算機(jī)基礎(chǔ)復(fù)習(xí)資料第10頁徐奇觀編

?"WELL"

OTHERWISE

?"FAIL"

ENDCASE

課外練習(xí)題二

5）輸入兩個(gè)數(shù)和一個(gè)運(yùn)算符（加、減、乘、除），求其值。例如，輸入3和5以及*，則輸出15

6）設(shè)交納所得稅的規(guī)定如下：

收入<=1500元免交所得稅

1500元<收入<=3000元所得稅為5%

3000元<收入<=6000元所得稅為8%

6000元（收入<=10000元所得稅為10%

10000元<收入<=50000元所得稅為15%

收入>50000元所得稅為20%

請(qǐng)編程,從鍵盤輸入一個(gè)數(shù),計(jì)算應(yīng)交納的所得稅

7）完成下面分段函數(shù)的計(jì)算，程序運(yùn)行時(shí)用戶從鍵盤輸入一個(gè)數(shù)值X,在屏幕上輸出Y值。

x2if龍>0

y=（oifx=o

—x2ifx<0

14.求「+42+72+.....一直加到超過1000為止，輸出和數(shù)與項(xiàng)數(shù)。

1=1

s=o

N=0

DOWHILES<=1000

S=S+IA2

1=1+3

N=N+1

ENDDO

?NJITEMS”

?HSUM=H,S

15.求n值，直到某項(xiàng)的絕對(duì)值vo.oooooi為止。

f=l_l+±_±+……

PI=0.0

S=1.0

N=1

T=S/N

DOWHILEABS(T)>1E-06

PI=PI+T

S=-s

合肥精英學(xué)校專升本計(jì)算機(jī)基礎(chǔ)復(fù)習(xí)資料第11頁徐奇觀編

N=N+2

T=S/N

ENDDO

PI=PI*4

?PI

16.鍵盤輸入兩個(gè)整數(shù)，求它們的最大公約數(shù)和最小公倍數(shù)。

INPUT"Enteraninteger:nTOM

INPUT"Enteranotherinteger:nTON

MNT=MOD(MrN)

M1=M24186

N1=N1860

T=MOD(M,N)

最蔬約數(shù)

DOWHILEToO

M=N最小公倍數(shù)=24*18/N

N=T

T=MOD(M,N)

ENDDO

?”最大公約數(shù)為“+STR(N,3)

?”最小公倍數(shù)為”+STR(Ml*Nl/N,5)

17.輸出100至200之間所有能被5或7整除的整數(shù),并輸出它們的和。

SUM=0

FOR1=100TO200

IFMOD(I,5)=0ORMOD(I,7)=0

SUM=SUM+I

?I

ENDIF

ENDFOR

?“SUM=”,SUM

18.求l*2+3*4+5*6+....+21*22

SUM=0

FOR1=1TO21STEP2

SUM=SUM+I*(I+1)

ENDFOR

?"SUM=”,SUM

19.求N的階乘。(N的值由鍵盤輸入，應(yīng)小于20)

INPUTTON

P=1

FOR1=1TON

P=P*I

ENDFOR

?N,"！二”，P

20.打印ASCH中所有可打印字符(一行打印10個(gè)字符，字符間留三個(gè)空)

CLEAR

N二0

合肥精英學(xué)校專升本計(jì)算機(jī)基礎(chǔ)復(fù)習(xí)資料第12頁徐奇觀編

FOR1=33TO126

IFMOD(N,10)=0

?SPACE(3)+CHR(I)

ELSE

??SPACE(3)+CHR(I)

ENDIF

N=N+1

ENDFOR

21.一個(gè)數(shù)如果恰好等于它的因子之和，這個(gè)數(shù)就稱為“完數(shù)”，如：6=14-2+3,故6是完數(shù)。編程輸出1000以

內(nèi)的所有完數(shù)。

FOR1=2TO1000

S=0

FORJ=1TO1-1

IFMOD(I,J)=0

S=S+J

ENDIF

ENDFOR

IFS=I

?I,〃是完數(shù)〃

ENDIF

ENDFOR

22.輸入一個(gè)字符串，判斷其中有多少個(gè)大寫字母、小寫字母、數(shù)字字符、空格字符以及其他特殊字符？

CLEAR

STORE0TOUPPER,LOWER,DIGIT,SPACE,SPECIAL

INPUT“輸入一個(gè)字符串"TOST

L=LEN(ST)

FOR1=1TOL

CH=SUBST(ST,I,1)

DOCASE

CASEASC(CH)>=65ANDASC(CH)<=90

UPPER=UPPER+1

CASEASC(CH)>=48ANDASC(CH)<=57

DIGIT=DIGIT+1

CASEASC(CH)>=97ANDASC(CH)<=122

LOWER=LOWER+1

CASEASC(CH)=32

SPACE二SPACE+1

OTHERWISE

SPECIAL=SPECIAL+1

ENDCASE

ENDFOR

?“字符串中大寫字母的個(gè)數(shù)是"，UPPER

合肥精英學(xué)校專升本計(jì)算機(jī)基礎(chǔ)復(fù)習(xí)資料第13頁徐奇觀編

?“字符串中小寫字母的個(gè)數(shù)是“，LOWER

?“字符串中數(shù)字字符的個(gè)數(shù)是“，DIGIT

?“字符串中空格字符的個(gè)數(shù)是“，SPACE

?”字符串中其他字符的個(gè)數(shù)是“，SPECIAL

23.求如下級(jí)數(shù)前N項(xiàng)之和（X和N的值由鍵盤輸入）

1+X+—+—+—

234n

s=i

INPUTTOX

INPUTTON

FOR1=1TON-l

S=S+XF/I

ENDFOR

?"SUM二”，S

24.輸入?個(gè)大于2的整數(shù)，判斷是否為素?cái)?shù)?

INPUT”請(qǐng)輸入一個(gè)大于2的整數(shù)”TOJ

M=J-1

FLAG=.T.

FOR1=2TOM

IFMOD(J,1)=0

FLAG=.F.

EXIT

ENDIF

ENDFOR

IFFLAG

?J,"是素?cái)?shù)”

ELSE

?JJ不是素?cái)?shù)”

ENDIF

25.輸出3到100之間所有的素?cái)?shù)，并求其總和。

SUM=0

FORJ=3TO100STEP2

M=INT(SQRT(J))

FLAG=.T.

FOR1=2TOM

IFMOD(J,I)=0

FLAG=.F.

EXIT

ENDIF

ENDFOR

IFFLAG

?J

SUM=SUM+J

合肥精英學(xué)校專升本計(jì)算機(jī)基礎(chǔ)復(fù)習(xí)資料第14頁徐奇觀編

ENDIF

ENDFOR

?”素?cái)?shù)之和為”,SUM

26.輸入一個(gè)字符串，按其倒序輸出。

INPUT"ENTERASTRING:"TOST

L=LEN(ST)

FORI=LTO1STEP-1

??SUBSTR(ST,I,1)

ENDFOR

?

RETURN

27.從鍵盤輸入一個(gè)二進(jìn)制數(shù)，將其轉(zhuǎn)換成等值的卜進(jìn)制數(shù)。

(1001001)B=1*26+U23+U2°=64+8+1=73

SETTALKOFF

CLEAR

S=0

ACCEPT"ENTERABINARYNUMBER:"TON

L=LEN(N)

FOR1=1TOL

S=S+VAL(SUBSTR(N,I,1))*2**(L-I)

ENDFOR

?"S=",S

SETTALKON

CANCEL

28.從鍵盤輸入一個(gè)十進(jìn)制數(shù)，將其轉(zhuǎn)換成等值的二進(jìn)制數(shù)。

(34)IO=(1OOO1O)2

234〔0八

217(1

28(0

24(0

22(0

21

合肥精英學(xué)校專升本計(jì)算機(jī)基礎(chǔ)復(fù)習(xí)資料第15頁徐奇觀編

SETTALKOFF

CLEAR

INPUT"ENTERADECIMALNUMBER:"TON

BIN二〃〃

IFN=0

BIN二“0”

ENDIF

DOWHILEN>0

R=M0D(N,2)

BIN=STR(R,1)+BIN

N=INT(N/2)

ENDDO

?BIN

SETTALKON

CANCEL

29.100元錢買100只雞，母雞3元一只，公雞2元一只，小雞一元2只，問如何買雞？

FORM=1TO32

FORG=1TO48

FORX=2TO98STEP2

IF(M+G+X=100)AND(M*3+G*2+X*0.5=100)

?〃CHICKEN=〃，X,〃COCK=〃，G,〃HEN=〃，M

ENDIF

ENDFOR

ENDFOR

ENDFOR

30.輸出1000以內(nèi)的水仙花數(shù).

FOR1=0TO9

FORJ=0TO9

FORK=0TO9

M=I*100+J*10+K

IFM二-3+r3+-3ANDMOO

?M

ENDIF

ENDFOR

ENDFOR

ENDFOR

BIG

25814

SMALL

合肥精英學(xué)校專升本計(jì)算機(jī)基礎(chǔ)復(fù)習(xí)資料第16頁徐奇觀編

31.輸入10個(gè)數(shù),求其中最大數(shù)和最小數(shù)及其在這批數(shù)據(jù)中的位置。

DIMENSIONA(10)

FOR1=1TO10

INPUT"ENTERANUMBER:"TOA(I)

ENDFOR

BIG=A(1)

SMALL=A(1)

FOR1=2TO10

IFA(l)>BiG

BIG=A(I)

ELSE

IFA(I)<SMALL

SMALL=A(I)

ENDIF

ENDIF

ENDFOR

?”THESMALLESTNUMBERIS”,SMALL

?”THEBIGGESTNUMBERIS”,BIG

32.打印如下圖形:

*

**

***

****

*****

FOR1=1TO5

FORJ=1TOI

??〃*〃

ENDFOR

?

ENDFOR

33.打印如下圖形:

*****

合肥精英學(xué)校專升本計(jì)算機(jī)基礎(chǔ)復(fù)習(xí)資料第17頁徐奇觀編

****

***

**

*

FOR1=5TO1STEP-1

FORJ=1TOI

??〃*〃

ENDFOR

?

ENDFOR

34.打印如下圖形：

*******

*****

***

*

方法一

FOR1=4TO1STEP-1

??SPACE(5-I)

FORJ=1TO2*1-1

??〃*〃

ENDFOR

?

ENDFOR

35.打印如下圖形：

*

***

*****

*******

FOR1=1TO4

?SPACE(6-I)

FORJ=1TO2*1-1

??〃*〃

ENDFOR

ENDFOR

36.打印如下圖形：

*

***

*****

*******

*********

*******

*****

***

合肥精英學(xué)校專升本計(jì)算機(jī)基礎(chǔ)復(fù)習(xí)資料第18頁徐奇觀編

FOR1=1TO5

?SPACE(10-1)

FORJ=1TO2*1-1

??〃*〃

ENDFOR

ENDFOR

FOR1=4TO1STEP-1

?SPACE(1O-I)

FORJ=1TO2*1-1

??〃*〃

ENDFOR

ENDFOR

37.打印如下圖形：

A

BBB

CCCCC

DDDDDDD

CCCCC

BBB

A

FOR1=1TO4

?SPACE(1O-I)

FORJ=1TO2*1-1

??CHR(64+I)

ENDFOR

ENDFOR

FOR1=3TO1STEP-1

?SPACE(1O-1)

FORJ=1TO2*1-1

??CHR(64+I)

ENDFOR

ENDFOR

38.打印如卜所示的九九乘法表

合肥精英學(xué)校專升本計(jì)算機(jī)基礎(chǔ)復(fù)習(xí)資料第19頁徐奇觀編

??SPACE(4)+〃*〃

FOR1=1TO9

??STR(I,5)

ENDFOR

?

FOR1=1TO50

??

ENDFOR

?

FORA=1TO9

??STR(A,5)

FORB=1TOA

??STR(A*B,5)

ENDFOR

?

ENDFOR

數(shù)組

al?a2?a3?a4...........an

A(1),A(2),A(3),A(4)……A(N)

DIMENSIONA(5)

A(l)=3

A⑵=A⑴*2

合肥精英學(xué)校專升本計(jì)算機(jī)基礎(chǔ)復(fù)習(xí)資料第20頁徐奇觀編

A(3)=A(1)+A(2)

A(l)3

A(4)=A(1)*A(2)

A(2)6

A(5)=A(4)-A(l)

A(3)9

A(4)18

A⑸15

39.求FIBONACCI數(shù)列的第8項(xiàng)與第18項(xiàng)。

DIMENSIONF(18)

F(l)=l

F(2)=l

FOR1=3TO18

F(I)=F(I-l)+F(I-2)

ENDFOR

?“第8項(xiàng)是：”，F(xiàn)(8)

?”第18項(xiàng)是：”，F(xiàn)(18)

合肥精英學(xué)校專升本計(jì)算機(jī)基礎(chǔ)復(fù)習(xí)資料第21頁徐奇觀編

氣泡法排序（升序）過程

54321

第一輪：

13

54321

45321

35421

25431

15432

第二輪:

14532

13542

12543

第三輪:

12453

12354

第四輪:

12345

合肥精英學(xué)校專升本計(jì)算機(jī)基礎(chǔ)復(fù)習(xí)資料第22頁徐奇觀編

53241

第一輪：35241

25341

25341

15342

第二輪13542

13542

12543

第三輪\2453

\2354

第四輪12345

40.輸入10個(gè)數(shù)，按升序排列輸出。

DIMENSIONA(10)

EOR1=1TO10

INPUT"ENTERANINTEGER:"TOA(I)

ENDFOR

FOR1=1TO9

FORJ=I+1TO10

IFA(I)>A(J)

TEMP=A(I)

A(I)=A(J)

A(J)=TEMP

ENDIF

ENDEOR

ENDFOR

FOR1=1TO10

?A6

ENDFOR

合肥精英學(xué)校專升本計(jì)算機(jī)基礎(chǔ)復(fù)習(xí)資料第23頁徐奇觀編

用二維數(shù)組配合二重循環(huán)解決矩陣問題。

名詞解釋：方陣、主對(duì)角線元素、輔對(duì)角線元素、下三角元素、外圍元素

I+J=7FOR1=1TO6I=J

FORJ=1TOI

38445056

8398113128

128152176200

173206239272

41.建立一個(gè)六行六列的矩陣，求出兩條對(duì)角線上所有元素之和。

合肥精英學(xué)校專升本計(jì)算機(jī)基礎(chǔ)復(fù)習(xí)資料第24頁徐奇觀編

DIMENSIONA(6,6)

FOR1=1TO6

FORJ=1TO6

A(I,J)=I+J

ENDFOR

ENDFOR

FOR1=1TO6

FORJ=1TO6

??SPACE(3)&&對(duì)于VFP來說，該句可以省略，因?yàn)檩敵鲆粋€(gè)整數(shù)占10列

??A(I,J)

ENDFOR

?

ENDFOR

SUM=O

FOR1=1TO6

FORJ=1TO6

IFI=JORI+J=7

SUM=SUM+A(I,J)

ENDIF

ENDFOR

ENDFOR

?SUM

42.一個(gè)四行五列的矩陣，求出其中最大元素的值，以及所在的行號(hào)與列號(hào)。

DIMENSIONA(4,5)

FOR1=1TO4

FORJ=1TO5

INPUTTOA(I,J)

ENDFOR

ENDFOR

BIG=A(1,1)

ROW=1

COL=1

FOR1=1TO4

FORJ=1TO5

IFA(I,J)>BIG

BIG=A(I,J)

ROW=I

COL=J

ENDIF

ENDFOR

ENDEOR

?BIG,ROW,COL

合肥精英學(xué)校專升本計(jì)算機(jī)基礎(chǔ)復(fù)習(xí)資料第25頁徐奇觀編

43.求兩個(gè)矩陣之和，即C(3,4)=A(3,4)+B(3,4)

1234

A矩陣2345

3456

2312

B矩陣3144

2131

3546

C矩陣5489

5887

DIMENSIONA(3,4),B(3,4),C(3,4)

FOR1=1TO3

FORJ=1TO4

INPUTTOA(I,J)

ENDFOR

ENDFOR

FOR1=1TO3

FORJ=1TO4

INPUTTOB(I,J)

ENDFOR

ENDFOR

FOR1=1TO3

FORJ=1TO4

C(I,J)=A(I,J)+B(I,J)

ENDFOR

ENDFOR

FOR1=1TO3

FORJ=1TO4

??STR(C(I,J),7)

ENDFOR

?

ENDFOR

簡(jiǎn)化后程序改為：

DIMENSIONA(3,4),B(3,4),C(3,4)

FOR1=1TO3

FORJ=1TO4

INPUTTOA(I,J)

INPUTTOB(I,J)

C(I,J)=A(I,J)+B(I,J)

ENDFOR

ENDFOR

合肥精英學(xué)校專升本計(jì)算機(jī)基礎(chǔ)復(fù)習(xí)資料第26頁徐奇觀編

FOR1=1TO3

FORJ=1TO4

??STR(C(I,J),7)

ENDFOR

?

ENDFOR

44.求一個(gè)矩陣的轉(zhuǎn)置矩陣，即X(3,5)變?yōu)閅(5,3)—

DIMENSIONX(3,5),Y(5,3)A(2,3)C123]

456

FOR1=1TO3LJ

FORJ=1TO5

X(I,J)=I+J

ENDFORB(3,2)C14]

ENDFOR25

36

FOR1=1TO5LJ

FORJ=1TO3

Y(I,J)=X(J,I)

ENDFOR

ENDFOR

FOR1=1TO5

FORJ=1TO3

??STR(Y(I,J),7)

ENDFOR

?

ENDFOR

45.打印如下楊輝三角形(打印8行)

1

11

121

1331

14641

15101051

DIMENSIONY(8,8)

FORM=1TO8

Y(M,M)=l

Y(M,1)=1

ENDFOR

FORM=3TO8

FORN=2TOM-l

Y(M,N)=Y(M-1,N-1)+Y(M-1,N)

ENDFOR

ENDFOR

合肥精英學(xué)校專升本計(jì)算機(jī)基礎(chǔ)復(fù)習(xí)資料第27頁徐奇觀編

FORM=1TO8

FORN=1TOM

??STR(Y(M,N),7)

ENDFOR

?

ENDFOR

課外練習(xí)題三

8）求l3+33+53+73+……+213

9）通過鍵盤輸入一串字符，統(tǒng)計(jì)并輸出其中英文字母的個(gè)數(shù)。

10）輸入一個(gè)少于10位的正整數(shù),求該數(shù)有幾位,并按其倒序輸出該數(shù)

11）有?分?jǐn)?shù)序列，求前20項(xiàng)之和

庶+等/+與J+與O+號(hào)o

12）建立一個(gè)五行五列的矩陣，求出外圍所有元素之和。

13）從鍵盤輸入一個(gè)八進(jìn)制數(shù)，將其轉(zhuǎn)換成等值的十進(jìn)制數(shù)。

14）求Sn=a+aa+aaa+aaaa.......,其中，a是-一個(gè)數(shù)字，a的個(gè)數(shù)為n,a和n由鍵盤輸入

15）從鍵盤輸入?個(gè)十進(jìn)制數(shù)，將其轉(zhuǎn)換成等值的八進(jìn)制數(shù)。

16）打印如下圖形：

*****

*****

*****

*****

17）從鍵盤輸入10個(gè)數(shù)，將其按輸入的反序輸出,并求出它們的平均值

18）編寫學(xué)生成績(jī)統(tǒng)計(jì)程序。設(shè)有三位同學(xué)，考數(shù)學(xué)、物理、化學(xué)三門課，統(tǒng)計(jì)每個(gè)同學(xué)的總分和平均分

19）求e'的臺(tái)勞級(jí)數(shù)展開式的前n項(xiàng)之和（運(yùn)行時(shí)輸入x=2.0,n=4）

23

x

e=l+x+一+一十??.?

2!3!(1)!

20）已有按從小到大的順序排列的10個(gè)數(shù)，現(xiàn)輸入?個(gè)數(shù)，要求插入到數(shù)列中。插入后數(shù)列仍然按從小到大順

序排列。

47.計(jì)算S:4!+5!+6!+7!

SETTALKOFF

CLEAR

STORE0TOS,SUM

FOR1=4TO7

DOJCWITHI,S

SUM=SUM+S

ENDFOR

?"SUM=”,SUM

合肥精英學(xué)校專升本計(jì)算機(jī)基礎(chǔ)復(fù)習(xí)資料第28頁徐奇觀編

SETTALKON

CANCEL

PROCJC

PARAN,T

P二1

FOR1=1TON

P=P*I

ENDFOR

T二p

RETURN

48.求組合數(shù)的值，公式如下：

=加！

mn\{m-n)\

SETTALKOFF

CLEAR

INPUT“M="TOM

INPUT“N=”TON

MN=M-N

MC=CF(M)/(CF(N)*CF(MN))

?“C(M,N)=",STR(MC)&&不寫成字符串形式,輸出為15.0000

SETTALKON

CANCEL

FUNCTIONCF

PARAP

J=1

R=1

DOWHILEJ<=P

R=R*J

J=J+1

ENDDO

RETURNR

ENDFUNC

49.將第23題編成自定義函數(shù)形式

&&相應(yīng)的主程序?yàn)椋?/p>

INPUT"X的值:"TOX

INPUT“計(jì)數(shù)項(xiàng)數(shù)為:"TON

R=JS(X,N)

?”結(jié)果等于”,R

CANCEL

&&自定義函數(shù)為：

FUNCTIONJS

合肥精英學(xué)校專升本計(jì)算機(jī)基礎(chǔ)復(fù)習(xí)資料第29頁徐奇觀編

PARAMETERX,N

SUM=1

FOR1=1TON-l

SUM=SUM+XAI/I

ENDFOR

RETURNSUM

ENDFUNCTION

50.如右圖，求多邊形的面積

TOTAL=0

s=o

DOAREAWITH3,6.5,8.5,S

TOTAL=TOTAL+S

DOAREAWITH8.5,5,8,S

TOTAL=TOTAL+S

DOAREAWITH8,6,4,S

TOTAL=TOTAL+S

?”多邊形的面積為",ROUND(TOTAL,2)

PROCEDUREAREA

PARAMETERA,B,C,T

L=(A+B+C)/2

T=SQRT(L*(L-A)*(L-B)*(L-C))

ENDPROC

RETURN

合肥精英學(xué)校專升本計(jì)算機(jī)基礎(chǔ)復(fù)習(xí)資料第30頁徐奇觀編

12

Tflop----TrillionFloatingPointOperation10"

MIPS----MillionInstructionsPerSecond

EDP:ElectronicDataProcess

MIS:ManagementInformationSystem

六、計(jì)算機(jī)硬件構(gòu)成

運(yùn)算器］

>CPU（中央處理器）］

控制器Jy主機(jī)

內(nèi)存儲(chǔ)器J

輸入設(shè)備］l/。設(shè)備

輸出設(shè)備J

合肥精英學(xué)校專升本計(jì)算機(jī)基礎(chǔ)復(fù)習(xí)資料第31頁徐奇觀編

七、微型計(jì)算機(jī)組成

運(yùn)算器：ALU算術(shù)運(yùn)算和邏輯運(yùn)算單元

中央處理器

主機(jī)（CPU）控制器：指令寄存器、譯碼器，定時(shí)、控制電路）

次讀存儲(chǔ)器（ROM）

硬件系統(tǒng)＜內(nèi)存儲(chǔ)器

（主存）、隨機(jī)存取存儲(chǔ)器（RAM）

微輸入設(shè)備（鍵盤、鼠標(biāo)、掃描儀、觸摸屏、光筆、數(shù)字化儀）

型（外設(shè)］輸出設(shè)備（顯示器、打印機(jī)、繪圖儀、音箱、軟驅(qū)、光驅(qū)）

計(jì)外存儲(chǔ)器（硬盤、光盤、軟盤、優(yōu)盤、磁帶）

算

機(jī)操作系統(tǒng)（DOS、WINDOWS、UNIX、XENIX.LINUX）

系程序設(shè)計(jì)語言（機(jī)器語言、匯編語言、高級(jí)語言、數(shù)據(jù)庫系統(tǒng)）

’系統(tǒng)軟件J語言處理系統(tǒng)（匯編程序、解釋程序、編譯程序）

統(tǒng)

實(shí)用程序（診斷程序、檢查、糾錯(cuò)、測(cè)試等面向機(jī)器維護(hù)程序）

軟件系統(tǒng)J〔

.「應(yīng)用軟件包（OFFICE套件、各種CAD/CAM、CAT、CAI等通用軟

應(yīng)用軟件^件和實(shí)用軟件）

I用戶程序（用戶編制的各種應(yīng)用軟件，如工資管理、成績(jī)管理程序）

微機(jī)系統(tǒng)的層次結(jié)構(gòu):

用戶程序［高

應(yīng)用軟件包

語言處理程序

操作系統(tǒng)

硬件（裸機(jī)）系統(tǒng)低

1KB=1024B=210B%103B

1MB=1024x1024B=220Bg106B

1GB=1024x1024x1024B=230B%109B

1TB=1024x1024x1024x1024B=240B弋1012B

合肥精英學(xué)校專升本計(jì)算機(jī)基礎(chǔ)復(fù)習(xí)資料第32頁徐奇觀編

硬盤內(nèi)存

ISAIndustryStandardArchitecture

EISA----ExtendedIndustryStandardArchitecture

PCIPeripheralComponentInterconnectionBus

AGPAcceleratedGraphicsPortBus

實(shí)時(shí)操作系統(tǒng):

1增加閥門開度

鍋

壓力超限

爐

溫度超限計(jì)算機(jī)

減少。2或COi

合肥精英學(xué)校專升本計(jì)算機(jī)基礎(chǔ)復(fù)習(xí)資料第33頁徐奇觀編

分時(shí)操作系統(tǒng):

終端機(jī)

一條指令包括兩個(gè)部分：操作碼和地址碼（或稱操作數(shù)）操作碼指出操作的性質(zhì)；操

作數(shù)（或地址碼）指出參加操作的數(shù)據(jù)本身或它在主存中的地址。

下面是兩條匯編指令及其相應(yīng)的機(jī)器指令

MOVA,#35H；將立即數(shù)35H存入累加器A

ADDA,35H；將累加器A與35H地址單元的內(nèi)容相加，結(jié)果存入A中