答案:过程及函数.docVIP

  1. 1、本文档共9页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  5. 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  6. 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  7. 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  8. 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
函数与过程 陆平 程序三种基本结构:顺序、分支、循环。理论上用它们可以编写任何程序,实际应用中,还经常用到子程序结构。 (在程序设计中,一些程序段在程序的不同的地方反复出现,能不能把他们变成独立的一段,多次调用?) 基本思想: 自顶向下,逐步求精 程序的模块化 引例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 ab then swap(a,b

文档评论(0)

kehan123 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档