过程与函数.ppt

《过程与函数.ppt》由会员分享，可在线阅读，更多相关《过程与函数.ppt（57页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、2010年冬令营年冬令营过程与函数过程与函数盐城市初级中学盐城市初级中学 谷爱清谷爱清2010年冬令营年冬令营宿舍纪律和卫生情况2010年冬令营年冬令营文件操作文件操作文件操作文件操作1 1、建立关联、建立关联、建立关联、建立关联 assign(inputassign(input,文件名文件名文件名文件名;assign(outputassign(output,文件名文件名文件名文件名););2 2、打开读文件、打开读文件、打开读文件、打开读文件reset(inputreset(input););打开写文件打开写文件打开写文件打开写文件rewrite(outputrewrite(output);

2、);3 3、关闭文件、关闭文件、关闭文件、关闭文件 close(inputclose(input););close(outputclose(output););eoln行结束函数行结束函数eof文件结束函数文件结束函数2010年冬令营年冬令营1 1、一般用数组实现线性表的顺序存储、一般用数组实现线性表的顺序存储2 2、顺序表的基本运算、顺序表的基本运算（1 1）建立线性表）建立线性表（2 2）求线性表的长度）求线性表的长度（3 3）查找一个元素）查找一个元素（4 4）删除一个元素）删除一个元素（5 5）插入一个元素）插入一个元素2010年冬令营年冬令营过程和函数过程和函数程程程程 序序序序 的

3、基本的基本的基本的基本结构结构结构结构顺序结构顺序结构顺序结构顺序结构选择结构选择结构选择结构选择结构循环结构循环结构循环结构循环结构过程和函数过程和函数过程和函数过程和函数说明：说明：程序中可以只有主程序而没有子程序，但不程序中可以只有主程序而没有子程序，但不能没有主程序，也就是说不能单独执行子程序。能没有主程序，也就是说不能单独执行子程序。程程序序设设计计程程序序设设计计的的基基本本思思的的基基本本思思想想：想想：自顶自顶自顶自顶向下、逐步求精向下、逐步求精向下、逐步求精向下、逐步求精程序的模块化程序的模块化程序的模块化程序的模块化2010年冬令营年冬令营一、函数定义及调用一、函数定义及调

4、用nPascal标准函数标准函数绝对值函数绝对值函数abs(x)如：如：y：=abs(-9)求平方函数求平方函数sqr(x)如：如：y：=sqr(5)求平方根函数求平方根函数sqrt(x)如：如：y：=sqrt(100)函数的一般格式是：函数的一般格式是：函数名（参数函数名（参数1，参数，参数2，）函数的调用形式是：函数的调用形式是：y:=函数名（实在参数表）函数名（实在参数表）2010年冬令营年冬令营Programsum(input,output);vari:integer;s:longint;begin例例1：编程求：编程求1222102 的和。的和。s:=0;fori:=1to10dos

5、:=s+sqr(i);writeln(s=,s);end.2010年冬令营年冬令营Programsum(input,output);vari:integer;s:longint;begin例例1：编程求：编程求1222102 的和。的和。s:=0;fori:=1to10dos:=s+sqr(i);writeln(s=,s);end.例例2 2：编程求：编程求1 1！2 2！1010！的和。！的和。fac(i)2010年冬令营年冬令营编写一个求编写一个求n!n!的函数的函数facfac。(注意注意n n的范围的范围)function function fac(n:integer):longint

6、fac(n:integer):longint ;varvar k:integer;k:integer;t:longintt:longint;begin begin t:=1;t:=1;for k:=2 to n do for k:=2 to n do t:=t*k;t:=t*k;facfac:=t;:=t;end;end;函函函函数数数数体体体体函数首部函数首部函数首部函数首部形式参数形式参数形式参数形式参数将函数值传递到函数名中将函数值传递到函数名中将函数值传递到函数名中将函数值传递到函数名中函数的结果类型函数的结果类型函数的结果类型函数的结果类型2010年冬令营年冬令营函数的格式函数的格式

7、function 函数名函数名(形参表）：函数类型；形参表）：函数类型；局部变量说明；局部变量说明；begin 语句语句1；;函数名：函数名：=表达式；表达式；end;函数首部函数首部函数首部函数首部函数体函数体函数体函数体将函数值传递给函数名将函数值传递给函数名在表达式中调用：函数名（实在参数表）在表达式中调用：函数名（实在参数表）在表达式中调用：函数名（实在参数表）在表达式中调用：函数名（实在参数表）如：如：如：如：y=y=fac(nfac(n)facfac为函数名，为函数名，为函数名，为函数名，n n为实参，函数类型为为实参，函数类型为为实参，函数类型为为实参，函数类型为longintl

8、ongint函数值通过函函数值通过函函数值通过函函数值通过函数名传送回调数名传送回调数名传送回调数名传送回调用程序。用程序。用程序。用程序。函数的调用函数的调用2010年冬令营年冬令营Programsum(input,output);vari:integer;s:longint;functionfac(n:integer):longint;vark:integer;t:longint;begint:=1;fork:=2tondot:=t*k;fac:=t;end;例例2 2：编程求：编程求1 1！2 2！1010！的和。！的和。注意：注意：自定义函数要自定义函数要先定义，后使用先定义，后使用b

9、egins:=0;fori:=1to10dos:=s+fac(i);writeln(s=,s);end.函数名将求得的函数值带函数名将求得的函数值带函数名将求得的函数值带函数名将求得的函数值带回调用该函数的程序中回调用该函数的程序中回调用该函数的程序中回调用该函数的程序中2010年冬令营年冬令营例例3 3 编写一个求三个数最大值的函数。编写一个求三个数最大值的函数。function max(a,b,c:real):real;var p:real;begin if ab then p:=a else p:=b;if cp then max:=c else max:=p;end;2010年冬令营年

10、冬令营例例4 4 计算如图所示的多边形面积。计算如图所示的多边形面积。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;a,b,c为三角形的边长为三角形的边长p为半周长，即为半周长，即p=(a+b+c)/2Program ex4(input,output);var b1,b2,b3,b4,b5,b6,b7,s:real;beginreadln(b1,b2,b3,b4,b5,b6,b7);s:=area(b1,b5,b6)+area(b2,b6,b7)+a

11、rea(b3,b4,b7);writeln(s=,s:10:3);end.分析：分析：b1b5b6b2b3b4b7用海伦用海伦公式求三角形的面积：公式求三角形的面积：s=p(p-a)(p-b)(p-c)a,b,c:real):real;area:=sqrt(p*(p-a)*(p-b)*(p-c);2010年冬令营年冬令营函数定义时注意：函数定义时注意：2 2、形参值来源于主程序的调用，只有在执行过程中调、形参值来源于主程序的调用，只有在执行过程中调用了函数，形参才得到具体值并参与运算，得到用了函数，形参才得到具体值并参与运算，得到函数值函数值。3 3、在函数体中至少有一条将在函数体中至少有一条

12、将函数值函数值传给函数名的赋值传给函数名的赋值语句。语句。函数的类型就是函数值的类型，函数值通过函函数的类型就是函数值的类型，函数值通过函数名传送回调用程序。数名传送回调用程序。4 4、函数体内定义的类型、常量、变量等只在本函数内有、函数体内定义的类型、常量、变量等只在本函数内有效，退出函数体后，分配的存储单元被释放。这些量与效，退出函数体后，分配的存储单元被释放。这些量与函数体外的同名变量无关。函数体外的同名变量无关。1 1、使用函数前应先说明。函数以、使用函数前应先说明。函数以functionfunction开头，函数开头，函数名由用户自定义一个标识符，用于存放最终函数值。名由用户自定义一

13、个标识符，用于存放最终函数值。function area(a,b,c:real):real;s:=area(3,4,5)2010年冬令营年冬令营调调 用用 函函 数数 时时 注注 意意：1 1、自定义函数中的形参，不是实际存在的变量，不占用、自定义函数中的形参，不是实际存在的变量，不占用内存单元，只在调用函数时，才临时开辟相应的内存单内存单元，只在调用函数时，才临时开辟相应的内存单元，存放实在参数的值元，存放实在参数的值,形参实质上是实参的一个形参实质上是实参的一个“替身替身”。在调用函数时，实参将值赋给形参，因此实参的个。在调用函数时，实参将值赋给形参，因此实参的个数、类型应与形参一一对应，

14、并且要有确定的值。数、类型应与形参一一对应，并且要有确定的值。2 2、函数调用步骤是：首先在调用程序中计算实参的值，、函数调用步骤是：首先在调用程序中计算实参的值，传送给对应的形参，接着执行函数体，最后将函数值返传送给对应的形参，接着执行函数体，最后将函数值返回给调用程序。回给调用程序。3 3、函数的定义是静态的，若定义后未被调用，则该函、函数的定义是静态的，若定义后未被调用，则该函数永远不会被执行。数永远不会被执行。2010年冬令营年冬令营例例5 5 自定义一个专门求两个自然数的最大自定义一个专门求两个自然数的最大公约数的函数公约数的函数GCD;GCD;functionGCD(x,y:int

15、eger):integer;varn:integer;beginwhilexmody0dobeginn:=x;x:=y;y:=nmody;end;GCD:=y;end;Greatestcommondivisor最大公约数最大公约数2010年冬令营年冬令营作业作业1:1:试定义一个函数试定义一个函数dax(chdax(ch),),能将小写能将小写字母转换为大写字母。字母转换为大写字母。例如：例如：dax(adax(a)=A )=A dax(bdax(b)=B)=Bfunctiondax(ch:char):char;beginif(ch=aandch=z)thendax:=chr(ord(ch)-

16、32);end;ASCII码：码：A65a972010年冬令营年冬令营作业作业2 2：定义一个函数定义一个函数 digit(n,k),digit(n,k),它能将整它能将整数数N N从右边数第从右边数第k k位上的数字取出来。位上的数字取出来。例如：例如：digit(12568,4)=2,digit(1436,6)=0digit(12568,4)=2,digit(1436,6)=0。拓展：拓展：1 1、从左边开始的第、从左边开始的第k k位上的数字位上的数字如何取出？如何取出？2 2、从指定的第、从指定的第k k位开始取位开始取m m个数字如何取个数字如何取出？出？2010年冬令营年冬令营在屏

17、幕上输出如图所示的图形。在屏幕上输出如图所示的图形。programexam;vari,j:integer;beginfori:=1to3dobeginwrite(:(39-i);forj:=1to2*i-1dowrite(*);writeln;end;End.*3939列列列列 *2010年冬令营年冬令营三、过程定义及调用三、过程定义及调用标准过程有：标准过程有：标准过程调用：标准过程调用：read/readln/write/writelnread(a,b,c);自定义过程的格式：自定义过程的格式：procedure 过程名过程名(形参表）；形参表）；局部变量说明；局部变量说明；begin 语

18、句语句1；语句语句2；end;过程首部过程首部过程体过程体2010年冬令营年冬令营过程的作用：过程的作用：可以得到可以得到若干个若干个运算结果；（返回值）运算结果；（返回值）执行一系列的数据处理；执行一系列的数据处理；完成其它与计算无关的操作；完成其它与计算无关的操作；2010年冬令营年冬令营 *在屏幕上输出如图所示的图形。在屏幕上输出如图所示的图形。proceduredraw(n:integer);proceduredraw(n:integer);vari,j:integer;beginfori:=1tondobeginwrite(:(39-i);forj:=1to2*i-1dowrite(

19、*);writeln;end;end;beginmaindraw(3);draw(6);draw(9);fork:=1to5dowriteln(*:39);end.2010年冬令营年冬令营例例6 6：定义一个求三角形面积的过程：定义一个求三角形面积的过程areaarea。procedurearea(a,b,c:real;varm:real);varp:real;beginp:=(a+b+c)/2;m:=sqrt(p*(p-a)*(p-b)*(p-c);end;a a a a、b b b b、c c c c、m m m m四个形式参数四个形式参数四个形式参数四个形式参数,其中其中其中其中a a

20、a a、b b b b、c c c c为值形参，参为值形参，参为值形参，参为值形参，参数数数数m m m m前面有前面有前面有前面有varvarvarvar，是变量形参。该过程被调用后，由是变量形参。该过程被调用后，由是变量形参。该过程被调用后，由是变量形参。该过程被调用后，由变变变变参参参参m m m m将结果传回调用程序将结果传回调用程序将结果传回调用程序将结果传回调用程序。2010年冬令营年冬令营过程定义和调用的注意点：过程定义和调用的注意点：1 1、使用、使用过程前应先定义。以过程前应先定义。以procedureprocedure开开头，头，过程名和函数名一样，由用户自定义，过程名和函

21、数名一样，由用户自定义，所不同的是，过程没有结果类型。所不同的是，过程没有结果类型。2 2、过程的运算结果是通过变参进行传递的。、过程的运算结果是通过变参进行传递的。2010年冬令营年冬令营procedurearea(a,b,c:real;vars1:real);varp:real;beginp:=(a+b+c)/2;s1:=sqrt(p*(p-a)*(p-b)*(p-c);end;b1b1b5b5b6b6b2b2b3b3b4b4b7b7例例7 7 用过程编写程序求如图所示的五边形面积。用过程编写程序求如图所示的五边形面积。三角形的面积通过三角形的面积通过变参变参s1传回主程序。传回主程序。b

22、egin end.sum:=sum+s;readln(b1,b2,b3,b4,b5,b6,b7);sum:=0;area(b1,b5,b6,s);area(b2,b6,b7,s);sum:=sum+s;area(b3,b4,b7,s);sum:=sum+s;writeln(sum=,sum:10:3);2010年冬令营年冬令营函数调用出现在表达式函数调用出现在表达式中中函数值是通过函数名函数值是通过函数名传回调用程序传回调用程序目目 的的为了求一个函数值为了求一个函数值结果类型结果类型无类型，不能给过无类型，不能给过程赋值程赋值函数有类型，最终要将函数有类型，最终要将函数值传送给函数名。函数值

23、传送给函数名。调用方式调用方式由独立的过程调由独立的过程调用语句来完成用语句来完成返回值返回值的方法的方法通过变参将运算的通过变参将运算的结果传给调用程序结果传给调用程序过过程程函函数数函数和过程的主要区别：函数和过程的主要区别：完成一系列的数据完成一系列的数据处理，或与计算无处理，或与计算无关的各种操作关的各种操作2010年冬令营年冬令营四、变量及其作用域四、变量及其作用域例例8看程序写结果看程序写结果programex8(input,output);varm:integer;proceduretest1;beginm:=100;end;beginm:=5;writeln(m=,m);tes

24、t1;writeln(m=,m);end.分析：分析：m为全程变量。在整为全程变量。在整个程序的执行过程中个程序的执行过程中都是有意义的。都是有意义的。在程序开头的说明部分说明的量称为全程变量全程变量。2010年冬令营年冬令营例例9 读程序写结果。读程序写结果。Programex9(input,output);varm:integer;proceduretest2;varm:integer;beginm:=100;end;beginm:=5;writeln(m=,m);test2;writeln(m=,m);end.结果为：结果为：m=5m=5过程中的过程中的m是局部变量，是局部变量，结果被屏

25、蔽，它不影响到结果被屏蔽，它不影响到全程变量全程变量m的值。的值。2010年冬令营年冬令营全程变量和局部变量比较：全程变量和局部变量比较：全程变量：在程序开头的说明部分被说明全程变量：在程序开头的说明部分被说明 作用域作用域：整个程序；：整个程序；局部变量：在过程体和函数体内被说明局部变量：在过程体和函数体内被说明 作用域作用域：所在子程序。：所在子程序。全程变量的作用域分两种情况：全程变量的作用域分两种情况：当全程变量和局部当全程变量和局部变变量不同名时，其作用域是整个程序。量不同名时，其作用域是整个程序。当当全全程程变变量量和和局局部部变变量量同同名名时时，全全程程变变量量的的作作用用域域

26、不不包包含含局部局部变变量的作用域。量的作用域。当局部变量所在子程序被调用时，局部变量才被分配有效当局部变量所在子程序被调用时，局部变量才被分配有效的存储单元；当返回调用程序时，局部变量所占的存储单元就的存储单元；当返回调用程序时，局部变量所占的存储单元就被释放。被释放。2010年冬令营年冬令营作业作业3:3:看程序写结果看程序写结果programex10(input,output);vara,b,c:integer;procedurepro;varc:integer;begina:=1;b:=2;c:=3;end;begina:=100;b:=200;c:=300;writeln(a,b,c

27、);pro;writeln(a,b,c);end.结果：结果：100200300123002010年冬令营年冬令营五、参数的传递五、参数的传递函数调用和过程调用的一般步骤：函数调用和过程调用的一般步骤：实参和形参集合实参和形参集合执行函数体和过程体执行函数体和过程体返回调用处继续执行返回调用处继续执行参数参数形参形参实参实参值形参值形参变形参变形参function fac(x,y:integer):real;procdure fac(var x,y:integer);a:=fac(5,6);值形参值形参值形参值形参类似于局部变量，仅为过程和函数的执行提类似于局部变量，仅为过程和函数的执行提类似

28、于局部变量，仅为过程和函数的执行提类似于局部变量，仅为过程和函数的执行提供初值而不影响调用时实际参数的值。供初值而不影响调用时实际参数的值。供初值而不影响调用时实际参数的值。供初值而不影响调用时实际参数的值。需要过程向调用程序返回值时，应采用需要过程向调用程序返回值时，应采用需要过程向调用程序返回值时，应采用需要过程向调用程序返回值时，应采用变形参变形参变形参变形参，对变，对变，对变，对变形参操作实际上就是对实参本身的操作。形参操作实际上就是对实参本身的操作。形参操作实际上就是对实参本身的操作。形参操作实际上就是对实参本身的操作。2010年冬令营年冬令营Program ex11_1(input

29、,output);var a:integer;procedure sum(b:integer);begin b:=b+10;writeln(b=,b);end;begin a:=10;sum(a);writeln(a=,a);end.运行结果为：运行结果为：b=20a=10Program ex11_2(input,output);var a:integer;procedure sum(var b:integer);begin b:=b+10;writeln(b=,b);end;begin a:=10;sum(a);writeln(a=,a);end.运行结果为：运行结果为：b=20a=20b为

30、值参为值参b为变为变参参a a为实参为实参2010年冬令营年冬令营Program ex12(input,output);var x,n:integer;procedure chan(x:integer;var y:integer);begin x:=x+5;y:=y+5;writeln(x=,x,y=,y);end;begin x:=10;n:=10;writeln(x=,x,n=,n);chan(x,n);writeln(x=,x,n=,n);end.结果为：结果为：x=10 n=10 x=15 y=15x=10 n=15作业作业4:4:看程序写结果看程序写结果.2010年冬令营年冬令营读读

31、读读下列程序体会子程序的功能：下列程序体会子程序的功能：下列程序体会子程序的功能：下列程序体会子程序的功能：program ex3_1(input,output);var x,y:integer;procedure swap1;var t:integer;begin t:=x;x:=y;y:=t;end;begin x:=10;y:=20;writeln(x=,x,y=:6,y);swap1;writeln(x=,x,y=:6,y)end.program ex3_2(input,output);var x,y:integer;procedure swap2(var x,y:integer);v

32、ar t:integer;begin t:=x;x:=y;y:=t;end;begin x:=10;y:=20;writeln(x=,x,y=:6,y);swap2(x,y);writeln(x=,x,y=:6,y)end.2010年冬令营年冬令营值值参与变参的区别：参与变参的区别：1、传值：为值参分配存储单元，过程体内对值参的操作不、传值：为值参分配存储单元，过程体内对值参的操作不影响实参的值。一旦过程体执行结束后，系统将收回值参影响实参的值。一旦过程体执行结束后，系统将收回值参所占用的存储单元，值参的值也就不再存在。所占用的存储单元，值参的值也就不再存在。2、变参是传地址：变参所占用的存储

33、单元中存放的是实参、变参是传地址：变参所占用的存储单元中存放的是实参的地址，因此对变参的操作就是对实参的操作。一旦过程体的地址，因此对变参的操作就是对实参的操作。一旦过程体执行完毕，系统将收回变参所占用的存储单元，但运算结果执行完毕，系统将收回变参所占用的存储单元，但运算结果已保留在对应的实参中。已保留在对应的实参中。比较：形比较：形参参种类不同决定了实参的单、双向传递。值参实现种类不同决定了实参的单、双向传递。值参实现单向传递，仅将过程外部的值传递给过程，故称为输入参数，单向传递，仅将过程外部的值传递给过程，故称为输入参数，它所对应的实在参数可以是常量、变量或表达式；变参实现它所对应的实在参

34、数可以是常量、变量或表达式；变参实现的是双向传递，除了将过程外部的值传递给过程外，更重要的是双向传递，除了将过程外部的值传递给过程外，更重要的是它能将过程中变化的形参值带出来，故又称为输出参数，的是它能将过程中变化的形参值带出来，故又称为输出参数，其对应的实参必须是变量。其对应的实参必须是变量。实参实参值参值参过程过程实参实参变参变参过程过程2010年冬令营年冬令营Programex14(input,output);vara1,a2,d1,d2:real;z1,z2:integerprocedurefen(x:real;varn:integer;varp:real);beginn:=trunc

35、(x);p:=x-n;end;beginwrite(inputa1,a2);readln(a1,a2);fen(a1,z1,d1);writeln(a1:8:3,z1:8,d1:8:3);fen(a2,z2,d2);writeln(a2:8:3,z2:8,d2:8:3);end.结果为：结果为：作业作业5:5:看程序写结果看程序写结果.input a1,a2:18.56 124.78 18.56 18 0.560124.78 124 0.780 x为值参数为值参数n,p为变量参数为变量参数18.56124.782010年冬令营年冬令营六、子程序的嵌套六、子程序的嵌套一个函数或过程可能要求调用另

36、一个函数或过一个函数或过程可能要求调用另一个函数或过程，这种调用称为函数或过程的嵌套。程，这种调用称为函数或过程的嵌套。例例14 求组合数求组合数C +C 的和。的和。3 36 65 59 9C =mmn nn!m!(n-m)!分析：分析：1、n!=n*(n-1)*2*1 用用fac函数实现。函数实现。2、组合用、组合用cnm函数实现，在函数实现，在cnm函数中调用函数中调用fac函数。函数。3、被调用的函数写在调用它的函数前面。、被调用的函数写在调用它的函数前面。2010年冬令营年冬令营programex14-1(input,output);programex14-1(input,outpu

37、t);varvars:real;s:real;functionfunctionfac(k:integer):realfac(k:integer):real;varvari,fa:integeri,fa:integer;beginbeginfafa:=1;:=1;fori:=2tokdofori:=2tokdofafa:=:=fafa*i;*i;facfac:=:=fafa；end;end;functionfunctioncnm(n,m:integer):realcnm(n,m:integer):real;beginbegincnmcnm:=:=fac(n)/(fac(mfac(n)/(fac(

38、m)*)*fac(n-mfac(n-m););end;end;求求求求k!k!函函函函数数数数求求求求组组组组合合合合函函函函数数数数调用调用fac函数函数主主主主程程程程序序序序begins:=cnm(6,3)+cnm(9,5);writeln(s=,s:6:0);end.2010年冬令营年冬令营主主主主程程程程序序序序函函数数函函数数cnmcnm 开始开始开始开始调用调用cnm(6,3)函函函函数数数数f a cf a c调用调用调用调用fac(6)fac(6)返回返回返回返回调用调用调用调用fac(3)fac(3)返回返回返回返回调用调用调用调用fac(6-3)fac(6-3)返回返回返

39、回返回返回返回返回返回继续执行主程序继续执行主程序继续执行主程序继续执行主程序调用调用cnm(6,3)执行的流程执行的流程2010年冬令营年冬令营programex14-2(input,output);vars:real;functioncnm(n,m:integer):real;functionfac(k:integer):real;vari,fa:integer;beginfa:=1;fori:=2tokdofa:=fa*i;fac:=faend;begincnm:=fac(n)/(fac(m)*fac(n-m);end;begins:=cnm(6,3)+cnm(9,5);writeln(

40、s=,s:6:0);end.主程序主程序注意：注意：函数函数facfac是嵌套在函数是嵌套在函数cnmcnm中的，因此主程序只中的，因此主程序只能调用能调用cnmcnm函数，而不能函数，而不能调用函数调用函数facfac。2010年冬令营年冬令营七、综合应用七、综合应用分析分析：完全数：因子之和完全数：因子之和(自身除外）等于它本身的自身除外）等于它本身的自然数，如自然数，如 6=1+2+3 6=1+2+3；定义一个布尔型函数判断一个数是否为定义一个布尔型函数判断一个数是否为完全数，若是则返回完全数，若是则返回truetrue，否则返回否则返回falsefalse；从从A A到到B B逐个调用

41、该函数判断。逐个调用该函数判断。例例15 15 求正整数求正整数A A和和B B之间的完全数（之间的完全数（ABAa0):);readln(a,b);writeln(listofallperfectnumbers:);fori:=atobdoifperfect(i)thenwriteln(i:8)end.2010年冬令营年冬令营例例1616：凡满足：凡满足X X2 2+Y+Y2 2=Z=Z2 2的正整数（的正整数（X X，Y Y，Z Z）称为一称为一组勾股数。编程找出组勾股数。编程找出100100以内的所有勾股数。以内的所有勾股数。分析：判断分析：判断分析：判断分析：判断X X X X，Y Y

42、 Y Y，Z Z Z Z是否为一组勾股数是否为一组勾股数是否为一组勾股数是否为一组勾股数1 1 1 1、先找一组、先找一组、先找一组、先找一组X X X X、Y Y Y Y2 2 2 2、判定判定判定判定 SQRTSQRTSQRTSQRT（X X X X2 2 2 2+Y+Y+Y+Y2 2 2 2）是否为整数，是则是否为整数，是则是否为整数，是则是否为整数，是则X,Y,ZX,Y,ZX,Y,ZX,Y,Z为一为一为一为一组勾股数。组勾股数。组勾股数。组勾股数。所谓勾股数，一般是指能够构成直角三角形三条边的所谓勾股数，一般是指能够构成直角三角形三条边的所谓勾股数，一般是指能够构成直角三角形三条边的所

43、谓勾股数，一般是指能够构成直角三角形三条边的三个正整数三个正整数三个正整数三个正整数(a,b,c)(a,b,c)(a,b,c)(a,b,c)。即即即即a2+b2=c2,a,b,cN a2+b2=c2,a,b,cN a2+b2=c2,a,b,cN a2+b2=c2,a,b,cN 2010年冬令营年冬令营program ex16(input,output);var x,y:integer;function sqrtrue(k:integer):boolean;var i,zs:integer;begin zs:=trunc(sqrt(k);sqrtrue:=false;if sqr(zs)=k t

44、hen sqrtrue:=true;end;begin for x:=1 to 100 do for y:=x to 100 do if sqrtrue(sqr(x)+sqr(y)then if round(sqrt(sqr(x)+sqr(y)6)and(n=0)and(ch=9)dobegink:=k+1;intk:=ord(ch)-ord(0);(?)read(ch);end;readln;ifknthen(?)fori:=kdownto1dobeginintn+i-k:=inti;inti:=0;end;end;2010年冬令营年冬令营procedureadd(vara:arrtype;

45、b:arrtype);vars,k:integer;beging:=0;fork:=ndownto1dobegins:=ak+bk+g;(?)ak:=smod10;g:=sdiv10;end;end;2010年冬令营年冬令营procedureoutdata(a:arrtype);vark:integer;begink:=1;whileak=0dok:=k+1;whilek=ndobeginwrite(ak);k:=k+1;end;writeln;end;2010年冬令营年冬令营beginfori:=1tondobeginai:=0;bi:=0;end;readdata(a);readdata(

46、b);add(a,b);outdata(a);end.2010年冬令营年冬令营思考：思考：高精度处理：要求处理两个高精度的减法。高精度处理：要求处理两个高精度的减法。2010年冬令营年冬令营2010年冬令营年冬令营说明：说明：函数名最好取的有意义，能“见名识意”，而且类型必须符合要求；函数体中至少有一条语句给函数名赋值，即函数是通过函数名来传递返回值的；形式参数相当于自变量，也是有类型的；在一个参数表中也可以有多个参数，特殊情况下也可以没有参数，称为无参函数；functionarea(a,b,c:real):real;函数函数参数（自变量）参数（自变量）返回值（结果）返回值（结果）2010年冬令营年冬令营upcase2007200720072007年年年年NoipNoipNoipNoip普及组阅读程序第四题普及组阅读程序第四题普及组阅读程序第四题普及组阅读程序第四题