結(jié)構(gòu)化程序設(shè)計(jì)課件

結(jié)構(gòu)化程序設(shè)計(jì)1謝謝觀賞2019-6-176.1.1基本概念1．程序能夠完成特定任務(wù)的命令序列，存儲(chǔ)在命令文件（.PRG）中。運(yùn)行該文件可自動(dòng)執(zhí)行一系列操作。2．結(jié)構(gòu)化程序設(shè)計(jì)用結(jié)構(gòu)化編程語(yǔ)句來(lái)編寫(xiě)程序。3．程序的基本結(jié)構(gòu)（1）說(shuō)明部分：一般是一組注釋語(yǔ)句。（2）初始化部分：設(shè)置程序運(yùn)行時(shí)的系統(tǒng)狀態(tài)和參量初值。（3）程序主體部分：包括數(shù)據(jù)輸入、處理和輸出3個(gè)模塊。（4）還原部分：將當(dāng)前的工作環(huán)境恢復(fù)到執(zhí)行該程序前的狀態(tài)。（5）程序的退出：程序運(yùn)行完畢，返回VFP應(yīng)用程序窗口或退出VFP，返回操作系統(tǒng)。2謝謝觀賞2019-6-176.1.2程序文件的建立1．項(xiàng)目管理器：選擇“程序”項(xiàng)，單擊“新建”按鈕，打開(kāi)代碼編輯窗口，輸入程序內(nèi)容。然后選擇“文件|保存”命令將編寫(xiě)的代碼存入磁盤(pán)。2.菜單：選擇“文件|新建”，在“新建”對(duì)話(huà)框中選擇“程序”文件類(lèi)型，單擊“新建文件”按鈕，進(jìn)入代碼編輯窗口。3.命令：MODIFYCOMMAND程序文件名輸入命令語(yǔ)句時(shí)，必須一條命令占一行，一行寫(xiě)不下時(shí)，在行尾加續(xù)行符（;），換行后接著書(shū)寫(xiě)該命令語(yǔ)句。

3謝謝觀賞2019-6-17命令序列注釋語(yǔ)句4謝謝觀賞2019-6-176.1.3程序文件的修改對(duì)已建立的程序文件可以重新進(jìn)入代碼編輯窗口修改內(nèi)容。1．項(xiàng)目管理器：選中要修改的程序文件，單擊“修改”按鈕，重新打開(kāi)代碼編輯窗口。修改后，選擇“文件|保存”命令，保存程序。2．菜單：選擇“文件|打開(kāi)”命令，將要修改的程序文件調(diào)入代碼編輯窗口。3．命令：MODIFYCOMMAND程序文件名5謝謝觀賞2019-6-17

1項(xiàng)目管理器：選中要執(zhí)行的程序文件，單擊“運(yùn)行”按鈕。2.菜單：選擇“程序|運(yùn)行”命令。3.命令：DO程序文件名6.1.4程序文件的執(zhí)行6謝謝觀賞2019-6-176.2.1基本命令l．注釋命令非執(zhí)行語(yǔ)句，用于提高程序的可讀性。

NOTE、*（行首注釋?zhuān)?&（行尾注釋?zhuān)┟罡袷?：NOTE注釋內(nèi)容note<注釋字符>

not字符>

命令格式2：*注釋內(nèi)容注釋字符>

命令功能：對(duì)程序作注釋?zhuān)粓?zhí)行任何操作。例如：

*計(jì)算園的面積

r=5&&園的半徑為5s=3.14*r*r?”s=“,s7謝謝觀賞2019-6-172文本顯示命令

TEXT

文本內(nèi)容

ENDTEXT功能：將文本內(nèi)容原樣顯示

[注意]文本內(nèi)容不用加定界符例如：

TEXT

西北師范大學(xué)一所重點(diǎn)大學(xué)

ENDTEXT8謝謝觀賞2019-6-172.環(huán)境設(shè)置命令set命令。

settalk命令命令格式：settalkon/offS命令功能：在on狀態(tài)下，在執(zhí)行一些非顯示命令時(shí)，將把執(zhí)行結(jié)果等信息送到顯示器顯示；在off狀態(tài)下，屏幕上只顯示命令要求輸出的結(jié)果。

setprinter命令命令格式：setprinteron/offst

printeroff/on

命令功能：在on狀態(tài)下，輸出結(jié)果將傳送到打印機(jī)輸出；在off狀態(tài)下，關(guān)閉向打印機(jī)輸出。9謝謝觀賞2019-6-173、系統(tǒng)初始化命令命令格式:clearall

命令功能：該命令關(guān)閉所用打開(kāi)的庫(kù)文件、表文件及有關(guān)文件，清除所有內(nèi)存變量，清除所有用戶(hù)自定義下拉菜單、彈出式菜單和窗口，選擇1號(hào)工作區(qū)為當(dāng)前工作區(qū)。常用于應(yīng)用程序主控模塊的開(kāi)頭。4、清屏命令命令格式：CLEAR命令功能：清除VFP主窗口或當(dāng)前用戶(hù)自定義窗口，常用于應(yīng)用程序某模塊的開(kāi)頭，或在各輸出命令前使用。10謝謝觀賞2019-6-175.關(guān)閉文件命令：CLOSEALL

（關(guān)閉所有文件）

CLOSE文件類(lèi)型（關(guān)閉指定類(lèi)型的文件）6.運(yùn)行中斷和結(jié)束命令

Cancel

終止程序運(yùn)行，返回命令窗口。

RETURN

結(jié)束當(dāng)前程序的執(zhí)行，返回到調(diào)用它的上級(jí)程序。

QUIT關(guān)閉所有文件，退出VFP系統(tǒng)，返回操作系統(tǒng)環(huán)境。11謝謝觀賞2019-6-171．基本輸出命令：?|??表達(dá)式表功能：計(jì)算各表達(dá)式的值，并將結(jié)果送到主窗口

[注意]各表達(dá)式之間用逗號(hào)相隔例如：？“r=“,3+56.2.2輸入/輸出命令12謝謝觀賞2019-6-172.鍵盤(pán)輸入單字符命令：WAIT命令格式：wait[“提示信息”][TO內(nèi)存變量]功能：暫停程序的執(zhí)行，并顯示“提示信息”，等待用戶(hù)輸入任何單個(gè)字符后再繼續(xù)執(zhí)行程序。[注意]1“提示信息”可有可無(wú)，如果有顯示“提示信息”，如果無(wú)，則顯示“按任意鍵繼續(xù)”。

2如果有“TO內(nèi)存變量”，則輸入的字符將存人指定的內(nèi)存變量。例如：1wait2wait“請(qǐng)用戶(hù)按任意鍵繼續(xù)…”3wait“請(qǐng)用戶(hù)按任意鍵繼續(xù)…”toh

ZH[[

“提示信息”][to<內(nèi)存變量名>]wait[“提示信息”][to<內(nèi)存變量名>]13謝謝觀賞2019-6-173鍵盤(pán)輸入字符串語(yǔ)句命令格式：accept[”提示信息”]to內(nèi)存變量功能:顯示”提示信息”,暫停程序的執(zhí)行,等待用戶(hù)從鍵盤(pán)輸入內(nèi)容并存人內(nèi)存變量.[注意]此命令無(wú)論輸入任何類(lèi)型的數(shù)據(jù),都作為字符型數(shù)據(jù)處理,輸入字符型數(shù)據(jù)時(shí)不需要加定界符.accept[“提示信息”][to<內(nèi)存變量名>]

示例：accept”請(qǐng)輸入姓名:”toxm14謝謝觀賞2019-6-174鍵盤(pán)輸入語(yǔ)句命令格式：input[“提示信息”]to內(nèi)存變量

[“功能:顯示”提示信息”,暫停程序的執(zhí)行,等待用戶(hù)從鍵盤(pán)輸入內(nèi)容并存人內(nèi)存變量.[注意]此命令可接受任何類(lèi)型的數(shù)據(jù),輸入字符型數(shù)據(jù)時(shí)定界符,輸入邏輯型數(shù)據(jù)時(shí),用小圓點(diǎn),如:.T.或.F.。輸入日期型數(shù)據(jù)時(shí)，要加大括號(hào)，如：{^2005-04-25}能解放息”][to<內(nèi)存變量名>]

示例：input“請(qǐng)輸入數(shù)據(jù)”toz15謝謝觀賞2019-6-175．格式輸入輸出命令格式1：@行號(hào),列號(hào)SAY表達(dá)式功能：在主窗口指定的位置處顯示表達(dá)式的值格式2：@行號(hào),列號(hào)SAY表達(dá)式GET變量

READ

功能：在窗口指定位置處分別顯示表達(dá)式和變量的值。若使用READ語(yǔ)句，則可以對(duì)變量的值進(jìn)行修改。

[注意]格式2,如果是內(nèi)存變量,必須要先賦值,表達(dá)式如果為字符型的數(shù)據(jù),則要加定界符.16謝謝觀賞2019-6-17XM==“楊靈”@2,10SAY“姓名是:”@3,10SAYXMXB=‘男’@5,10say“性別是:”@7,10sayXBREAD17謝謝觀賞2019-6-176.3程序的基本控制結(jié)構(gòu)

應(yīng)用程序是用戶(hù)為解決一個(gè)特定的問(wèn)題而將有關(guān)的命令按一定的結(jié)構(gòu)組成的序列.順序結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)是三種基本的控制結(jié)構(gòu)。在進(jìn)行程序設(shè)計(jì)時(shí)，為了把解題的步驟清晰的表達(dá)出來(lái)，我們常常圖形來(lái)描述——流程圖。它是用特定的圖形符號(hào)和必要的文字來(lái)描述解題步驟。18謝謝觀賞2019-6-17數(shù)據(jù)的輸入輸出框程序的開(kāi)始與結(jié)束框計(jì)算與處理數(shù)據(jù)框

判斷框連接線(xiàn)，并指出執(zhí)行順序19謝謝觀賞2019-6-17ClearUsec:\XJKLOCATEFOR姓名=“楊靈”DISPUSE開(kāi)始清屏打開(kāi)表查找顯示關(guān)閉結(jié)束20謝謝觀賞2019-6-17編寫(xiě)程序的步驟（1）明確題目要求解決什么問(wèn)題（2）明確輸入什么數(shù)據(jù)，處理什么數(shù)據(jù)，輸出什么數(shù)據(jù)。（3）畫(huà)出流程圖（4）根據(jù)流程圖編寫(xiě)程序（5）運(yùn)行調(diào)試程序21謝謝觀賞2019-6-17輸入程序的規(guī)則:

(1)一行只能輸入一個(gè)命令且輸完后要按回車(chē)鍵;(2)如果一個(gè)命令一行輸不下,則要分行輸入且前一行的后面一定要輸入分號(hào),且要按回車(chē)鍵;

如:

dispallfor語(yǔ)文>80.and.化學(xué)<90;fields姓名,外語(yǔ),性別,學(xué)號(hào)22謝謝觀賞2019-6-176.3程序的基本控制結(jié)構(gòu)1.順序結(jié)構(gòu)：按語(yǔ)句的先后順序逐條執(zhí)行。直到最后一條語(yǔ)句執(zhí)行完.ClearUsec:\XJKLOCATEFOR姓名=“楊靈”DISPUSE23謝謝觀賞2019-6-17

usexjkinput“請(qǐng)輸入要?jiǎng)h除的記錄號(hào)”tox

GOTOxdelepack24謝謝觀賞2019-6-17

2.選擇結(jié)構(gòu):根據(jù)條件成立與否,選擇執(zhí)行某些語(yǔ)句;基本格式:(一)第一種格式

(1)IF條件表達(dá)式(THEN)

語(yǔ)句序列

ENDIF25謝謝觀賞2019-6-17執(zhí)行過(guò)程:當(dāng)條件成立時(shí),執(zhí)行語(yǔ)句序列,否則不執(zhí)行語(yǔ)句序列直接退到ENDIF后面去執(zhí)行;舉例INPUT“請(qǐng)輸入X的值:”TOXIFX>0X=X+1?‘X=’,XENDIFX=X -1?‘X=’,X26謝謝觀賞2019-6-17(2)USEXJKACCEPT“請(qǐng)輸入姓名:”TOXMLOCAFOR姓名=XMIFFOUND()REPL語(yǔ)文WITH100ENDIF

[注意]:FOUND()可改為:FOUND()=.T.或.NOT.EOF()27謝謝觀賞2019-6-17(二).第二種格式

1.IF條件表達(dá)式(THEN)

語(yǔ)句序列1

ELSE

語(yǔ)句序列2

ENDIF

2.執(zhí)行過(guò)程:當(dāng)條件成立時(shí)執(zhí)行語(yǔ)句序列1,

然后退到ENDIF后面去執(zhí)行;當(dāng)條件不成立時(shí),執(zhí)行語(yǔ)句序列2,然后退到ENDIF后面去執(zhí)行;28謝謝觀賞2019-6-17舉例INPUT‘X=‘TOXIFX>0?X-1ELSE?X+1ENDIF?“結(jié)束”

29謝謝觀賞2019-6-17(2)USEXJKACCEPT“請(qǐng)輸姓名”TOXMIFFOUND()DISP姓名,語(yǔ)文

ELSE?“查無(wú)此人”

ENDIF30謝謝觀賞2019-6-17(3)如果有多個(gè)條件,可用多個(gè)IF語(yǔ)句

XX>0Y=X+1X<-2X+3-2<X<0INPUT“X=“TOX

IFX>0?X

ENDIF

IFX<-2?X+1

ENDIF

IFX>-2.AND.X<0?X+3

ENDIF31謝謝觀賞2019-6-17(三)第三種格式

1.DOCASECASE條件表達(dá)式1

語(yǔ)句序列1CASE條件表達(dá)式2

語(yǔ)句序列2…….CASE條件表達(dá)式N

語(yǔ)句序列N

[OTHERWISE

語(yǔ)句序列N+1]ENDCASE32謝謝觀賞2019-6-17執(zhí)行過(guò)程:當(dāng)條件表達(dá)式1成立,則執(zhí)行語(yǔ)句序列1,然后退到ENDCASE后面去執(zhí)行;當(dāng)條件表達(dá)式1不成立時(shí),繼續(xù)判斷條件表達(dá)式2,如果成立,則執(zhí)行語(yǔ)句序列2然后退到ENDCASE后面去執(zhí)行;

依次類(lèi)推;如果所有的條件表達(dá)式都不成立,且還有OTHERWISE語(yǔ)句時(shí);則執(zhí)行語(yǔ)句序列N+1,然后退到ENDCASE

后面去執(zhí)行;33謝謝觀賞2019-6-17舉例(DOCASE語(yǔ)句一般用于具有多個(gè)條件或多個(gè)選項(xiàng)的題目)(1)INPUT“X=“TOXDOCASECASEX>0?XCASEX<0?X-1CASEX=0?X+1ENDCASE34謝謝觀賞2019-6-17(2)USEXJK

?‘**************’?‘*1.追加記錄*’?‘*2.刪除記錄*’?‘*3.顯示記錄*’?‘*4.退出*’?‘**************’ACCEPT‘請(qǐng)選擇1-4’TOXDOCASECASEX=‘1’APPENDCASEX=‘2’ACCEPT‘請(qǐng)輸入條件’TOH35謝謝觀賞2019-6-17DELEFOR&HPACKCASEX=‘3’ACCEPT“請(qǐng)輸入條件”TOKDISPFOR&KCASEX=‘4’CANCELENDCASE36謝謝觀賞2019-6-17CLEAR@10,10SAY“******************”@11,10SAY“*學(xué)生擋案管理系統(tǒng)*”@12,10SAY“*1建立庫(kù)結(jié)構(gòu)*”@13,10SAY“*2追加記錄*”@14,10SAY“*3退出*”@15,10SAY“******************”37謝謝觀賞2019-6-17X=‘‘@18,10SAY“請(qǐng)輸入1-3”GETXREADDOCASECASEX=‘1’CREATYYYCASEX=‘2’USEYYYAPPECASEX=‘3’EXITENDCASE38謝謝觀賞2019-6-17三.循環(huán)結(jié)構(gòu)一.循環(huán)結(jié)構(gòu):某個(gè)程序段的反復(fù)執(zhí)行的結(jié)構(gòu);二.基本格式39謝謝觀賞2019-6-17(1)第一種格式

1.DOWHILE條件表達(dá)式語(yǔ)句序列

ENDDO2.執(zhí)行過(guò)程:當(dāng)條件成立時(shí),執(zhí)行語(yǔ)句序列,執(zhí)行完后自動(dòng)返回到DOWHILE

語(yǔ)句,再判斷條件,如果成立,再執(zhí)行語(yǔ)句序列,如果不成立則退到ENDDO后面去執(zhí)行;40謝謝觀賞2019-6-173.舉例

X=1DOWHILEX<5?”*”X=X+1ENDDO

執(zhí)行結(jié)果為:****41謝謝觀賞2019-6-174.循環(huán)常用的控制格式(一)對(duì)表文件記錄逐條操作的循環(huán)格式

(1)USE庫(kù)文件名

DOWHILE.NOT.EOF()

語(yǔ)句序列

SKIPENDDO

42謝謝觀賞2019-6-17(2)說(shuō)明:

當(dāng)執(zhí)行到DOWHILE語(yǔ)句時(shí),首先判斷EOF(),如果EOF()=.F.,則.NOT.EOF()=.T.執(zhí)行語(yǔ)句序列,然后執(zhí)行SKIP;如EOF()=.T.則.NOT.EOF()=.F.,那么條件不滿(mǎn)足,這時(shí)退到ENDDO后面去執(zhí)行;[注意]記錄的定位由SKIP完成;43謝謝觀賞2019-6-17(3)舉例顯示每個(gè)學(xué)生的性別USEXJKDOWHILE.NOT.EOF()DISP性別

SKIPENDDO[注意].NOT.EOF()可換為:.NOT.EOF()=.T.44謝謝觀賞2019-6-17(二)對(duì)表文件中滿(mǎn)足條件的記錄逐條進(jìn)行操作的循環(huán)格式;(1)USE表文件名

LOCATEFOR條件表達(dá)式

DOWHILE.NOT.EOF()

語(yǔ)句序列

CONTENDDO45謝謝觀賞2019-6-17(3)說(shuō)明首先用命令LOCATE將記錄指針指向第一條滿(mǎn)足條件的記錄上,然后進(jìn)入循環(huán)執(zhí)行語(yǔ)句序列,再執(zhí)行CONT,將記錄指針指向第二條滿(mǎn)足條件的記錄上,然后返回到DOWHILE

語(yǔ)句,判斷.NOT.EOF(),這樣重復(fù)下去,直到.NOT.EOF()=.F.，然后,退到ENDDO后面去執(zhí)行;46謝謝觀賞2019-6-17(4)舉例

USEXJKLOCATEFOR語(yǔ)文>80

DOWHILE.NOT.EOF()REPL化學(xué)WITH100

CONTENDDO?“全部改完”47謝謝觀賞2019-6-17(三)有限次循環(huán)控制方式

(1)A=常量1B=常量2

DOWHILEA<(<=)B

[A>(>=)B]

語(yǔ)句序列

A=A+1[A=A-1]ENDDO48謝謝觀賞2019-6-17(2)說(shuō)明:當(dāng)A<=B時(shí)循環(huán)繼續(xù)進(jìn)行,當(dāng)A>B

時(shí)退到ENDDO后面去執(zhí)行;(3)舉例:

求1+2+3+….+10

S=0P=1DOWHILEP<=10S=S+PP=P+1ENDDO?S[注意]當(dāng)給一個(gè)變量多次賦值時(shí),取最后賦予的只值;49謝謝觀賞2019-6-17求1+2+3+….+NS=0P=1INPUT“請(qǐng)輸入N的值:”TONDOWHILEP<=NS=S+PP=P+1ENDDO?S50謝謝觀賞2019-6-17打印出10,9,8…1P=10DOWHILEP>=1?PP=P-1ENDDO求2+4+6+……+N(偶數(shù))

S=0P=2INPUT“N=“TONDOWHILEP<=NS=S+PP=P+2ENDDO?S51謝謝觀賞2019-6-17（4）無(wú)限循環(huán)控制方式1.格式

DOWHILE.T.

語(yǔ)句序列

ENDDO2.說(shuō)明:因?yàn)闊o(wú)限循環(huán)的條件永遠(yuǎn)為真(即條件永遠(yuǎn)成立),所以進(jìn)入循環(huán)后,得用其它的方法退出,否則為死循環(huán);52謝謝觀賞2019-6-173.退出無(wú)限循環(huán)的命令

(1)格式

EXIT(QUIT，RETURNCANCEL）

(2)功能:當(dāng)執(zhí)行此命令時(shí)就退到本循環(huán)的ENDDO

后面去執(zhí)行;

(3)說(shuō)明:LOOP命令與EXIT不同,當(dāng)執(zhí)行

LOOP時(shí),就直接轉(zhuǎn)到DOWHILE

去判斷條件,如果條件成立,往下執(zhí)行,否則退出循環(huán);(4)LOOP

與EXIT可放到循環(huán)體的任何地方;53謝謝觀賞2019-6-17(5)EXIT