- 1、本文档共9页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 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
您可能关注的文档
- 第九篇 动态双组合功能.ppt
- 第四章第四章细胞膜及细胞表面细胞膜及细胞表面.pdf
- 8第八篇 电机驱动模块.docx
- 第4篇--窗体——Access的“查询界面”-考勤管理.ppt
- 用ARCGIS 10 CAD等高线转为DEM教程.docx
- 终端促销的策划、实施及评估.pptx
- 第三篇 神州数码DCFW-1800系列防火墙配置.pdf
- 生物素标记与化学发光检测技术在核酸杂交与EMSA中的应用.ppt
- 11-Unity Pro标准功能块库-2006-CN.pdf
- 荔枝花蜜腺的结构发育特点和其生物学意义.pdf
- 2024年江苏省无锡市笔试辅警协警真题(附答案).docx
- 2024年邯郸市临漳县选聘教师考试真题(附答案).docx
- 2025年质量员继续教育题库考试题库带答案.docx
- 2025年“保密知识测试”考试复习题库及答案指导.docx
- 2025年“保密知识测试”考试试题库(答案+解析).docx
- 2024年山东省济南市【辅警协警】笔试真题(附答案).docx
- 2025年“保密知识测试”考试试题库及答案解析.docx
- 2024年甘肃省白银市笔试辅警协警真题(附答案).docx
- 2025年《医疗器械经营监督管理办法》培训知识题库附含参考答案.docx
- 2025年保密教育线上培训考试题+答案.docx
文档评论(0)