第7讲程.pptVIP

过 程;过程;（3）参数表中为过程的形式参数，用逗号分隔。过程和函数一样也可以不带形参，此时，只是在主程序调用它时，执行指定的操作。 （4）形式参数的使用主要有值形参与变量形参。 如下例：Procedure FAC（A,B:real; C:integer; var x,y:reaL）; 其中：A,B,C称为值形参，它们与在函数中介绍的形参相同； X,Y称为变量形参，在它们的前面冠有保留字Var； 关于形式参数的有关内容将在后面介绍。 ;2．过程体： 过程体与函数体相同，也包括说明和执行这两个部分。 （1）在过程体内使用的有关常量、变量等必须在过程体的说明部分内加以说明或定义。 （2）在过程体说明的有关量，只有在过程体执行期间有效，当退出过程体后，为这些量分配的存储单元被释放。 （3）过程体的执行部分不能给过程名赋值，因为过程名不能代表任何数据。 二、过程的调用 主程序是通过一条独立的过程调用语句来调用过程的。 调用过程必须给出一个过程名，并用实在参数代替形式参数，一般形式是： 过程名(实在参数表);;对于过程的调用要注意以下几点： （1）调用的过程必须在调用之前进行说明，也就是说必须先说明后调用。 （2）调用过程时，通常是通过值形参给过程提供原始数据，通过变量形参将值带回调用程序。因此我们可以这样来理解：值形参是过程的输入参数，变量形参是过程的输出参数。 （3）仅当在主程序中调用过程时，过程中的语句块才被执行，调用完毕自动返回主程序的调用点，使主程序继续往下执行。因此，过程中的过程定义仅起一个说明作用。;例如，执行下面程序： （1）const x=100; （2）Procedure sub(x:integer); Begin X:=x+200; Write(‘sub x=’,x); End; （3）begin Write(‘x=’,x); End. 执行结果是：x=100 为了说明问题，在程序的前面附加了(1)(2)(3)的标号。从程序的标号来看，虽然程序第(1)标号语句的下一语句的标号是(2)，也就是过程sub的入口点。然而，由于执行该程序时并没有调用sub过程，因此执行完第(1)语句后，程序并不会自动进入从第(2)语句开始的该过程，因而打印出来的结果是x=100。;过程应用举例;程序如下： program aa; var i:integer; b,s:longint; procedure njs(x:integer; var t:longint); var j:integer; begin t:=1; for j:=1 to x do t:=t*j; end; ;1.判断程序运行结果，不准用计算机算，只能用笔算。 program g1; ?? var ???? s,a,b:longint; ?? procedure add(x,y:longint; var sum:longint); ???? var ?????? i:integer; ???? begin ?????? sum:=0; ?????? for i:=x to y do ???????? begin ?????????? sum:=sum+i; ???????? end; ???? end;;2.判断程序运行结果，不准用计算机算，只能用笔算。 program g2; ? var? k:real; ? procedure p(x:real; var y:real); ?? var? z:real; ?? begin ???? z:=x*x+3; ???? y:=y+z; ?? end; ? begin ??? k:=1.0; ??? p(2.0,k); ??? writeln(k:0:2); ? end. 输出:;3.判断程序运行结果，不准用计算机算，只能用笔算。 program g3; ?? var a,b,c:integer; ?? procedure pro; ???? var ?????? c:integer; ???? begin ?????? a:=1; b:=2; c:=3; ???? end; ?? begin ???? a:=100; b:=200; c:=300; ???? pro; ???? writeln(a:5,b:5,c:5); ?? end. 输出:;4.（文件名：g4.pas）将求一个数阶乘的方法设计为一个过程，利用这个过程，求输入的任意的两个数的阶乘和。（N,M8） 测试数据： 输入：一行，两个数之间隔一空格 3 5 输