7.3多模块程序.pptVIP

* 7.3 多模块程序 模块是可以命名并相对独立的一个程序段，模块可以是主程序、子程序、函数、过程。它可以被其他模块调用，也可以去调用其他的模块。被调用的模块称为子程序，调用其他模块而没有被其他模块调用的模块称为主程序。 7.3.1 子程序（能够完成一定功能的，独立存在，可供其他程序多次调用。） 1．子程序的建立（与建立程序的方法类似。） 注意：一、每个子程序最好单独用一个文件名保存； 二、主程序和子程序之间有关变量值的传递关系，扩展名都是.PRG。 子程序开头有一句为接收参数语句。 [Parameters 参数1，参数2，…］（参数必须与调用语句中参数对应。） 2．子程序的返回 格式：RETURN [TO MASTER |TO 程序文件名] 功能：该语句放在一个程序的末尾。 说明： RETURN不带参数 ：返回到调用该子程序的主程序的下一条命令语句； RETURN TO MASTER：有多级调用时返回到最高一级调用程序； RETURN TO 程序文件名：将控制权交给指定的程序。 3．子程序的调用 格式：DO 子程序名 [ WITH 参数1，参数2，…］ 功能：在一个程序中调用另一个程序（子程序），参数包括传入参数、返回参数。 说明：调用子程序前，要对给定的参数赋初值。 例1：求 P =１ * ２ * ３ * …… * N 建立主程序： Modi Comm main1.prg clear P=1 input 请输入正整数N的值： to N do sub with N , P ? “结果为:” ， P Return 建立子程序： MODI COMM sub.prg Parameters N , P P=1 for i=1 to N P = P*i endfor Return 7.3 多模块程序 7.3 多模块程序 7.3.2 过 程 过程是被放置在程序文件中，以特定的语句开始又以特定的语句结束的模块。包含一个或多个过程的程序文件称为过程文件。 由于过程文件是集中起来以一个文件的形式独立存储在磁盘上的，调用时作为一个文件一次打开，每个子过程可随时调用，从而大大减少了访问磁盘的次数，可提高程序运行效率。 1．定义过程或过程文件 （1）定义过程 格式： PROCEDURE 过程名 语句序列（过程体） [RETURN[返回值表达式]] [ENDPROC] 7.3 多模块程序 说明： 1）PROCDURE 命令表示一个过程的开始，并命名过程名。 2）过程名必须以字母或下划线开头，可以包含字母、数字和下划线。 3）RETURN命令是过程返回命令，当过程执行到RETURN命令时，控制将转回到调用程序（或命令窗口），并返回表达式的值，若省略表达式，则返回逻辑值.T.。 4）缺省RETURN命令，则在过程结束处自动执行一条隐含的RETURN命令。 5）ENDPROC命令表示一个过程的结束，缺省时，过程结束于下一条PROCEDURE命令或文件结束处。 （2）定义过程文件 格式： PROCEDURE 过程名1 语句序列1 [RETUR0N[返回值表达式1]] [ENDPROC] 建立程序：MODI COMM Main-1.prg CLEAR input “R=” to R S=0 DO P1 with R , S ? “S=”,S RETURN Procedure P1.prg Parameters R , S S=0 S=3.14159*R*R RETURN 主程序和过程在同一文件中 7.3 多模块程序 2．调用过程 调用存放在命令文件里的过程（分两种情况） 1）被所存放的命令文件调用：DO过程名 或 过程名（）。 2）被其他命令文件调用。 步骤： 1）先打开此命令文件：SET PROCEDURE TO 命令文件名 2）然后就可以调用其中的过程：DO过程名 或 过程名（） 3．调用过程文件中的过程 步骤： 先打开过程文件:SET PROCEDURE TO [过程文件1[,过程文件2,…]] [ADDITIVE] 然后就可以调用其中的过程：DO 过程名 或 过程名（） 说明：选用ADDITIVE，并不关闭已打开的过程文件，否则正好相反。 4．关闭过程文件语句 关闭所有已打开的过程文件语句：SET PROCEDURE TO 关闭个别过程文件语句：RELEASE PROCEDURE 过程文件1[,过程文件2,…]???? CLEAR SET PROC to F1 S=0 DO P1 ······· S=0 DO P2 ····