实验八过程调用.doc

实验八　过程调用 一、实验目的 1. 掌握过程文件的语法和调用。 2. 掌握自定义函数的定义和调用。 了解参数传递的概念。 掌握私有变量、局部变量和全局变量的定义和使用。 二、预备知识 1.设计子程序 子程序是指能被其他程序调用的程序。通常情况下，被调用的称为子程序，调用它的称为主程序。 子程序中必须使用的一条命令是返回命令RETURN，格式为： RETURN[表达式|TO MASTER|TO程序文件名] 功能是返回到调用该子程序的上级程序。 2.参数传递 接收参数的命令有PARAMETERS和LPARMETERS，它们的格式如下： PARAMETERS形参变量1[,形参变量2, ] LPARAMETERS形参变量1[,形参变量2, ] 3.变量的作用域 程序设计离不开变量，如果以变量的作用来分，内存变量分为全局变量、私有变量和局部变量。 4.全局变量 是指在任何模板中都可以使用的变量。 全局变量可用PUBLIC命令建立。 PUBLIC内存变量表 该命令的功能是建立公共的内存变量，并为它们赋初值逻辑假.F.。 5.局部变量 局部变量只能在建立它的模块中使用，不能在上层或下层模块中使用。当建立它的模块程序运行结束时，局部变量自动释放。局部变量用LOCAL命令建立。 LOCAL内存变量表 该命令建立指定的局部内存变量，并为它们赋初值逻辑假.F.。 6.私有变量 在程序中直接使用而由系统自动隐含建立的变量都是私有变量。私有变量的作用域是建立它的模块及其下属的各层模块。一旦建立它的模块程序运行结束，这些私有变量将自动清除。 三、实验内容 1．计算2!+5!-4! （1）将求阶乘的功能设计为子程序。 主程序：使用子程序计算2!+5!-4! CLEAR jc=0 DO jsjc WITH2，jc 调用子程序jsjc，计算2! K2=jc DO jsjc WITH5，jc 调用子程序jsjc，计算5! K5=jc DO jsjc WITH4，jc 调用子程序jsjc，计算4! K4=jc S=k2+k5-k4 ?2!+5!-4!=，s FUNCTIONB 显示结果左对齐 子程序：计算阶乘值 PARAMETERS n，p P=1 For I=2 TO n P=p*I ENDFOR RETURN 返回调用程序 （2）将求阶乘的功能设计为过程：使用过程计算2!+5!-4!的值。 CLEAR jc=0 DO jsjc WITH 2，jc K2=jc DO jsjc WITH 5，jc K5=jc DO jsjc WITH 4，jc K4=jc S=k2+k5-k4 ?2!+5!-4!=，s FUNCTIONB * PROCEDURE jsjc 过程jsjc开始语句 PARAMETERS n，p P=1 FOR i=2 TO n P=p*I ENDFOR RETURN （3）将求阶乘的功能设计为自定义函数：使用自定义函数计算2!+5!-4!。 CLEAR jc=0 S=jsjc(I，jc)+jsjc(5，jc)-jsjc(4，jc) 调用自定义函数计算阶乘 ?2!+5!-4!=，s FUNCTIONB * FUNCTION jsjc 自定义函数的开始语句 PARAMETERS n，p P=1 FOR I=2 TO n P=p*I ENDFOR RETURN p 返回p的值(结果) 四、思考与练习 1．输入下面程序写出运行结果，分析一下全局变量与局部变量的区别。 主程序: SET TALK OFF X=同学们 Y=你们号 ?主程序中X=,X ?主程序中Y=,Y DO SUBPRO 调用子程序 ？返回主程序后X=,X ? 返回主程序后Y=,Y ? 返回主程序后Z=,Z SET TALK ON 子程序SUBPRO.PRG PRIVATE X PUBLIC Z X=100 Y=200 Z=300 ?子程序中X=,X ?子程序中Y=,Y ?子程序中Z=,Z RETURN 2．输入半径，以在主程序中调用过程文件的方式，编写程序求圆面积、圆周长、球体积。