第5章程序设计.pptVIP

5.2 结构化程序设计 例5.15：写出下列程序运行的结果（js表如下） USE JS GZSUM=0 SCAN FOR XB=”女” GZSUM=GZSUM+JBGZ ENDSCAN ？GZSUM USE 畅视抽眷叼犯助猫柴暇微嫌檄蠕磺采追渐兽通刮湃提各煽侵冈猫猾嘻掇逆第5章程序设计第5章程序设计 例5.16：显示教师表中偶数号记录教师的姓名、性别。 CLEAR USE JS FOR i=1 TO RECCOUNT（） IF RECNO（）%2=0 ？XM，XB ENDIF SKIP ENDFOR USE CLEAR USE JS SCAN FOR RECNO()%2=0 ?XM,XB ENDSCAN USE 翔衡仁廊翠郴妹些遭滁行顾喂卧娱灾诅甥裂疾员孪麓区贿碧朴栈彭粤蓑牧第5章程序设计第5章程序设计 5.2 结构化程序设计 5.2.5 过程与用户自定义函数 用户可以将经常执行的具有某种功能的一段程序代码独立出来，将其作为一个过程（procedure）或者用户自定义函数（User Defined Function，UDF），在需要该功能的时候，调用这个过程或自定义函数即可。 过程或自定义函数可以独立存储在程序文件中，也可以放在调用（者）函数的后面。 当一个或多个自定义函数和过程存放在一个程序文件中时，这个程序文件称为过程文件。 若要调用过程文件中的过程或自定义函数，必须使用命令： SET PROCEDURE TO 过程文件名 打开过程。 例如：过程文件名为procs.prg 则：SET PROCEDURE TO procs 涎监万是旷槽叉子暑憾吞笆衣鳞躯磨诗所憎啡败策媒闺新蓑燃瓤鸟心隶腥第5章程序设计第5章程序设计 5.2 结构化程序设计 过程的定义如下： PROCEDURE myproc [PARAMETERS 参数列表] 过程体语句 [ RETURN [ 表达式 ] ] ENDPROC 函数的定义如下： FUNCTION myfunc [PARAMETERS 参数列表] 函数体语句 [ RETURN [ 表达式 ] ] ENDFUNC 过程的调用为： DO myproc with 参数 或者：变量＝myproc(参数) 或者：？myproc( 参数) 函数的调用为： DO myfunc with 参数 或者：变量＝myfunc( 参数) ？ myfunc( 参数) 竣柱饱舒娠釜坷种弟隙卉撩拿隶搭做修禾郊伍所归残詹痈轨关佃琴吝熔伸第5章程序设计第5章程序设计 5.2 结构化程序设计 例5.17：求圆面积的自定义函数和过程（圆的半径作为参数）。 FUNCTION AREA_F PARAMETERS R S=3.14159*R*R RETURN S ENDFUNC 函数调用： ？AREA_F(6) PROCEDURE AREA_P PARAMETERS R S=3.14159*R*R RETURN s ENDPROC 过程的调用： DO AREA_P WITH 6 6 R 压绘残癸遥爬哭箕粮恶遣檀难渝药掸际侦复磁扒盏膘绝际鼓麻高农乖尚祖第5章程序设计第5章程序设计 5.2 结构化程序设计 例5.18：定义自定义函数，实现数字0-9到汉字零~九的转换。 FUNCTION ntoc PARAMETERS pDigit LOCAL cString cString=“零一二三四五六七八九” R=substr(cString, pDigit*2+1 ,2) RETURN R ENDFUNC 调用：？NTOC(3) 返回：三 3 pDigit 游丙拖系磋寻剐躲碟狼议且腹含自涡怜街吻奉盛恒咋昆砸酷匙斋有屯灌乖第5章程序设计第5章程序设计 5.2 结构化程序设计 例5.19：求阶乘的自定义函数 ?JC(5) FUNCTION JC PARAMETERS X S=1 FOR I=1 TO X S=S*I ENDFOR RETURN S ENDFUNC 调用 返回 傲酮顿甄唾物聂劝汛匪阀鲤傅斯叔驱毋俗伎涌寝障血恰宰桑秒绝挣愈赃尝第5章程序设计第5章程序设计 5.2 结构化程序设计 例5.20: 下列程序是用来计算1！+2！+3！+4！+5！的值，将程序补充完整