1 / 22

过程与函数二

过程与函数二. 在结构化程序设计中，不但要求程序要采用顺序、分支和循环这几种基本结构，同时，在整个程序设计过程中，要求程序具有模块化. 先回顾一下. 子程序 能使程序的结构清晰、层次分明，增强程序的可读性，使程序易于调试和维护。. 函数. 子程序. 过程. 模块化. 求 n! 的函数 fac. 回顾函数的定义. function fac(n:integer):longint; var k:integer; t :longint; begin t:=1;

avian
Télécharger la présentation

过程与函数二

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. 过程与函数二

  2. 在结构化程序设计中，不但要求程序要采用顺序、分支和循环这几种基本结构，同时，在整个程序设计过程中，要求程序具有模块化在结构化程序设计中，不但要求程序要采用顺序、分支和循环这几种基本结构，同时，在整个程序设计过程中，要求程序具有模块化 先回顾一下 子程序能使程序的结构清晰、层次分明，增强程序的可读性，使程序易于调试和维护。 函数 子程序 过程 模块化

  3. 求n!的函数fac 回顾函数的定义 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; {endfac} 子程序内所用的类型、常量、变量只在子程序内有效，退出子程序后，该单元被释放。

  4. 计算s:=1!+2!+3!+……5!的函数 Program hs_exam1; Var s :longint; function fac(n:integer):longint; var k,t:integer; begint:=1; for k:=2 to n do t:=t*k; fac:=t; end; { 将计算结果值赋给函数，返回调用处 } begin S:=fac(1)+fac(2)+fac(3)+fac(4)+fac(5) ; write(‘s=‘,s); end,. 函数的调用

  5. 通过函数我们可以得到一个计算结果，然而有时我们希望通过一个子程序得到多个计算结果，或者仅仅只想让子程序完成一项任务（比如输出固定格式的结果）而不需要返回任何结果时，我们通常用过程来解决问题。通过函数我们可以得到一个计算结果，然而有时我们希望通过一个子程序得到多个计算结果，或者仅仅只想让子程序完成一项任务（比如输出固定格式的结果）而不需要返回任何结果时，我们通常用过程来解决问题。 我们以前用过的读语句read、readln，写语句write、writeln，实际上都是过程语句，由于他们由Pascal语言系统预先说明的，故称为标准过程。

  6. 自定义过程的格式： Procedure 过程名(形参表）； 局部变量说明； begin 语句1； 语句2； … end; 过程首部 过程体

  7. n!用过程fa来定义。 思考：n!的结果存放在哪里？ Procedure fa(n:integer); var k:integer; begin t:=1; for k:=2 to n do t:=t*k; end; t 在主程序中说明，为全局变量。 n!的结果是如何回传给主程序的？ 是通过t带回主程序的。 是数据传递的又一种方式 注意： 不能给过程名赋值，过程名不能代表任何数据。

  8. Procedure fa(n:integer); 过程调用 fa(5); 函数的调用方式是出现在表达式中，而过程调用是通过一条独立的过程调用语句来实现的。 一般形式为：<过程名>(<实在参数表>); 调用过程通过给出一个过程名，并用实在参数去代替形式参数。     说明：     ①实参的个数、类型必须与形参一一对应；     ②对应于值形参的实参可以是表达式，对应于变量形参的实参只能是变量；     ③调用过程的步骤是：计算实参的值，传送给对应的形参，接着执行过程体，最后返回调用处继续执行。

  9. 求 1!+2!……10! 比较一下 Program jc; Var i:integer; t,s:longint; Procedure fa(n:integer); var k:integer; begin t:=1; for k:=2 to n do t:=t*k; end; Begin s:=0; for i:=1 to 10 do begin fa(i); s:=s+t; end; write(s); End. Program jc; var i:integer;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:=0; for i:=1 to 10 do s:=s+fac(i); write(s); End.

  10. 求三角形面积的函数 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;

  11. 一个求三角形面积的过程area。 Procedure area(a,b,c:real; var mj:real); var p:real; begin p:=(a+b+c)/2; mj:=sqrt(p*(p-a)*(p-b)*(p-c)); end; 过程中数据传送的另一种方式：变量形参 a、b、c、m四个参数,a、b、c为值形参，参数m前面有var，是变量形参。该过程被调用后，由变参mj将结果传回调用程序。

  12. b2 b1 b6 b3 b5 b7 b4 过程调用： 过程名：实在参数表； 例：用过程编写程序求如图所示的五边形面积。 Program dbs; var b1,b2,b3,b4,b5,b6,b7,s,sum,real; Procedure area(a,b,c:real; var mj:real); var p:real; begin p:=(a+b+c)/2; mj:=sqrt(p*(p-a)*(p-b)*(p-c)); end; begin 三角形的面积通过变参mj传回主程序。 readln(b1,b2,b3,b4,b5,b6,b7); area(b1,b5,b6,s); sum:=0; area(b2,b6,b7,s); sum:=sum+s; sum:=sum+s; area(b3,b4,b7,s); sum:=sum+s; writeln(‘sum=‘,sum:10:3); end.

  13. 比较 Program mjg; var b1,b2,b3,b4,b5,b6,b7,s,sum,real; Procedure area(a,b,c:real; var mj:real); var p:real; begin p:=(a+b+c)/2; mj:=sqrt(p*(p-a)*(p-b)*(p-c)); end; begin readln(b1,b2,b3,b4,b5,b6,b7); sum:=0; area(b1,b5,b6,s); sum:=sum+s; area(b2,b6,b7,s); sum:=sum+s; area(b3,b4,b7,s); sum:=sum+s; writeln(‘sum=‘,sum:10:3); end. Program mjh; 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); writeln(‘s=’,s:10:3); End.

  14. Procedure area(a,b,c:real; var mj:real); function area(a,b,c:real):real; 过程 函数 过程和函数的主要区别： 完成一系列的数据处理，或与计算无关的各种操作 操作 往往求一个函数值 函数有类型，最终要将函数值传送给函数名。 无 结果类型 由独立的过程调用语句来完成 函数调用出现在表达式中 调用方式 s:=area(b1,b5,b6) area(b2,b6,b7,s); 返回值的方法 通过变参将运算的结果传给调用程序 函数值是通过函数名传回调用程序

  15. 过程、函数的数据传递 　 在主程序调用子程序时，调用程序（主程序）将数据传递给被调用的过程或函数（子程序），而当子程序运行结束后，结果又可以通过函数名、变参传给调用程序；当然也可以用全局变量等形式实现数据的传递。

  16. 变量及其作用域（全局变量与局部变量） 例1读程序写结果。 m为全局变量。 Program ex1-5(input,output); var m:integer; procedure test1; begin m:=100; end; begin m:=5; writeln(‘m=‘,m); test1; writeln(‘m=‘,m); end. 全局量的作用域有两种情况： 1、在全局变量和局部变量不同名时，其作用域是整个程序。 2、在全局变量和局部变量同名时，全局变量的作用域不包含同名局部变量的作用域。 m=5 结果为： m=100

  17. 例2读程序写结果。 Program ex1-5b(input,output); var m:integer; procedure test2; var m:integer; begin m:=100; end; begin m:=5; writeln(‘m=‘,m); test2; writeln(‘m=‘,m); end. M是局部变量，结果被屏蔽，它不影响到全程变量m的值。 m=5 结果为： m=5

  18. 全局变量：在主程序中被说明 作用域：整个程序； 局部变量：在子程序中被说明 作用域：主程序及其下级的程序。 全程量的作用域分两种情况： ①当全程量和局部量不同名时，其作用域是整个程序。 ②当全程量和局部量同名时，全程量的作用域不包含局部量的作用域。 当局部变量所在子程序被调用时，局部变量才被分配有效的存储单元；当返回调用程序时，局部变量所占的存储单元就被释放。

  19. 练一练： Program ex1-2(input,output); var x,y:integer; procedure change; var x:integer; begin x:=2; y:=2; writeln(x,y); end; begin x:=1; y:=1; writeln(x,y); change; writeln(x,y); end. 结果为： • 1 • 2 • 1 2

  20. 值参 实参 过程 变参 过程 实参 写出下列两个程序的运行结果 1 2 1 2 1 22 1 这两个程序唯一的区别是ex1中将x、y作为值形参，而 ex2中将x、y作为变量形参 ；因此在ex2中对x、y的修改实际上是对调用该过程时与它们对应的变量a、b的修改，故最后，a、b的值为2、1。而ex1中调用swap过程时，只是将a、b的值传递给x、y，之后在过程中的操作与a、b无关。

  21. 完成变量a,b的交换 Program pjh; Var x,y:integer; Procedure swap（var x,y:integer）; var t:integer; begin t:=x;x:=y;y:=t; end; Begin x:=10;y:=20; writeln(‘q’,x,y); swap; writeln(‘h’,x,y); End; Program pjh; Var x,y:integer; Procedure swap; var t:integer; begin t:=x;x:=y;y:=t; end; Begin x:=10;y:=20; writeln(‘q’,x,y); swap; writeln(‘h’,x,y); End; 变量形参 全局变量

  22. 1 A 65 B 66 C D E F G H I J K L M N O P 第十二届全国青少年信息学奥林匹克联赛初赛试题 Program ex403; Const NN=7; Type Arr1=array[0..30] of char; var s:arr1; k,p:integer; function fun1(s:arr1; a:char;n:integer):integer; var j:integer; begin j:=n; while (a<s[j])and(j>0) do dec(j); fun1:=j; end; function fun2(s:arr1; a:char; n:integer):integer; var j:integer; begin j:=1; while (a>s[j])and(j<n) do inc(j); fun2:=j; end; begin for k:=1 to NN do s[k]:=chr(ord('A')+2*k+1); k:=fun1(s,'M',NN)+fun2(s,'M',NN); writeln(k); end. Ord(x)求字符对应的ASCII码 如：Ord(‘A’)=65 Chr(x)求ASCII码对应得字符 如：Chr(65)=’A’ S[1] S[2] S[3] S[4] S[5] S[6] S[7] D F H J L N P dec(j) j=j-1 inc(j) j=j+1

More Related