函数与过的教学演示文稿(本人自己制作)1.pptVIP

计算机程序设计的基本思想;子程序：是指本身不能单独执行，需要其他程序调用才能执行的程序。;函数;;我们来看看下面一个例子：求：1！＋2！＋3！＋．．．＋10！＝？如果要编写程序，我们看到求阶乘的操作要执行10次，只不过每次所求的数不同。我们想：不至于编写10遍求阶乘的程序吧。我们希望有一个求阶乘的函数，假设为JS（X），那么我们就可以这样求这道题了：例2PROGRAM e1(input,output);VAR i:integer;s:real;BEGINs:=0;for i:=1 to 10 do s:=s+js(i);writeln(s=,s);END.现在的问题是：TURBO PASCAL没提供JS（X）这样一个标准函数，这个程序是通不过的。如果是PASCAL的标准函数，我们可以直接调用，如TRUNC（X），LN（X），SQRT（X）．．．．．．而PASCAL提供给我们的可供直接调用的标准函数不多。没关系，我们编写自己的函数！;自定义函数的格式;有　关　说　明;编写一求阶乘的函数。我们给此函数取一名字就叫JS。 fUNCTION js (n: integer) : longint;var i:integer;s:longint;begin s:=1; for i:=1 to n do  s:=s*i; js:=s;end;在本例中，函数名叫JS，只有一个INTEGER型的自变量N，函数JS属LONGINT型。在本函数中，要用到两个变量I，S，在VAR后已加以说明。在函数体中，是一个求阶乘的语句，但有一点要注意：虽然N的阶乘的值在S中，但最后必须将此值赋给函数JS，此时JS不带任何参数。在任何函数中，最后都要把最终结果赋给函数名，因为该函数的结果是靠函数名返回的。在这里，函数的参数N是一个接口参数，说得更明确点是入口参数。如果我们调用函数：JS（3），那么在程序里所有有N的地方N被替代成3来计算。在这里，3就被称为值参。又如：SQRT（4），LN（5），这里的4，5叫值参。而SQRT（X），LN（Y）中的X，Y叫形参。 ;自定义函数的调用;利用前面定义的阶乘函数，求5！，9！。PROGRAM e59(input,outout);VAR a1,a2:longint;function js ( n: integer ):longint;var i:integer;s:longint;begin s:=1; for i:=1 to n do s:=s*i; js:=s;end;BEGIN a1:=js(5); a2:=js(9); writeln(5!=,a1, ,9!=,a2);END.在这个程序中，在主程序的BEGIN之前，我们对函数进行了一次说明，在后面的程序中都可以象标准函数那样直接调用自定义函数了。在FUNCTION语句中，用的是形参N，在主程序调用中，调用函数是用的值参，如：JS（5）；程序执行到这儿会自动将5代入前面的FUNCTION函数中，用5 取代所有的N，最终将结果赋值给JS。所以在A1中一定是5！，A2中是9！。另外，函数不能单独使用，一定要结合主程序才能运行。;如果是求1！＋2！＋3！＋．．．＋10！，则只需把主程序改成：　（先自己思考）;求下图五边形面积，边长及对角形长a1---a7由键盘输入。;求两个正数的最大公约数;过　　程;例1、任意输入3个互不相等的整数a,b,c经过处理之后，让他们满足关系abc分析：　　两两比较，如果某两个变量不满足前者大于后者的要求，就交换其值。在设计程序时，让主程序完成对变量的输入、输出和比较操作，把“交换数据”的操作让过程来完成。程序如下：;过程的有关说明;过程的调用;例2：定义一个打印由“*”号组成的三角形的过程主程序中输入行数，并调用该过程输出三角形。;例3：编写一个求n!的过程，并求出2!+10!的值;以上我们学习了自定义函数和自定义过程，它们都是pascal语言的子程序，都可以完成某种计算或某种操作，二者的结构也差不多，但两者存在许多不同的地方，主要区别有：;参数的传递;写出下面程序的运行结果 ;2、变量形参：是指形式参数表中前面带保留字var的参数。如procedure sum(var s:real);其中s为变量形参。简称变参。如果过程的形参表中引用的是变量形参，那么在调用过程时，就将对应的实参的存储地址传给这个形参，称为“传地址”，所以过程体内对形参的任何操作，实际上就是对相应的实参的操作。应强调的是：;Program lx1(input,output); Var m:integer; P