重慶專升本計(jì)算機(jī)VF程序設(shè)計(jì)

1、.VFO程序設(shè)計(jì)復(fù)習(xí)1程序設(shè)計(jì)概述一、程序的概念概念：具有一定功能的計(jì)算機(jī)能執(zhí)行的指令的集合。例1：顯示表XSDA可編寫(xiě)成如下命令序SET DEFA TO F:表USE XSDALISTCLOSE ALL例2：求a=3,b=2,c=5 求a+b-c=?程序test.prg 代碼如下：a=3b=2c=5x=a+b-c?x二、常見(jiàn)的程序設(shè)計(jì)方法1、 結(jié)構(gòu)化程序設(shè)計(jì)（模塊化） 結(jié)構(gòu)化程序設(shè)計(jì)是一個(gè)面向過(guò)程的概念。把一個(gè)實(shí)際問(wèn)題分為兩部分，即數(shù)據(jù)和過(guò)程。通過(guò)動(dòng)態(tài)的程序執(zhí)行過(guò)程來(lái)對(duì)靜態(tài)的數(shù)據(jù)進(jìn)行處理，得出正確的結(jié)果。由VFP命令和程序設(shè)計(jì)命令的組合，需編制和調(diào)試； 2、 面向?qū)ο蟮某绦蛟O(shè)計(jì) 3、結(jié)構(gòu)化程

2、序設(shè)計(jì)它是面向過(guò)程程序設(shè)計(jì)的另一種描述，面向過(guò)程程序設(shè)計(jì)有如下特點(diǎn)：整個(gè)程序分為若干個(gè)模塊，模塊之間相銜接，且相對(duì)獨(dú)立。第個(gè)模塊只有一個(gè)入口和一個(gè)出口。第個(gè)模塊都能單獨(dú)執(zhí)行，且在有限時(shí)間內(nèi)執(zhí)行完。采用自頂向下、逐步求精的方法。 三、程序三大基本結(jié)構(gòu)1、順序結(jié)構(gòu)：執(zhí)行是按命令出現(xiàn)的先后順序執(zhí)行。 2、分支結(jié)構(gòu)：按給定的條件成立與否來(lái)決定程序起向，分單向選擇分支、雙向選擇分支和多路分支。有以下兩種 IF 語(yǔ)句 DO CASEENDIF ENDCASE3、循環(huán)結(jié)構(gòu)：程序的執(zhí)行發(fā)生了自下而上的往復(fù)，某一程序段將重復(fù)執(zhí)行。 有以下三種Do While For SCANENDDO ENDFOR ENDSC

3、AN四、算法和流程圖算法：解決某一問(wèn)題的方法與步驟。見(jiàn)教材例。流程圖：算法的描述，除用自然語(yǔ)言描述外，計(jì)算機(jī)領(lǐng)域常用流程圖（ANSI圖和NS圖）描述。見(jiàn)教材例。 例如：樂(lè)山到成都怎么去？1、 解一元二次方程的算法。Ax2+bx+c=0, 求x2、 求出1-100之間的質(zhì)數(shù)。 X / = 2 到 SQRT(X )2程序的建立和執(zhí)行一、程序的擴(kuò)展名：PRG 實(shí)質(zhì)：文本文件（ASCII編碼）執(zhí)行時(shí)，會(huì)產(chǎn)生編譯文件FXP后讓計(jì)算機(jī)執(zhí)行。 二、程序文件的建立和編輯1、命令方式：MODI COMM 程序名.PRG （.PRG可省）2、菜單方式；文件 = 新建 = 程序 3、項(xiàng)目管理器中建立的方法：建立項(xiàng)目

4、管理器 = 新建程序 4、其他方法：其它可編輯文本的軟件: 記事本寫(xiě)字板WORD其它程序編輯器 注意： 希望編寫(xiě)程序之前事先設(shè)置好默認(rèn)目錄（set defa to ）然后我們編寫(xiě)的程序就會(huì)自動(dòng)存儲(chǔ)在那個(gè)目錄中。例如：set defa to d:ks modi comm Test (相當(dāng)于是：modi comm D:kstest.prg) 三、 程序的執(zhí)行1、命令方式命令格式：DO 盤(pán)符路徑程序名 2、菜單方式：“程序”菜單-“運(yùn)行”命令在“運(yùn)行”窗口中輸入被運(yùn)行的程序文件名，即可運(yùn)行程序。 四、VFP程序的分類：數(shù)學(xué)類程序、涉及到表操作的程序如果本程序是涉及到表操作的程序，那么： 1、在程序開(kāi)

5、始部分可以先加語(yǔ)句CLEAR 和 CLOSE ALL 2、程序最后可以使用命令CLOSE ALL 3、然后使用RETURN或CANCEL或QUIT 例：找出并顯示所有三好生CLEAR CLOSE ALL USE 學(xué)生 LOCATE FOR 三好生DO WHILE NOT EOF() DISPCONTINUE ENDDO CLOSE ALL RETUREN3順序程序設(shè)計(jì)與常用語(yǔ)句一、程序設(shè)計(jì)中的常用語(yǔ)句1、輸入命令（1）賦值命令命令一：STORE TO 命令二：= （2）交互式輸入命令（注意：輸入數(shù)據(jù)是在程序執(zhí)行的時(shí)候 ）INPUT 提示信息 TO ACCEPT 提示信息 TO WAIT 提示信

6、息 TO TIMEOUT 說(shuō)明: 提示信息是C型, 它會(huì)在屏幕上原樣輸出 .WAIT命令的功能：暫停程序執(zhí)行，顯示提示信息等待用戶按鍵。 Wait命令中 輸入的只能是一個(gè)字符（C型）。 Input 適用于全部類型內(nèi)存變量，輸入時(shí)需要加定界符 Accept只適用于C型，并且C型不加定界符注意：Input和accept在編寫(xiě)程序時(shí)語(yǔ)句都一樣，只是執(zhí)行程序（do）時(shí)，主屏幕上要求輸入的類型和格式不同。例1：輸入a、b、c的值，對(duì)2ax+b=c 求 x的值。ClearInput “現(xiàn)在計(jì)算2ax+b=c，請(qǐng)輸入a的值：” to aInput “請(qǐng)輸入b的值：” to bInput “請(qǐng)輸入c的值：”

7、to cx=(c-b)/(2*a)?x的值為：,x &比較使用? x的值為：+str(x,3)有何區(qū)別 return 例2、查找學(xué)生.dbf中的指定記錄 clearclose alluse 學(xué)生listaccept “請(qǐng)輸入您想查找的姓名: ” to xmLocate for 姓名=XM &或命令 SEEK XMif found() DISP else ?對(duì)不起，沒(méi)有找到此人endiflistclose allReturn思考：如果accept換成input，輸入的時(shí)候該怎么輸入？ 例3、刪除學(xué)生.dbf中的指定記錄 clearclose alluse 學(xué)生listinput “請(qǐng)輸入您想刪除

8、的記錄號(hào): ” to xdele reco xwait “你想徹底刪除這條記錄嗎？(y/n)” to ask if ask=Y or ask=y packendiflistclose all注意區(qū)分交換方式和程序方式：有的命令可以在兩種狀態(tài)下執(zhí)行（例如：剛才的輸入命令），但有些命令只能在程序方式下執(zhí)行（例如：循環(huán)語(yǔ)句和分支語(yǔ)句） （3）格式輸入命令格式一：行,列 say 提示信息格式二：行,列 say 提示信息 get 變量 READ 格式三：行,列 say 提示信息 get 變量 default常量 功能：在屏幕指定的坐標(biāo)位置上顯示提示信息，然后通過(guò)READ命令激活GET子句的變量值。說(shuō)明：

9、GET后的變量可以是內(nèi)存變量或當(dāng)前打開(kāi)的數(shù)據(jù)文件中的字段變量，若是內(nèi)存變量，應(yīng)在執(zhí)行該命令前對(duì)內(nèi)存變量賦值，否則就必須使用default參數(shù)賦初值。輸入的值類型應(yīng)該與初值類型相同。READ命令與GET命令必須配合使用。多個(gè)GET命令可以只用一個(gè)READ命令配合。如果沒(méi)有read則表示只顯示內(nèi)容，不輸入值。例1：編寫(xiě)程序完成在學(xué)生.DBF中追加記錄CLEARUSE 學(xué)生APPEND BLANK5,20 SAY “學(xué)號(hào)” GET 學(xué)號(hào)5,40 SAY “姓名” GET 姓名7,20 SAY “性別” GET 性別7,40 SAY “出生年月” GET 出生年月9,20 SAY “入?？偡帧?GET

10、 入?？偡?,40 SAY “三好生” GET 三好生READCLEARLISTCLOSE ALLRETURN例2：編程求長(zhǎng)方形的面積。 CLEAR X=0 &X為內(nèi)存變量，賦初值Y=0 1,5 SAY “計(jì)算長(zhǎng)方形的面積”2,5 SAY “輸入長(zhǎng)方形的長(zhǎng)：” GET X &第2行5列顯示提示信息并等待輸入3,5 SAY “輸入長(zhǎng)方形的寬：” GET Y &第3行5列顯示提示信息并等待輸入 READ &從鍵盤(pán)輸入X，Y的值 S=X*Y &計(jì)算長(zhǎng)方形的面積 ? “長(zhǎng)方形的面積：”,S &顯示長(zhǎng)方形的面積 CANCEL思考題1:如將上述例1程序改為按照指定學(xué)號(hào)來(lái)修改記錄應(yīng)該怎樣做?(答案見(jiàn)課件后)

11、3、輸出命令：非格式輸出命令?和？：格式化輸出命令行,列 say 表達(dá)式 說(shuō)明：行和列都可以是表達(dá)式，常常可以使用函數(shù)ROW( ) 和 COL( ) ROW( )表示返回當(dāng)前行的行號(hào) COL( )表示返回當(dāng)前列的列號(hào)例1：N=1CH=“VF程序設(shè)計(jì)”N,26 SAY SPACE(60)N+1,26 SAY CH例2：循環(huán)輸入值cleardime xh(10)store 0 to xh10,10 say 請(qǐng)輸入數(shù)字: get xh(1) i=2do while i=10 row()+1,10 say 請(qǐng)輸入數(shù)字: get xh(i) i=i+1enddoreadlist memo like xh

12、 4、其他程序運(yùn)行命令（1）終止程序執(zhí)行命令 CANCEL 、QUIT 和 RETURNQUIT: 退出程序運(yùn)行并且退出 Visual FoxproCANCEL : 退出程序運(yùn)行RETURN: 返回上級(jí)程序調(diào)用點(diǎn)，如果是主程序就表示退出程序。主程序可缺省此命令返回（結(jié)束），即默認(rèn)使用了return 注意：上述命令執(zhí)行完后都會(huì)自動(dòng)clear memory。但是如果有數(shù)據(jù)庫(kù)和表打開(kāi)不會(huì)自動(dòng)關(guān)閉，所以使用數(shù)據(jù)庫(kù)和表后在程序結(jié)束時(shí)我們常常需要加命令： close all（2）清屏命令CLEAR（3）注釋命令（ NOTE 、* 和 &）注釋的含義：程序員對(duì)程序語(yǔ)句功能的說(shuō)明，執(zhí)行程序的時(shí)候不執(zhí)行注釋中的

13、內(nèi)容，注釋只起到一個(gè)對(duì)語(yǔ)句說(shuō)明的目的。一般復(fù)雜程序中應(yīng)有30%以上的注釋。（4）TEXT語(yǔ)句：原樣輸出（參考書(shū)143例4.15） （5）系統(tǒng)設(shè)置命令set on/off 或者是 set to 1、設(shè)置會(huì)話狀態(tài)SET TALK ON/OFF2、設(shè)置跟蹤狀態(tài)SET ECHO ON/OFF3、設(shè)置打印狀態(tài)SET PRINTER ON/OFF4、設(shè)置定向輸出狀態(tài)SET DEVICE TO SCREEN5、設(shè)置精確比較狀態(tài)SET EXACT TO ON/OFF6、設(shè)置日期格式SET DATE ANSI 7、色繪制系統(tǒng)提供的保護(hù)狀態(tài)SET SAFETY ON/OFF8、設(shè)置刪除記錄標(biāo)記狀態(tài)（掌握）SET

14、DELETED ON/OFF功能：屏蔽或處理有刪除標(biāo)記的記錄說(shuō)明：在命令格式中選擇ON時(shí)，各命令當(dāng)不對(duì)有刪除標(biāo)記的記錄進(jìn)行操作，但索引除外。系統(tǒng)默認(rèn)值為OFF思考題1答案:CLEARUSE 學(xué)生ACCEPT 請(qǐng)輸入需修改記錄的學(xué)號(hào)： TO NUMLOCATE FOR 學(xué)號(hào)=NUM5,20 SAY 學(xué)號(hào) GET 學(xué)號(hào)5,40 SAY 姓名 GET 姓名7,20 SAY 性別 GET 性別7,40 SAY 出生年月 GET 出生年月9,20 SAY 入?？偡?GET 入校總分9,40 SAY 三好生 GET 三好生READCLEARLISTCLOSE ALLRETURN4順序結(jié)構(gòu)和分支結(jié)構(gòu)一、順序

15、結(jié)構(gòu)例1：求圓的面積（公式S=R2）CLEARINPUT “請(qǐng)輸入半徑R的值：” TO RS=3.1416*R*R？”圓面積為：” ，SCANCEL二、分支結(jié)構(gòu)（選擇結(jié)構(gòu)）1、IF語(yǔ)句（1）單向選擇： 雙向選擇：IF 條件 IF 條件 執(zhí)行語(yǔ)句 執(zhí)行語(yǔ)句ENDIF ELSE執(zhí)行語(yǔ)句 ENDIF(2)單向選擇分支例如：求任意一個(gè)數(shù)值的絕對(duì)值CLEARSET TALK OFFINPUT “請(qǐng)輸入數(shù)值：” TO NIF N=a AND STR1=A AND STR1=Z ?SPACE(40)+STR1 ELSE ?您輸入的不是英文字母 ENDIFENDIF2、多向選擇DO CASE CASE CAS

16、E OTHERWISE &其它情況ENDCASE說(shuō)明:OTHERWISE 可以沒(méi)有.例1：比較A、B的大小CLEARINPUT “請(qǐng)輸入A的值：” TO AINPUT “請(qǐng)輸入B的值：” TO BDO CASE CASE AB ?”A 大于B” CASE AB ?”A 小于B” CASE A=B？”A等于B”ENDCASE例2：郵局負(fù)責(zé)郵購(gòu)小物品規(guī)則如下：50公里及以內(nèi)收取額外金額5元，50-100公里收取10元，100-200公里收取20元，200-500公里收取40元，其余一律收取50元。 CLEARINPUT “請(qǐng)輸入您想郵購(gòu)物品的路程（公里數(shù)）： ” TO XDO CASE CASE

17、X50 AND X100 AND X200 AND X=500 Y=40 OTHERWISE Y=50ENDCASE?對(duì)不起, 您需要付款: ,Y,元人民幣5循環(huán)程序設(shè)計(jì)1、條件循環(huán)格式一：DO WHILE 條件 命令序列 ENDDO格式二： DO WHILE 條件 語(yǔ)句序列 LOOP 語(yǔ)句序列EXIT語(yǔ)句序列 ENDDO 要退出循環(huán)，需要條件為假的時(shí)候（條件=.F.時(shí)）說(shuō)明：（1） LOOP和EXIT 命令一般放在IF條件中，也可以出現(xiàn)在循環(huán)體內(nèi)的任何位置。若執(zhí)行循環(huán)體時(shí)遇到LOOP命令，則直接返回執(zhí)行DO命令，測(cè)試條件以決定是否繼續(xù)循環(huán)。若遇到EXIT命令，則不執(zhí)行下面的命令序列，直接跳出

18、循環(huán)，執(zhí)行ENDDO后面的命令。（2）條件表達(dá)式的值確定了循環(huán)是否繼續(xù)，當(dāng)條件表達(dá)式的值始終為真（即永真循環(huán)），則應(yīng)使用EXIT命令來(lái)控制循環(huán)結(jié)束例1：將字符“歡迎進(jìn)入樂(lè)山師范學(xué)院”從屏幕的頂部移至底部CLEARCH=“歡迎進(jìn)入樂(lè)山師范學(xué)院”N=1DO WHILE N=23N,26 SAY SPACE(60)N+1,26 SAY CH T=INKEY(0.2)&等待0.2秒 N=N+1ENDDORETURN注：INKEY （）功能:等待用戶按鍵或鼠標(biāo)輸入,等待時(shí)間由數(shù)值表達(dá)式確定(單位為秒)返回由按鍵而產(chǎn)生的一個(gè)整數(shù)值.例2：實(shí)現(xiàn)顯示出全部的男生 CLEARCLOSE ALLUSE 學(xué)生DO

19、WHILE NOT EOF() IF 性別=男DISP ENDIF SKIPENDDOCLOSE ALL LOOP循環(huán)實(shí)例例1：I=0DO WHILE I0 IF Y0 EXIT QUITENDIF ENDIFENDDO ENDDO如果Y0，則退出本循環(huán) 如果Y0，則退出程序，退出VFDO WHILE .T. DO WHILE .T.IF Y0 IF Y0 RETURN CANCELENDIF ENDIFENDDO ENDDO如果Y0，則退出程序返回上層 如果Y0，則退出程序，回到VF中上述語(yǔ)句LOOP、EXIT、QUIT、RETURN、CANCEL等也可以在后面講的其它循環(huán)語(yǔ)句中使用。例1：

20、通過(guò)鍵盤(pán)輸入三角形的邊長(zhǎng)，若邊長(zhǎng)正確，立即在屏幕上顯示三角形的面積，若邊長(zhǎng)不正確，重新輸入邊長(zhǎng)，若輸入的邊長(zhǎng)中任意一邊為0則程序立即結(jié)束。 CLEAR ?”現(xiàn)在計(jì)算三角型的面積，如果想退出程序請(qǐng)輸入0?！盌O WHILE .T.INPUT “請(qǐng)輸入邊長(zhǎng)a：” TO AINPUT “請(qǐng)輸入邊長(zhǎng)b：” TO BINPUT “請(qǐng)輸入邊長(zhǎng)c：” TO CIF A=0 OR B=0 OR C=0 ?結(jié)束 RETURN ENDIF IF A+B=C OR A+C=B OR B+C=A ?錯(cuò)誤的三角型，請(qǐng)重新輸入！ LOOP ENDIFS=(A+B+C)/2AREA=SQRT(S*(S-A)*(S-B)*(

21、S-C)?該三角型的面積是：,areaENDDO 例2：有下列表：book(書(shū)名 C(20),作者 C(8),出版日期 D,內(nèi)容簡(jiǎn)介 M)編寫(xiě)程序：查詢關(guān)于 foxpro 的圖書(shū).USE BOOKLOCATE FOR foxpro $ 書(shū)名IF ! FOUND() ?沒(méi)有關(guān)于foxpro的圖書(shū) ELSEDO WHILE ! EOF() CLEAR ?書(shū)名,作者,出版日期 ?內(nèi)容介紹 WAIT “是否繼續(xù)查找?(Y/N)” TO M IF M$nN EXIT ENDIFCONTINUE ENDDO?”全部顯示完成”ENDIF 2、計(jì)數(shù)循環(huán)FOR 循環(huán)變量=初值 TO 終值 STEP 步長(zhǎng)語(yǔ)句序列

22、ENDFOR說(shuō)明: (1)當(dāng)省略步長(zhǎng)值時(shí),系統(tǒng)默認(rèn)步長(zhǎng)值為1.當(dāng)初值小于終止值時(shí),步長(zhǎng)值為正值,當(dāng)初值大于終值時(shí),步長(zhǎng)值為負(fù)值.步長(zhǎng)值不能為0,否則會(huì)造成死循環(huán). (2)可在循環(huán)體內(nèi)嵌入LOOP和EXIT命令,功能和用法與條件循環(huán)中該命令的用法相同.例1：求1100的和SUM=0FOR n=1 TO 100 SUM=SUM+nENDFOR?1100的總和為：,SUM使用DO WHILE 實(shí)現(xiàn)：SUM=0n=1DO WHILE n INT(SQRT(I) ?I,是質(zhì)數(shù)ENDIF特別: 2是個(gè)質(zhì)數(shù).綜上所敘述: 完成程序?yàn)?CLEAR?2是質(zhì)數(shù)FOR I=3 TO 10 FOR J=2 TO IN

23、T(SQRT(I)IF MOD(I,J)=0 EXITENDIFENDFORIF J INT(SQRT(I) ?I,是質(zhì)數(shù)ENDIFENDFOR3、庫(kù)文件掃描循環(huán)SCAN 范圍 FOR/WHILE 條件 語(yǔ)句序列ENDSCAN例1：查詢所有入?？偡衷?70以上的人.CLEARCLOSE ALLUSE 學(xué)生SCAN FOR 入?？偡?70 DISPENDSCANCLOSE ALL例2：用戶可以循環(huán)輸入并查找入校總分,直到輸入的是負(fù)數(shù)就退出.CLEARCLOSE ALLUSE 學(xué)生INPUT “請(qǐng)輸入你要查找的入?？偡?輸入負(fù)數(shù)則退出: ” TO XDO WHILE X=0SCAN FOR 入?？?/p>

24、分=X DISP ENDSCANINPUT “請(qǐng)輸入你要查找的入?？偡? ” TO XENDDO例3：編寫(xiě)程序，對(duì)于學(xué)生.dbf能夠在程序末尾循環(huán)插入新記錄 （掌握）CLEARCLOSE ALLUSE 學(xué)生DO WHILE .T. APPE BLANK 5,20 SAY 學(xué)號(hào) GET 學(xué)號(hào) 5,40 SAY 姓名 GET 姓名 7,20 SAY 性別 GET 性別 7,30 SAY 出生年月 GET 出生年月 9,20 SAY 入?？偡?GET 入校總分 READ WAIT 你想繼續(xù)插入新記錄嗎?(Y/N) : TO X IF X=N OR X=n EXITENDIF CLEARENDDOCL

25、EARLISTCLOSE ALL 例4：編寫(xiě)程序，該程序能夠順序修改表學(xué)生.DBF中的所有數(shù)據(jù)。（掌握） （要求：必須使用 行,列 say . get . 進(jìn)行數(shù)據(jù)修改） CLEARCLOSE ALLUSE 學(xué)生DO WHILE .T. if eof() exit endif5,20 SAY 學(xué)號(hào) GET 學(xué)號(hào) 5,40 SAY 姓名 GET 姓名 7,20 SAY 性別 GET 性別 7,30 SAY 出生年月 GET 出生年月 9,20 SAY 入校總分 GET 入?？偡?READ WAIT 你想繼續(xù)修改記錄嗎?(Y/N) : TO X IF X=N OR X=n EXIT ENDIF C

26、LEAR SKIPENDDOCLEARLISTCLOSE ALL4、多重循環(huán)例1：輸入n的值，求1+1/2!+1/3!+1/4!+.+1/n! （ 階乘 n!=1*2*3*4.*(n-1)*n ）CLEARSUM=0MUL=1INPUT 請(qǐng)輸入n的值： TO NFOR i=1 TO N FOR j=1 TO i MUL=MUL*J ENDFOR SUM= SUM+1/MUL ENDFOR?求得的總和為: ,SUM例2：打印九九表方法一：CLEAR FOR A=1 T0 9 FOR B=1 TO A T=A*B?STR(B,1)+“*”+STR(A,1)+“=”+STR(T,2)+“ ” END

27、FOR? ” “ENDFORRETURN方法二：CLEAR 1,1 say *for a=1 to 9a+1,1say str(a,1)nextfor b=1 to 9 1,b*3 say str(b,1) for c=1 to b p=c*b b+1,c*3 say str(p,2) next nextcancel例3：圖形打印CLEAR for a=1 to 5內(nèi)循環(huán)外循環(huán) for c=1 to a ?“* next ?nextCancel說(shuō)明：打印圖形時(shí)，一般外循環(huán)控制打印行數(shù)，內(nèi)循環(huán)控制每一行打印圖形個(gè)數(shù)。6數(shù)組的應(yīng)用一、 數(shù)組的定義DIMENTION 數(shù)組名(數(shù)值表達(dá)式1,數(shù)組表達(dá)式

28、2.)定義后單元默認(rèn)值為.F.二、一維數(shù)組1、定義一個(gè)一維數(shù)組：dime a(10) -定義一個(gè)10數(shù)組,且所有單元默認(rèn)值為.F.2、賦值：例如： a=a(1)=20 a(3)=2002/09/23a(7)=.T.循環(huán)賦值：dime a(10)i=1do while ia(i+1) t=a(i+1) a(i+1)=a(j) a(j)=t endif endforendforlist memo like a例2:將1、2、3、10順序輸入一維數(shù)組，實(shí)現(xiàn)順序輸出和逆序輸出。DIME A（10）FOR I=1 TO 10 A（I）=IENDFORFOR I=1 TO 10 ？A（I） ENDFORF

29、OR J=10 TO 1 STEP 1 ？A（J）ENDFOR例3：排序問(wèn)題 (要求:不一定能編寫(xiě),但是重點(diǎn)地方能填空,基本方法要能理解)輸入5 個(gè)數(shù)，將它們按照從大到小的順序排列算法： （軟件技術(shù)支持 第263頁(yè)）穩(wěn)定的算法：插入法排序（將一個(gè)數(shù)據(jù)插入到已經(jīng)排列好的序列中）冒泡排序（比較每次產(chǎn)生最大數(shù)）歸并排序（兩兩合并 ）不穩(wěn)定的算法：（相同數(shù)據(jù)位置可能交換）選擇排序（通過(guò)交換位置，最小的放在第一，次小的第二）實(shí)現(xiàn)算法：冒泡排序(1) n個(gè)數(shù)要比較n-1趟(2) (3) 每趟要比較的次數(shù)為 : n-趟數(shù)(4)(3)每次比較:如果當(dāng)前數(shù) a(j)大于后一個(gè)數(shù) a(j+1) 那么就交換,否則不

30、交換clear dime a(5)?輸入5個(gè)數(shù): for i=1 to 5input 請(qǐng)輸入: to a(i)endforfor i=1 to 4 & 外循環(huán)是行(趟數(shù)), 內(nèi)循環(huán)是列(比較次數(shù))for j=1 to 5-Iif a(j)a(j+1)t=a(j+1)a(j+1)=a(j)a(j)=tendifendforendforFOR I=1 TO 5 ?A(I)ENDFOR對(duì)N個(gè)數(shù)排序（從小到大）clearinput 請(qǐng)問(wèn)你想對(duì)多少個(gè)數(shù)進(jìn)行排序？ to ndime a(n)?請(qǐng)輸入,n,個(gè)數(shù): for i=1 to n input 請(qǐng)輸入: to a(i)endforfor i=1 to

31、 n-1 for j=1 to n-i if a(j)a(j+1) t=a(j+1) a(j+1)=a(j) a(j)=t endif endforendfor算法二：每次比較將當(dāng)前數(shù)和最后一個(gè)數(shù)據(jù)比clearinput “請(qǐng)問(wèn)你想對(duì)多少個(gè)數(shù)進(jìn)行排序？ ” to ndime a(n) ?請(qǐng)輸入,n,個(gè)數(shù): for i=1 to n input 請(qǐng)輸入: to a(i)endforfor i=1 to n-1 for j=1 to n-i if a(j)a(n-i+1) t= a(n-i+1) a(n-i+1)=a(j) a(j)=t endif endforendforlist memo li

32、ke a算法三:clearinput “請(qǐng)問(wèn)你想對(duì)多少個(gè)數(shù)進(jìn)行排序？ ” to ndime a(n)?請(qǐng)輸入,n,個(gè)數(shù): for i=1 to n input 請(qǐng)輸入: to a(i)endforfor i=1 to n-1 for j=1 to n-i if a(j)a(n-i+1) t= a(n-i+1) a(n-i+1)=a(j) a(j)=t endif endforendforlist memo like a7子程序、過(guò)程和自定義函數(shù)一、子程序1.子程序的概念2.子程序的建立和調(diào)用3.子程序的嵌套a1.prg a2.prg a3.prg?* ? ?$ do a2 do a3 retu

33、rn?# ?999 return思考：以上程序運(yùn)行后結(jié)果是什么? * $ 999# 說(shuō)明：1、 如果將a2.prg或者a3.prg的return語(yǔ)句改成cancel,那么程序當(dāng)執(zhí)行到cancel的時(shí)候就會(huì)結(jié)束，不返回 2、如果將a3.prg的return語(yǔ)句改成return to master想想結(jié)果會(huì)怎么樣呢？ 請(qǐng)先看看書(shū) P169頁(yè) 二、變量的三種類型 1、全局變量（定義：用public命令或在命令窗口中賦值的變量） 有效范圍：主程序和所有子程序 2、私有變量（定義：private）或變量屏蔽 有效范圍：當(dāng)前程序,在子程序中修改與主程序同名的變量，只要返回主程序，原來(lái)同名變量中的值不變 3

34、、局部變量（可用LOCAL來(lái)定義，定義好后默認(rèn)值為.F.，或是在當(dāng)前程序中賦值的變量） 有效范圍：當(dāng)前程序及當(dāng)前程序以下的所有子程序 例：主程序MAIN1.PRG CLEAR public i,j store 1 to i,j,k do 程序2 ?主程序的輸出結(jié)果: ?I=+STR(I,2)+ J=+STR(J,2)+ K=+STR(K,2) Cancel 子程序：CLEAR PRIVATE J,K I=I*2 J=I+1 K=J+1 ?子程序的輸出結(jié)果: ?I=+STR(I,2)+ J=+STR(J,2)+ K=+STR(K,2) RETURN 例2： main.prg sc.prg xb.

35、prg private m Clear y=x+10 Input “請(qǐng)輸入x的值: ” to x m=143 m=y*10 Private y do xb z=int(m/100) Public z z=z+m return Do sc return y=sqrt(x)+sqrt(z) ?y return 三、參數(shù)傳遞（教材172功能和說(shuō)明）主程序中：命令： do with 實(shí)參 子程序中：parameters 形參 數(shù)據(jù)通過(guò)return語(yǔ)句傳回 注意：變量表和參數(shù)表是個(gè)數(shù)一致的，也相互對(duì)應(yīng)，但是名字可能不一樣。 例： MAIN.PRG P1.PRG X1=1 PARA W1,W2 X2=2 PRIVATE W1 DO P1 WITH X1,X2 W1=W1*3 ?X1=+STR(X1,1) W2=W2*4 ? X2=+STR(X2,1) RETURN X1=1 X2=2 DO P1 WITH X1,X1+X2 ?X1=+STR(X1,1) ? X2=+STR(X2,1) RETURN 說(shuō)明（1） 在DO WITH 中的參數(shù)稱為實(shí)參，可以是表達(dá)式，若為內(nèi)存變量時(shí)須有初值。 （2）與主程序向子程序傳遞參數(shù)相對(duì)應(yīng)，被調(diào)用的子程序，必須用語(yǔ)句接收參數(shù)。 （3）PARAMETER