高中信息技术奥林匹克信息学竞赛班第七课过程与函数提高第二阶段培训.docVIP

PAGE

PAGE1

过程、函数

Pascal语言实现结构化程序设计的主要手段之一是使用子程序——过程及函数,利用过程和函数,把程序中需要多次重复使用,且具有特定功能的程序段,单独编写成一个称为子程序的程序段,它存贮一次,但可以在程序的多个地方被调用,处理不同的数据.

§7.1过程（子程序）

过程说明的一般形式：

procedure过程名(参数表);

(说明部分);

begin

语句;

……

语句;

end;

其中procedure是保留字,它说明这一段程序是过程,一个过程对应一个procedure.过程名是自定的标识符,程序通过过程名调用这段程序.参数表是用于向过程传递数据的变量的说明.说明部分则是过程内部所使用的变量的说明.

请分析下面程序的具体执行过程.

programex1;

varu,v:integer;

procedurep1(x,y:integer);{过程说明}

vari,j:integer;

begin

fori:=1toxdo

begin

j:=y+i;

write(j);

end;

end;

Begin{主程序}

u:=6;v:=5;

p1(u,v);{过程调用}

writeln;

u:=u+v;v:=u*v;

p1(u,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

以上例子仅说明过程在程序中如何说明和调用,有关参数的传递问题在下面细述：

无参过程

过程中最简单的是无参过程,这种过程的首部只有过程名,而没有参数表部分.

【例1】利用过程画一条横线.

Programdraws;

procedureline;{无参过程}

constlength=10;

vari:integer;

begin

fori:=1tolengthdowrite(‘－’);

writeln;

end;

Begin

line;

writeln(‘Hello!’);

line;

End.

输出：――――――――――

Hello！

――――――――――

无参过程只能执行一种固定的功能,如调用line过程时,只能固定地画出10个‘－’的横线,如果要在调用时能灵活地画出不同长度的横线,就必须运用有参过程.

2．有参过程

有参过程可以在每次调用时,根据不同的参数处理不同的数据,更大程度地发挥过程的优越性.

【例2】利用过程,按需要画出不同长度的横线.

Programdrawline;

vari,x,n:integer;

procedureline(length:integer);{有参过程,length为形式参数}

vari:integer;

begin

fori:=1tolengthdowrite(‘－’);

writeln;

end;

Begin

readln(n);{n为需要画的横线条数}

fori:=1tondo

begin

readln(x);{x为每条横线的长度}

ifx0thenline(0)

elseifx100thenline(100)

elseline(x);{x为实际参数}

end;

End.

运行结果：

3↙

5↙

―――――

-4↙

8↙

――――――――

上例过程是含有参数的过程,在过程说明时,过程名后参数表中的参数称为形式参数,而在调用过程时,过程名后括号中的参数称为实际参数.每次调用过程时,通过实际参数对形式参数进行赋值.实际参数对应于过程说明中的形式参数,实参和形参的个数、类型要一一对应.

3．值参数和变量参数

有三