第13课(子程序（过程与函数）).ppt

信息学奥赛培训教程（第13课） 子程序（过程与函数） 我们曾经介绍并使用了pascal提供的各种 标准函数，如ABS,SUCC等等，这些函数为我 们编写程序提供了很大的方便。但这些函数只 是常用的基本函数，编程时经常需要自定义一 些函数。 过程和函数一样，也是子程序。一个过程对应一个需要 完成的任务。 PASCAL中提供了不少标准过程，如：READ，WRITE， ．．．．．．这些标准过程在程序中可以直接调用。但仅仅 这些标准过程还不能满足我们的需要，我们还要自己定义过 程，就象函数一样。函数必须以值的形式返回，而过程不一 定返回一个值，只是执行一个任务而已；函数只能返回一个 值，而过程可以返回不止一个值。 所以函数不能取代过程。 * 子程序 在程序设计中，我们会发现一些程序段在程序的 不同地方反复出现，此时可以将这些程序段作为相对 独立的整体，用一个标识符给它起一个名字，凡是程 序中出现该程序段的地方，只要简单地写上其标识符 即可。 这样的程序段，我们称之为子程序。 函数 例 、计算如图多边形的面积。 从图中可以看出，五边形的面积是三个三角形面积之和。 var b1,b2,b3,b4,b5,b6,b7,s:real; function area(a,b,c:real):real; var p:real; begin p:=(a+b+c)/2; area:=sqrt(p*(p-a)*(p-b)*(p-c)); end; begin {主程序} write( ‘please input b1,b2,b3,b4,b5,b6,b7:’); readln(b1,b2,b3,b4,b5,b6,b7); S:=area(b1,b5,b6)+area(b2,b6,b7)+area(b3,b4,b7); writeln( ‘s=’,s:10:3); end. 三次调用函数 函数的说明 1）函数的说明在程序中的位置 2）函数的使用包括函数的说明和调用 函数 PROGRAM 程序名 （INPUT，OUTPUT）； VAR 主程序变量说明； FOUNCTION 函数名（形参表）：函数类型； VAR 函数变量说明； BEGIN 函数体 END；{FUNCTION} BEGIN 主程序 END .{PROGRM} 自定义的函数在调用前要先说明，在主程序中的位置如下 : 函数 函数定义的一般格式:function 函数名 (形式参数表):类型; {函数首部}  function area(a,b,c:real):real; var 形式参数 p:real; begin p:=(a+b+c)/2; area:=sqrt(p*(p-a)*(p-b)*(p-c)); end; ①函数由首部与函数体两部分组成，函数体与程序体基本相似。 ②函数首部以关键字function开头。③函数名是用户自定义的标识符。 ④函数的类型就是函数值的类型，所求得的函数值通过函数名传回调用它的程序。 函数的作用一般是为了求得一个值。⑤形式参数简称形参，形参即函数的自变量。自变量的初值来源于函数调用。 形参表相当于变量说明 ⑥在函数体的执行部分，至少应该给函数名赋一次值。 ⑦实在参数简称实参。实参的个数必须与函数说明中形参的个数一致，实参的类型与形参 的类型应当一一对应。 函数调用方式与标准函数的调用方式相同。 函数调用的一般格式：　　＜函数名＞　　　或　＜函数名＞（实在参数表） S:=area(b1,b5,b6)+area(b2,b6,b7)+area(b3,b4,b7); 实在参数 实在参数 实在参数 过程 例 、计算如图多边形的面积。 从图中可以看出，五边形的面积是三个三角形面积之和。 var s1,s2,s3,b1,b2,b3,b4,b5,b6,b7,s:real; procedure area(a,b,c:real;var d:real); var p:real; begin p:=(a+b+c)/2; d:=sqrt(p*(p-a)*(p-b)*(p-c)); end; begi