5、pascal过程与函数.pptVIP

Pascal语言程序设计 第六章 过程和函数 1.结构化程序设计 判断程序优劣的标准： 正确性 易读性 高效性 结构化程序设计思想的两个基本要点： 自顶向下、逐步求精的设计方法 程序的模块化 第一节 子程序的概念 一、过程和函数统称子程序。 第二节 函数定义及调用 一、Pascal标准函数： abs(x)、sqr(x)、ln(x)等 二、用户自定义函数： 函数定义的格式： function 函数名(形式参数表):函数类型;{函数首部} 局部变量说明 begin 语句1; 语句2; ······ 语句n; 函数名:=表达式; end; 说明 【例2】：求3！+5！+7！的值。 问题分析：编写一个求n！的函数。 function fac(n:integer):integer; var k,t:integer; begin t:=1; for k:=2 to n do t:=t*k; fac:=t; end; 【例3】：计算右图五边形的面积。 program ex3; 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 writeln(‘input b1-b7:’); 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. 第三节 过程定义及调用 一、标准过程： read、readln、write、writeln等 二、用户自定义过程： 过程定义的格式： procedure 过程名(形式参数表);{过程首部} 局部变量说明 begin 语句1; 语句2; ······ {过程体} 语句n; end; 【例4】：定义一个打印表头表尾的过程print. 如：**********Message********** ······ ······ **********Message********** procedure print; var k:integer; begin for k:=1 to 10 do write(‘*’); write(‘Message’); for k:=1 to 10 do write(‘*’); writeln; end; 三、过程调用： 【例3】：计算右图五边形的面积。 program ex3_1; var b1,b2,b3,b4,b5,b6,b7,s,sum:real; procedure area(a,b,c:real;var s:real); var p:real; begin p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c)); end; 四、过程与函数的主要区别： 1．函数往往只为求一个函数值； 过程一般会被设计成求若干个运算结果，完成一系 列的数据处理，或与计算无关的各种操作。 2．函数有类型，最终要将函数值传送给函数名； 过程无类型，不能给过程名赋值。 3．调用方式不同。 函数的调用出现在表达式中； 过程的调用是由独立的过程调用语句实现的。 4．返回值的方法不同。 函数值是通过函数名传回调用程序； 过程则是通过参数将运算的结果传给调用程序。 第四节 变量及其作用域 一、变量的类型： 全程变量和局部变量 【例5】：全程变量的作用域。 program ex5; var m:integer; procedure test1; begin m:=100; end; begin m:=5; writeln(‘before the test1 call,m is:’,m); test1; writeln(‘after the test1