答案：过程和函数.doc

PAGE  PAGE 9 函数与过程 陆平 程序三种基本结构：顺序、分支、循环。理论上用它们可以编写任何程序，实际应用中，还经常用到子程序结构。 （在程序设计中，一些程序段在程序的不同的地方反复出现，能不能把他们变成独立的一段，多次调用？） 基本思想: 自顶向下,逐步求精 程序的模块化 引例1： 求: s:=3!+4!+5! Program ex(input,output); Var s:longint; Function fac(n:integer): longint; Var k:integer; t:longint; begin t:=1; for k:=2 to n do t:=t*k; 必须有给函数名赋值的过程,将结果传递到函数名 fac:=t; end; begin s:=fac(3)+fac(4)+fac(5); 函数名(实参); writeln(‘s=’,s); end. 为什么要用到子程序呢？什么叫子程序？如何用呢？ 在程序设计中，一些程序段在程序的不同的地方反复出现，此时，我们可以将这些程序段作为相对独立的部分，用一个标识符给它起个名字，凡是程序中出现该段程序段的地方只要简单地写上标识符，这样的程序段，我们称之为子程序。 子程序的使用不仅缩短了程序，节省了内存空间及减少了程序的编译时间，而且有利于结构化程序设计。因为一个复杂的问题总可以分解成若干个子问题来解决，如果子问题仍然很复杂，还可以将它继续分解，直到每个子问题都是一个具有独立任务的模块。这样编制的程序结构清晰，逻辑关系明确，无论是编写、阅读、调试还试修改，都会带来极大得到好处，这就是模块化编程思想。 子程序有两种形式：函数和过程 一、函数 Pascal提供了很多标准函数，如abs（），sqr（）等等，这些直接由系统提供的函数为我们编写程序提供了很大的方便，但这些函数数量有限，编程时我们经常要自己另外定义一些函数。 （一）函数定义： 先定义，后使用。 函数是一个子程序，结构和主程序的结构很相似。 函数定义的一般格式—— Function 函数名 （形式参数表）:类型 说明部分； Begin 语句1; 语句2; …… 语句n End； 说明： ①函数由首部与函数体两部分组成 ②函数首部以关键字function开头，表示子程序是一个函数； ③函数名是用户自定义的标识符； ④函数的类型也就是函数返回值的类型，所求得得函数值通过函数名传回调用它的程序。 ⑤形式参数简称形参,形参即函数的自变量,自变量的初值来源于函数的调用.是与外界进行信息交流. ⑥形参缺省,称无参函数 ⑦在函数体执行部分,至少应该给函数名赋值一次 （二）函数的调用 一般格式： 函数名或函数名（实际参数表） 说明： ①实参的个数必须与函数说明中形参的个数和一次类型完全一致 ②调用函数,实参必须有确定的值 ③函数调用步骤:计算实参的值,然后赋给对应的形参. （三）应用 例2: 求多边形的面积. Program sjx; 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 Readln(b1,b2,b3,b4,b5,b6,b7); S:=area(b1,b5,b6)+area(b2,b6,b7)+area(b3,b4,b7); End; 例3: 自定义一个专门求两个自然数最大公约数GCD. Function GCD(x,y:integer):integer; Var n:integer; Begin While x mod y 0 do Begin N:=x;x:=y;y:=n mod y End; GCD:=y; End; 完整的程序: program gys; var a,b:integer; Function GCD(x,y:integer):integer; Var n:integer; Begin While x mod y 0 do Begin N:=x;x:=y;y:=n mod y End; GCD:=y; End; function swap(a,b:integer):integer; var t:integer; begin t:=a; a:=b; b:=t; end; begin read(a,b); if a