pascal第6章--函数与过程.pptx

第六章 函数与过程 第一节 函数 第二节  过程 第三节 递推算法 第四节 递 归 前面我们曾经学习了程序设计中的三种基本控制结构（顺序、分支、循环）。用它们可以组成任何程序。但在应用中，还经常用到子程序结构。 通常，在程序设计中，我们会发现一些程序段在程序的不同地方反复出现，此时可以将这些程序段作为相对独立的整体，用一个标识符给它起一个名字，凡是程序中出现该程序段的地方，只要简单地写上其标识符即可。这样的程序段，我们称之为子程序。 子程序的使用不仅缩短了程序，节省了内存空间及减少了程序的编译时间，而且有利于结构化程序设计。因为一个复杂的问题总可将其分解成若干个子问题来解决，如果子问题依然很复杂，还可以将它继续分解，直到每个子问题都是一个具有独立任务的模块。这样编制的程序结构清晰，逻辑关系明确，无论是编写、阅读、调试还是修改，都会带来极大的好处。 在一个程序中可以只有主程序而没有子程序(本章以前都是如此)，但不能没有主程序，也就是说不能单独执行子程序。 Pascal中子程序有两种形式：函数和过程。 第一节 函数 在此之前，我们曾经介绍并使用了Pascal提供的各种标准函数，如Abs(),Sqr()等等，这些系统提供的函数为我们编写程序提供了很大的方便。比如：求sin(1)+ sin(2)+．．．+sin(100)的值。但这些函数只是常用的基本函数，编程时经常需要自定义一些函数。 我们来看看下面一个例子： 求：1！＋2！＋3！＋．．．＋10！＝？ 如果要编写程序，我们看到求阶乘的操作要执行10次，只不过每次所求的数不同。我们想：不至于编写10遍求阶乘的程序吧。我们希望有一个求阶乘的函数，假设为js(x)，那么我们就可以这样求这道题了。 例6.1 Program  ex6_1; var i:integer;         sum:longint; BEGIN sum:=0; for i:=1 to 10 do sum:=sum+js(i); writeln(sum=,sum); END. 现在的问题是：Free  PASCAL没提供js(x)这样一个标准函数，这个程序是通不过的。如果是PASCAL的标准函数，我们可以直接调用，如trunc(x)，ln(x)，sqrt(x)．．．．．．而PASCAL提供给我们的可供直接调用的标准函数不多。没关系，我们编写自己的函数！ 函数的定义 在Pascal中，函数也遵循先说明后使用的规则，在程序中，函数的说明放在调用该函数的程序（主程序或其它子程序）的说明部分。函数的结构与主程序的结构很相似。 函数定义的一般格式： Function 函数名 (形式参数表) : 函数类型; //函数首部 说明部分; begin // 以下是函数体 语句1; … … 语句n; end; 说明： ①函数由首部与函数体两部分组成。 ②函数首部以关键字Function开头，表示子程序是一个函数。 ③函数名是用户自定义的标识符。 ④函数的类型也就是函数返回值的类型，所求得的函数值通过函数名传回调用它的程序。可见，函数的作用一般是为了求得一个值。 ⑤形式参数简称形参，形参即函数的自变量。自变量的初值来源于函数调用。在函数中，形参一般格式如下： 变量名表1:类型标识符1；变量名表2:类型标识符2；… ；变量名表n:类型标识符n。 可见形参表相当于变量说明，对函数自变量进行说明。 ⑥当缺省形参表（当然要同时省去一对括号）时，称为无参函数。 ⑦函数体与程序体基本相似，由说明部分和执行部分组成。 ⑧函数体中的说明部分用来对本函数使用的标号、常量、类型、变量、子程序加以说明，这些量只在本函数内有效，有效范围是局部的。。 ⑨函数体的执行部分由begin开头，end结束，中间有若干用分号隔开的语句，只是end后应跟分号，不能像程序那样用句号.。 ⑩在函数体的执行部分，至少应该给函数名赋一次值，以使在函数执行结束后把函数值带回调用程序，新版本支持用exit(返回值)命令带出返回值。 编写一个阶乘的函数，我们给此函数取一个名字js。 Function js(n:integer):longint; Var i:integer;        s:longint