自定義函數(shù)(96-5、6)

1、張家口市職教中心教案科目：數(shù)據(jù)庫應(yīng)用技術(shù)VF6.0講授 課題自定義函數(shù)課型新授教案 在舁 廳P96-5、6教學(xué)目標(biāo)知識(shí)與技能目標(biāo)過程與方法目標(biāo)情感態(tài)度與 價(jià)值觀目標(biāo)教學(xué) 重點(diǎn) 難點(diǎn) 及解 決辦 法教學(xué)重點(diǎn)教學(xué)難點(diǎn)解決辦法教學(xué)手段運(yùn)用學(xué)法 指導(dǎo)教師教法學(xué)生學(xué)法教師活動(dòng)學(xué)生活 動(dòng)課題導(dǎo)入講授過程自定義函數(shù)一、自定義函數(shù)以前我們講過許多函數(shù)，比如 STR(),VAL(),AT(),YEAR()等等， 這些函數(shù)都是VF系統(tǒng)定義的。函數(shù)都肩變量，然后通過運(yùn)算返回函 數(shù)值。有些函數(shù)沒有變量，如 TIME(),DATE(),PI()等。為了增加用戶 編程的靈活性和通用性，除系統(tǒng)提供的函數(shù)外，我們自己還可以定

2、義 一些函數(shù)，用來實(shí)現(xiàn)杲些特殊功能，這一類函數(shù)我們稱為自定義函數(shù)。1 .自定義函數(shù)的格式FUNCTION 函數(shù)名 PARAMETERS 形式參數(shù)表語句序列RETURN 表達(dá)式2 .自定義函數(shù)的建立也使用MODI COMM 命令建立，生成的文件也是 PRG文件。說明： 形式參數(shù)表,接受調(diào)用自定義函數(shù)時(shí)由 實(shí)際參數(shù)表傳 來的數(shù)據(jù)。函數(shù)體的最后一條語句是 RETURN 表達(dá)式，由表達(dá) 式返回一個(gè)值給調(diào)用自定義函數(shù)的程序。用戶自定義函數(shù)建立和修 改方法與子程序的建立和修改方法相同。用戶自定義函數(shù)是一個(gè)獨(dú)立 的文件，也稱為函數(shù)過程，自定義函數(shù)名就是文件名。如果自定義函 數(shù)和系統(tǒng)函數(shù)重名，系統(tǒng)函數(shù)被優(yōu)先調(diào)

3、用。3 .自定義函數(shù)的調(diào)用(1)用DO命令調(diào)用(2)用？調(diào)用(3) 用STORE命令調(diào)用。例題1.編寫一個(gè)求圓的面積的函數(shù) MJMODI COMM MJ && 函數(shù)也是PRG文件PARAMETERS RS=3.1416*R*RRETURN S面積函數(shù)的調(diào)用(1)?MJ(12)(2)用STORE命令調(diào)用該函數(shù)STORE MJ(12) TO NN?NN(3)用DO命令調(diào)用DO MJ WITH 12(4)程序中調(diào)用函數(shù)MODI COMM PPSET TALK OFFX=1DO WHILE X<=10?X,MJ(12)*?X,MJ(X)X=X+1ENDDOSET TALK ONR

4、ETURN例題2.編寫求一元二次方程求根的函數(shù)MODI COMM QGPARAMETERS a,b,cCLEAR*input "請(qǐng)輸入二次項(xiàng)系數(shù) a： " to a*input "請(qǐng)輸入一次項(xiàng)系數(shù) b: " to b*input "請(qǐng)輸入常數(shù)項(xiàng)系數(shù)c： " to cdelta=b*b-4*a*cIF delta<0ans1=-b/(2*a)+SQRT(-1*delta)/(2*a)ans2=-b/(2*a)-SQRT(-1*delta)/(2*a)?”方程有2個(gè)共腕虛根！"?"第一個(gè)根是：",ans

5、1,"i","第二個(gè)根是:",ans2,"i" ELSEans1=-b/(2*a)+SQRT(delta)/(2*a)ans2=-b/(2*a)-SQRT(delta)/(2*a)?"第一個(gè)根是：",ans1,"第二個(gè)由!是：",ans2ENDIFRETURN例題3.編寫一個(gè)求階乘的函數(shù)JCMODI COMM JCPARA NSTORE 1 TO P,LFOR L=1 TO NP=P*LENDFORRETURN P調(diào)用函數(shù)：？JC(10)例題4.分別使用自定義函數(shù)和過程兩種方法，編寫計(jì)算圓環(huán)面枳

6、的程序， 其中圓的半徑從鍵盤輸入。MODI COMM YHMJ&&自定義函數(shù)的寫法CLEARINPUT ”請(qǐng)輸入圓劃、外(大)半徑："TO drINPUT ”請(qǐng)輸入圓劃、內(nèi)(小)半徑："TO xr ?圓環(huán)面積(自定義函數(shù)方法):',yhmj_hs(dr,xr) FUNCTION yhmj_hs PARAMETERS wj,njs=PI()*wjA2-PI()*njA2 RETURN sMODI COMM YHMJCLEARINPUT "請(qǐng)輸入圓劃、外(大)半徑："TO drINPUT "請(qǐng)輸入圓劃、內(nèi)(小)半徑："TO xrs=0&&以下是子程序方法調(diào)用DO yhmj_zc WITH dr,xr ?圓環(huán)面積(過程方法):',sRETURNPROCEDURE yhmj_zcPARAMETERS wj,nj s=PI()*wjA2-PI()*njA2 RETURN課堂練習(xí)： 練習(xí)1X=10Y=35Z=JH(X,Y) ?Z RETURN FUNCTION JH PARAMETERS A,S A=A-B RETURN A程序運(yùn)行的結(jié)果為：練習(xí)2填空完成下列程序，求數(shù)絕對(duì)值的函數(shù)程序。INPUT'請(qǐng)輸入一個(gè)數(shù)：'TO X?STR(X)+”它的絕對(duì)值是：&quo