【正文】
現(xiàn)在表達(dá)式中。③DO 命令執(zhí)行的文件可以是……④過(guò)程可以嵌套調(diào)用,但最多不能超過(guò)128層。SET PROC TO GC…………DO 過(guò)程1…………SET PROC TO 過(guò)程1 過(guò)程2 過(guò)程3…………DO 過(guò)程2…………RETURN…………DO 過(guò)程3…………RETURN TO MASTER……RETURN主程序 例:將求階乘,求圓面積,輸出結(jié)果編制成3個(gè)過(guò)程。* PROCEDURE PROC1 amp。amp。求半徑為R的圓的面積SS=*R*R ? 面積是:,SRETURN******************* PROCEDURE PROC2 amp。amp。求I!=TN=1T=1DO WHILE N=IT=T*NN=N+1ENDDODO PROC3RETURN********************PROCEDURE PROC3 amp。amp。顯示階乘結(jié)果? I,!=,TRETURNCLEARSET TALK OFFPUBLIC S,TSET PROCEDURE TO GC1 INPUT 輸入圓的半徑 TO R DO PROC1INPUT I= TO IDO PROC2CLOSE PROCEDURE SET TALK ONCANCEL 在過(guò)程中,還可以自己調(diào)用自己,這叫做遞歸調(diào)用。 自定義函數(shù) 內(nèi)部函數(shù):如SUBSTR(C,N1,N2),EOF(),SQRT(N),MESSAGEBOX (信息內(nèi)容,[,對(duì)話框類型[,對(duì)話框標(biāo)題]])等。 用戶自定義函數(shù):彌補(bǔ)有限的系統(tǒng)提供的內(nèi)部函數(shù)。(1) 編制函數(shù)格式: [FUNCTION函數(shù)名] [PARAMETERS形式參數(shù)表] 語(yǔ)句序列(函數(shù)體)RETURN表達(dá)式ENDFUNC 說(shuō)明: ①PARAMETERS參數(shù)語(yǔ)句用來(lái)接受調(diào)用程序傳來(lái)的參數(shù),即自變量②函數(shù)體是由完成函數(shù)功能的一組語(yǔ)句組成。③RETURN 后面的表達(dá)式為函數(shù)的返回值。 (2)函數(shù)的調(diào)用調(diào)用方法與系統(tǒng)內(nèi)部函數(shù)的調(diào)用方法相同,可以出現(xiàn)在任何一個(gè)合法的表達(dá)式中。 函數(shù)名[實(shí)際參數(shù)表]當(dāng)函數(shù)以獨(dú)立的文件形式存在時(shí),函數(shù)名就是過(guò)程名。當(dāng)函數(shù)放在過(guò)程文件中時(shí),函數(shù)名就是FUNCTION后面的名字。調(diào)用前必須先打開過(guò)程文件。例: FUNCTION CF PARA N Y=1 FOR I=1 TO N Y=Y*I ENDFOR RETU Y ENDFUNC調(diào)用方法:直接在命令窗口調(diào)用 ?CF(5)在程序中調(diào)用計(jì)算:CLEAR INPUT M= TO MINPUT N= TO NMN=MNMC=CF(M)/(CF(N)*CF(MN))? C(M,N)=,MCCANCEL 21