第6章-3 过程与函数

主要内容：1、子程序、过程文件的创建。2、子程序、过程文件的调用、参数传递。3、自定义函数的定义。4、自定义函数的调用。5、变量的作用域：全局变量、局部变量、本地变量。子程序、过程和函数子程序、过程和函数问题提出：设计一个程序完成下面计算：其中，m、n为正整数，m>n，该程序如何设计更有效？例：编程求

*求组合数程序zhs1.prginput"请输入n="toninput"请输入m="tomsn=1sm=1smn=1fori=1ton

sn=sn*iendforfori=1tom

sm=sm*iendforfori=1tom-n

smn=smn*iendfor?"n!=",sn?"m!=",sm?"(m-n)!=",smn?"Cmn=",sm/(sn*smn)return将需要重复执行的语句序列或独立的功能子模块定义成子程序、过程或用户自定义函数，需要执行时只需调用它即可。子程序、过程和函数主程序、子程序、过程、函数的概念：主程序：指只调用其他程序的程序。子程序：具有相对的独立性、能完成某一功能、能被其他程序调用的程序。过程：是指程序文件中的一个子程序模块。自定义函数：与过程的区别在于返回语句带有返回值。子程序1.子程序的创建格式：

[parameters<形参表>]

<命令序列>

return[tomaster]功能：创建子程序文件。2.子程序的调用格式：do<子程序文件名>[with<实参表>]功能：调用一个指定的子程序，若调用的是有参数的子程序，则要用with子句向被调用的子程序传递参数。

…………dosub1……

……主程序main.prg

…………dosub2…………return子程序1sub1.prg

……if…return

endif……returntomaster子程序2sub2.prg子程序1.子程序的创建格式：

[parameters<形参表>]

<命令序列>

return[tomaster]功能：创建子程序文件。2.子程序的调用格式：do<子程序文件名>[with<实参表>]功能：调用一个指定的子程序，若调用的是有参数的子程序，则要用with子句向被调用的子程序传递参数。3.参数传递参数传递有两种方式：值传递和地址传递。如果实参是常量或表达式或括号括起来的变量，默认的传递方式是值传递，此时子程序中形参的变化不会影响到调用程序中的实参。如果实参是没有用括号括起来的变量，默认的传递方式是按地址传递，此时形参的值发生改变，实参也随之改变。例1:观察下列程序中的两种子程序调用，比较按值传递与按地址传递的区别。*主程序文件main1.prgcleara=3.14dosub1witha?a*子程序文件sub1.prgparametersb?bb=2.72return输出结果：3.142.72a3.14b2.72例1:观察下列程序中的两种子程序调用，比较按值传递与按地址传递的区别。*主程序文件main2.prgcleara=3.14dosub1witha?a*子程序文件sub1.prgparametersb?bb=2.72return()a3.14输出结果：3.143.14b3.142.72例2：用子程序调用求

*主程序zhs2.prginput"请输入n="toninput"请输入m="tomsn=1sm=1smn=1dojc

withn,sndojcwithm,smdojc

withm-n,smn?"n!=",sn?"m!=",sm?"(m-n)!=",smn?"Cmn=",sm/(sn*smn)return*子程序文件jc.prgparameterst,ss=1fori=1tots=s*iendforreturn运行结果：请输入n=请输入m=n!=6m!=120(m-n)!=2Cmn=10.0000↙3↙5过程过程可以分为内部过程和外部过程。内部过程：过程定义在主调程序文件中，一般将过程定义在程序后面。外部过程：过程定义在过程文件（prg）中。一个过程文件可以包含多个过程，每个过程仍然是独立的，可以单独调用。1.过程的建立

格式:procedure<过程名>[parameters<形参表>]<过程语句序列>return[tomaster][endproc]

功能:将一个语句系列定义为以<过程名>为名的过程。在主程序或过程文件中创建过程2.过程的调用（1）内部过程：被调用的过程在主调程序中(后面)

。格式：do<过程名>[with<实参表>]（2）外部过程：被调用的过程在过程文件中。①先打开过程文件，再调用过程格式：setprocedureto<过程文件名>

功能：该命令打开一个过程文件。格式：closeprocedure或setprocedureto

功能：该命令关闭当前过程文件。②直接用do命令调用

do<过程名>[with<实参表>][in<过程文件名>]3.参数传递

过程的参数传递和子程序的参数传递方式相同。例：用主程序调用过程的方式编写程序，求任意边长的正方形的面积、周长。

*主程序和过程在同一程序文件中clearinput"请输入正方形的边长:"tobmj=0zc=0dozmjwithmj,bdozzcwithzc,b?"正方形的面积为：",mj?"正方形的周长为：",zc*定义求正方形的面积的过程procedurezmjparameterss,xs=x*xreturn*定义求正方形的周长的过程procedurezzcparametersc,xc=4*xreturn例：用主程序调用过程的方式编写程序，求任意边长的正方形的面积、周长。

*主程序和过程不在同一程序文件中*主程序main3.prgclearinput"请输入正方形的边长:"tobmj=0zc=0dozmjwithmj,binproc1dozzcwithzc,binproc1?"正方形的面积为：",mj?"正方形的周长为：",zc*过程文件proc1.prg*定义求正方形的面积的过程procedurezmjparameterss,xs=x*xreturn*定义求正方形的周长的过程procedurezzcparametersc,xc=4*xreturn自定义函数

1.自定义函数的定义格式：function<函数名>

[parameters<形参表>]

<命令序列>

return[<表达式>]

[endfunc]功能：用来定义一个函数，<函数名>是自定义函数的名字。说明：return返回函数的值，如果省略“表达式”，则返回.t.

2.自定义函数的调用格式：<函数名>(<实参表>)3、参数传递在自定义函数中，默认的参数传递方式是值传递方式例：编程求

clearinput"请输入n="toninput"请输入m="tomsn=1sm=1smn=1sn=jc(n)sm=jc(m)smn=jc(m-n)?"n!=",sn?"m!=",sm?"(m-n)!=",smn?"Cmn=",sm/(sn*smn)functionjcparametersns=1fori=1tons=s*iendforreturns变量的作用域

程序各模块之间的的数据传递可以通过两种方式来解决：利用参数实现数据传递利用变量的作用域实现数据传递变量作用域：内存变量的有效作用范围。如果一个变量在某个程序或过程或函数范围内是有效的，则该程序或过程或函数为该变量的作用域，在此作用域内可以引用该变量。根据作用域的不同，内存变量可分为全局变量、私有变量和局部变量三种类型。变量的作用域

1.全局变量（公共变量）全局变量是指声明后，程序中的任何模块都能使用的内存变量。(1)全局变量的定义1)在命令窗口创建的变量和数组将自动成为全局变量。2)用public语句定义：格式:public＜内存变量名表/数组名表＞功能：定义全局内存变量或数组。(2)说明程序结束时，全局变量不会自动释放，需要用clearall或clearmemory或release等命令释放。变量的作用域2.私有变量只局限在定义它的程序模块以及下级模块（该模块所调用的模块）中有效。当定义它的模块运行结束，它被自动释放。(1)局部变量的定义①在一个程序或过程中建立的内存变量，如果未加任何说明，自动成为私有变量。②格式:private＜内存变量名表/数组名表＞(2)说明：定义私有内存变量和数组，可以屏蔽来自上级模块中与当前局部变量同名的变量，使在当前模块中对局部变量的操作，不影响上级模块中同名变量的值。即如果本模块的私有变量和上层模块中的变量重名,则本模块的变量优先,上层模块中的变量被屏蔽,直到本模块运行结束,上层变量恢复使用。变量的作用域3.局部变量只局限在定义它的程序模块中有效，一旦定义它的程序模块运行结束，它便自动被清除。(1)局部变量的定义格式:local＜内存变量名表/数组名表＞功能:定义局部内存变量和数组，并屏蔽所有与它同名的变量，使在当前模块中对局部变量的操作，不影响其它模块中同名变量的值。说明：和前两种的不同在于，局部变量只能在本程序模块中使用，因此它不能负责在各个模块之间传递数据。全局变量、局部变量和私有变量的比较

全局变量（public)私有变量（private)局部变量（local)作用域整个系统的所有程序。当前程序模块变量寿命即使所有程序运行结束，内存中也仍然保存该变量。当前程序模块运行结束后，该变量被自动清除。数据传递作用任意一对调用程序与被调过程间双向传递。从调用程序到被调过程双向传递。无当前程序模块及其下属程序模块。例1：用变量作用域编写程序，求任意边长的正方形的面积、周长，面积和周长用过程实现。*主程序和过程在同一程序文件中clearinput"请输入正方形的边长:"tobmj=0zc=0dozmjwithmj,bdozzcwithzc,b?"正方形的面积为：",mj?"正方形的周长为：",zcreturn*定义求正方形的面积的过程procedurezmjparameterss,xs=x*xreturn*定义求正方形的周长的过程procedurezzcparametersc,xc=4*xreturn例1：用变量作用域编写程序，求任意边长的正方形的面积、周长，面积和周长用过程实现。*主程序和过程在同一程序文件中clearpublicxinput"请输入正方形的边长:"toxmj=0zc=0dozmjwithmjdozzc?"正方形的面积为：",mj?"正方形的周长为：",zcreturn*定义求正方形的面积的过程procedurezmjparametersss=x*xreturn*定义求正方形的周长的过程procedurezzczc=4*xreturn例1：用变量作用域编写程序，求任意边长的正方形的面积、周长，面积和周长用过程实现。*主程序和过程在同一程序文件中clearpublicxinput"请输入正方形的边长:"toxmj=0zc=0dozmjwithmjdozzc?"正方形的面积为：",mj?"正方形的周长为：",zcreturn*定义求正方形的面积的过程procedurezmjparametersss=x*xreturn*定义求正方形的周长的过程procedurezzcprivatezczc=4*xreturn例1：用变量作用域编写程序，求任意边长的正方形的面积、周长，面积和周长用过程实现。*主程序和过程在同一程序文件中clearpublicxlocalzcinput"请输入正方形的边长:"toxmj=0zc=0dozmjwithmjdozzc?"正方形的面积为：",mj?"正方形的周长为：",zcreturn*定义求正方形的面积的过程procedurezmjparametersss=x*xreturn*定义求正方形的周长的过程procedurezzczc=4*xreturn有如下程序，程序执行后，b的值为________。b=5STORE2TOA,c,dDOSUB1WITHA,B,C?bretuprocsub1PARAMETERA,B,CD=B*B-4*A*CDOCASECASED=0b=0CASED<0b=-1CASED>0b=1CASED=0D=100ENDCASEendpro1本周实验实验时间：工商131-2、金融131-2周六14:00-15:30工管131-2、旅游131周六15: