高中信息技术 竞赛班第二阶段培训 第七课 过程与函数教案.doc

《高中信息技术 竞赛班第二阶段培训 第七课 过程与函数教案.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、§7过程、函数Pascal语言实现结构化程序设计的主要手段之一是使用子程序——过程及函数，利用过程和函数，把程序中需要多次重复使用，且具有特定功能的程序段，单独编写成一个称为子程序的程序段，它存贮一次，但可以在程序的多个地方被调用，处理不同的数据。§7.1过程（子程序）过程说明的一般形式：procedure<过程名>(<参数表>);(说明部分);begin<语句>;……<语句>;end;其中procedure是保留字，它说明这一段程序是过程，一个过程对应一个procedure。过程名是自定的标识

2、符，程序通过过程名调用这段程序。参数表是用于向过程传递数据的变量的说明。说明部分则是过程内部所使用的变量的说明。请分析下面程序的具体执行过程。programex1;varu,v:integer;procedurep1(x,y:integer);{过程说明}vari,j:integer;beginfori:=1toxdobeginj:=y+i;write(j);end;end;Begin{主程序}u:=6;v:=5;p1(u,v);{过程调用}writeln;u:=u+v;v:=u*v;p1(u,

3、v);{过程调用}write(‘end’);End.分析如下：程序从主程序的执行部分开始①u←6v←5(过程调用)――――――→参数传递：x←u=6y←v=5②p1(u,v)执行过程体，输出：67891011――――――→返回主程序调用处(调用结束)③writeln;④u←6+5＝11v←11*5=55(过程调用)――――――→参数传递：x←u=11y←v=55⑤p1(u,v)执行过程体，输出：5657585960616263646566――――――→返回主程序调用处(调用结束)⑥输出：end以

4、上例子仅说明过程在程序中如何说明和调用，有关参数的传递问题在下面细述：1．无参过程过程中最简单的是无参过程，这种过程的首部只有过程名，而没有参数表部分。【例1】利用过程画一条横线。Programdraws;procedureline;{无参过程}constlength=10;vari:integer;beginfori:=1tolengthdowrite(‘－’);writeln;end;Beginline;writeln(‘Hello!’);line;End.输出：――――――――――Hell

5、o！――――――――――无参过程只能执行一种固定的功能，如调用line过程时，只能固定地画出10个‘－’的横线，如果要在调用时能灵活地画出不同长度的横线，就必须运用有参过程。2．有参过程有参过程可以在每次调用时，根据不同的参数处理不同的数据，更大程度地发挥过程的优越性。【例2】利用过程，按需要画出不同长度的横线。Programdrawline;vari,x,n:integer;procedureline(length:integer);{有参过程，length为形式参数}vari:integer

6、;beginfori:=1tolengthdowrite(‘－’);writeln;end;Beginreadln(n);{n为需要画的横线条数}fori:=1tondobeginreadln(x);{x为每条横线的长度}ifx<0thenline(0)elseifx>100thenline(100)elseline(x);{x为实际参数}end;End.运行结果：3↙5↙―――――-4↙8↙――――――――上例过程是含有参数的过程，在过程说明时，过程名后参数表中的参数称为形式参数，而在调用过程

7、时，过程名后括号中的参数称为实际参数。每次调用过程时，通过实际参数对形式参数进行赋值。实际参数对应于过程说明中的形式参数，实参和形参的个数、类型要一一对应。3．值参数和变量参数有三种类型的参数：值参、变参和无类型参数。①当前面没有保留字var，后跟类型的参数称为值参数；如：procedurelogon(x,y:real);②当前面有保留字var，后跟类型的参数称为变量参数；如：procedureex(varch:char);③当前面有保留字var，但后不跟类型的参数称为无类型参数；如：proce

8、duresw(vara1,a2);这里主要叙述值参数和变量参数。请比较以下程序及运行结果：Programzc;varn:integer;procedureA(x:integer);vari:integer;beginfori:=1toxdowrite(‘－’);writeln;x:=x+10;end;Beginread(n);A(n);writeln(‘n=’,n);End.Programbc;varn:integer;procedureB(varx:integer);vari:integer;