课件PASCAL函数-高要一中信息中心.pptVIP

函数的定义 function 函数名(形式参数表)：类型标识符； [局部变量说明部分] begin 语句; …… 语句 end； 不带形参的函数 Function add2:integer; Var x,y,sum:integer; Begin readln(x,y); sum:=x+y; add2:=sum; End; 带形参的函数例子 Function add1(x,y:integer):integer; Var sum:integer; Begin sum:=x+y; add1:=sum; End; 函数的调用和执行 Program e1; Var x,y:integer; Function add(i,j:integer):integer; Begin add:=i+j; End; Function mul(I,j:integer):integer; Begin mul:=i*j; End; Begin read(x,y); writeln(add(x,y)); writeln(mul(x,y)); end. 过程和函数的区别 过程和函数都为子程序，但也有区别： 1、标识符不同。函数的标识符为FUNCTION，过程为：PROCEDURE。2、函数中一般不用变量形参，用函数名直接返回函数值；而过程如有返回值，则必须用变量形参返回。3、过程无类型，不能给过程名赋值；函数有类型，最终要将函数值传送给函数名。4、函数在定义时一定要进行函数的类型说明，过程则不进行过程的类型说明。5、调用方式不同。函数的调用出现在表达式中，过程调用，由独立的过程调用语句来完成。6、过程一般会被设计成求若干个运算结果，完成一系列的数据处理，或与计算无关的各种操作；而函数往往只为了求得一个函数值。 1、设计一个过程，计算圆的面积。在主程序中输入一个半径值，然后调用该过程，并输出圆的面积。 const pi=3.1415926; var r,s:real; procedure yuan(x:real;var y:real); begin y:=pi*x*x; end; begin readln(r); yuan(r,s); writeln(s=,s:6:2); end. 作业 编写一个函数，根据参数指定的n，计算出函数值x，计算公式如下： * i和j相加 两数相乘 二、过程 2、自定义过程一般定义形式：课本P81 procedure 过程标识符[（形式参数表）]； [变量说明部分] begin [语句部分] end； 过程首部 过程体 方括号内为可选部分 在过程首部的过程标识符之后若无可选部分， 称为无参过程；否则称为带参过程。 过程与程序有相同的块结构形式。 在过程说明中的说明部分可以对过程内使用的常量、变量、行号、类型、过程 和函数进行说明，但它们的作用范围（辖域）只能在过程内，离开过程后，其 所占的内存释放。另外，过程可以通过（形式参数表）与主程序交换信息，即 调用时可以使用不同数据替换这些参数。 1、标准过程：如读语句read( );写语句write( )等 procedure fiveline; var i:integer; begin for i:=1 to 5 do writeln end; procedure nlines(n:integer); var i:integer; begin for i:=1 to n do writeln end; 无参过程，输出5个空行 带参过程，输出n个空行 过程调用 过程名[（实在参数表）] 实在参数若有，是用逗号隔开的变量或表达式，他们必须 与形式参数顺序一一对应，个数相同，类型一致，而实参的名 字与形参取名无关 如：procedure lowterm(var n,d:integer); lowterm(n,d); lowterm(n+d); lowterm(n,n/d); 实参只有一个 第二个实参是实型，而对应的形参是整型 过程调用是一个独立的语句，当执行到该语句时，则将实参中的信息传送 给相应的形参（若有的话），然后转去执行过程说明中的语句，执行完毕 后返回到调用位置 例3：定义一个打印由“＊”组成的三角形的过程，然后，在主程序中输入行数，并调用该过程输出三角形。 ＊ ＊＊ ＊＊＊ ＊＊＊＊ ＊＊＊＊＊ ＊＊＊＊＊＊ Procedure sjx(x:integer