自定义函数(96-5、6)教案.docVIP

讲授 课题 自定义函数 课型 新授 教案 序号 96-5、6 教学目标 知识与技能目 标 过程与方法目 标 情感态度与价值观目标 教学重点难点及解决办法 教学重点 教学难点 解决办法 教学手段运用 学法指导 教师教法 学生学法 教师活动 学生活动 课 题 导 入 讲 授 过 程 自定义函数 一、自定义函数 以前我们讲过许多函数，比如STR(),VAL(),AT(),YEAR()等等，这些函数都是VF系统定义的。函数都有变量，然后通过运算返回函数值。有些函数没有变量，如TIME(),DATE(),PI()等。为了增加用户编程的灵活性和通用性，除系统提供的函数外，我们自己还可以定义一些函数，用来实现某些特殊功能，这一类函数我们称为自定义函数。 自定义函数的格式 FUNCTION 函数名 PARAMETERS 形式参数表 语句序列 RETURN 表达式 自定义函数的建立 也使用MODI COMM命令建立，生成的文件也是PRG文件。 说明：形式参数表接受调用自定义函数时由实际参数表传来的数据。函数体的最后一条语句是RETURN 表达式，由表达式返回一个值给调用自定义函数的程序。用户自定义函数建立和修改方法与子程序的建立和修改方法相同。用户自定义函数是一个独立的文件，也称为函数过程，自定义函数名就是文件名。如果自定义函数和系统函数重名，系统函数被优先调用。 自定义函数的调用 用DO命令调用 用?调用 用STORE 命令调用。 例题1.编写一个求圆的面积的函数MJ MODI COMM MJ 函数也是PRG文件 PARAMETERS R S=3.1416*R*R RETURN S 面积函数的调用 一元二次方程求根的函数MODI COMM QG PARAMETERS a,b,c CLEAR*input 请输入二次项系数a： to a*input 请输入一次项系数b： to b*input 请输入常数项系数c： to cdelta=b*b-4*a*cIF delta0  ans1=-b/(2*a)+SQRT(-1*delta)/(2*a) ans2=-b/(2*a)-SQRT(-1*delta)/(2*a) ?方程有2个共轭虚根！ ?第一个根是：,ans1,i,第二个根是：,ans2,iELSE  ans1=-b/(2*a)+SQRT(delta)/(2*a) ans2=-b/(2*a)-SQRT(delta)/(2*a) ?第一个根是：,ans1,第二个根是：,ans2ENDIFRETURN 例题3.编写一个求阶乘的函数JC MODI COMM JC PARA N STORE 1 TO P,L FOR L=1 TO N P=P*L ENDFOR RETURN P 调用函数：?JC(10) 例题4.分别使用自定义函数和过程两种方法，编写计算圆环面积的程序，其中圆的半径从键盘输入。 MODI COMM YHMJ 自定义函数的写法 CLEAR INPUT 请输入圆环外(大)半径： TO dr INPUT 请输入圆环内(小)半径： TO xr ?圆环面积(自定义函数方法):,yhmj_hs(dr,xr) FUNCTION yhmj_hs PARAMETERS wj,nj s=PI()*wj^2-PI()*nj^2 RETURN s MODI COMM YHMJ CLEAR INPUT 请输入圆环外(大)半径： TO dr INPUT 请输入圆环内(小)半径： TO xr s=0 以下是子程序方法调用 DO yhmj_zc WITH dr,xr ?圆环面积(过程方法):,s RETURN PROCEDURE yhmj_zc PARAMETERS wj,nj s=PI()*wj^2-PI()*nj^2 RETURN 课堂练习： 练习1 X=10 Y=35 Z=JH(X,Y) ?Z 练习作业： 课堂 小结 作业 布置 板书 设计 教案 签字 签字 时间 张家口市职教中心教案 科目：数据库应用技术VF6.0 第 5 页 共 5 页