procedure show(Var a:integer); 形式参数 A 是＿＿＿ 对应的实参必须是变量 变参与实参的关系是传地址 变参可作输入参数，有出口值表示过
程的返回值
例：下列程序的运行结果如何： program ex;
var i,j:integer;
procedure sample(x:integer;var y:integer); begin x:=x+2;y:=y+2; end;
程序 3： Program ex5-8; Var
Total,tatal:lonint; K:integer; Procedure njc(n:longint; var s:longint); Var i:integer; Begin S:=1; For i:=1 to n do S:=s*I; End; {===main===} Begin Total:=0; For k:=2 to 5 do
End; Begin
Write(‘Input 5 numbers : ‘); Readln(n1,n2,n3,n4,n5); T1 := n1; T1 := Max(t1,n2); T1 := Max(t1,n3); T1 := Max(t1,n4); T1 := Max(t1,n5); Writeln(‘Max number : ‘,t1); End. 输入数据：21 45 9 35 7 输出结果为： 2、程序 2 二、program ex7_4;
2.自定义过程：由程序员在程序中定义后再使用。给某个语句序列组成的子程序赋于 一个适当的名字。程序中凡是需要出现这个语句序列的地方，可以简单的写上子程序 的名字。这种完成一个操作的子程序称为过程；子程序的定义称为过程说明。过程说 明由过程首部和过程体组成，其形式如下：
procedure 过程名(形式参数表);-------过程首部 说明部分; begin
练习： 一、写出下列程序运行结果
1、程序1 Program Exam41_a; Var n1,n2,n3,n4,n5,t1 : integer; Function max(x1,x2 : integer) : integer; Begin
If x1>x2 then Max := x1 Else Max := x2;
执行语句; …… end;
例 输出两个数中最大值的过程 procedure largest(a,b:integer); begin if a>b then writeln(a) else writeln(b); end.
上面 largest 过程由两个类型为整型的形式参数:a,b，你向过程传入的两个需要 比较大小的数。
Begin Njc(2*k+1,tatal); Total:=total+tatal;
End; Wrote;m(‘total:=’;total); End.
程序 4：[把一个数转换为二进制、八进制、十六进制] Program ex5-7; Var n:integer; Procedure Turndata(n,a:integer); Var
var x,y:integer; procedure a;
var x:integer; begin
x:=2; writeln('#',x,'#'); writeln('#',y,'#');
end;{of a} begin{main program}
x:=1;y:=2; writeln('*',x,'*'，y); a; writeln('***',x,'***',y); end.
3.无类型变量参数 形式参数表中前面有 var 而后面没有类型的参数。形参是无类型变量，对应的实
参允许为任意类型的变量，但要在子程序中设置的强制类型转换（类型名（无类型变 量参数名）），将无类型变量参数改变为相应类型。
四、全局变量和局部变量的作用域 全局变量是指主程序中说明的变量；局部变量是指过程或函数内说明的变量。 1.全局变量和它的作用域
一样吗？为什么？
例 3 写出下列两个程序的运行结果。 program ex1; var a,b:integer; procedure swap(x,y:integer); var t:integer; begin t:=x;x:=y;y:=t; end; begin a:=1;b:=2; writeln(a:3,b:3); swap(a,b); writeln(a:3,b:3); end.
program ex2; var a,b:integer; procedure swap(Var x,y:integer) ; var t:integer; begin t:=x;x:=y;y:=t; end; begin a:=1;b:=2; writeln(a:3,b:3); swap(a,b); writeln(a:3,b:3); end.
函数和过程―――子程序
1.一个较复杂的问题，可以细化分解为一些相对较小的子问题，可以将每一个子
问题运用一段相对独立的小程序来解决；
2.一些具有相同或功能相似的程序段在程序中的不同位置反复出现，可以将这样
的程序段做成一个整体，用一个标识符给它起一个名字，凡是需要这个程序段的地方
只要简单地引用其标识符即可。
试思考：从键盘中输入 52 上数，请输出中最大的一个。
3、过程的调用：过程在语法上相当于一个语句，所以，调用时，直接写下就行： 过程名(实在参数表); 三、形参和实参
子程序调用(过程调用或函数调用)的执行顺序分为以下几步： 实参和形参结合——〉执行子程序——〉返回调用处继续执行
子程序说明的形式参数表对子程序体直接引用的变量进行说明，详细指明这些参 数的类别、数据类型要求和参数的个数。子程序被调用时必须为它的每个形参提供一 个实参，按参数的位置顺序一一对应，每个实参必须满足对应形参的要求
全局变量是指在程序开头的说明部分定义和说明的量。它的作用域分为两种情况： (1)在全局变量和局部变量不同名时，其作用域是整个程序。 (2)在全局变量和局部变量同名时，全局变量的作用域不包含同名局部变量的作用域。 2.局部变量和它的作用域
凡是在子程序内部使用的变量，必须在子程序中加入说明。这种在子程序内部说 明的变量称为局部变量。局部变量的作用域是其所在的子程序。形式参数也只能在子 程序中有效。因此也属于局部变量。局部变量的作用域分为两种情况： (1)当外层过程序的局部变量名和嵌套过程中的局部变量不同名时，外层过程的局部变 量作用域包含嵌套过程。 (2)当外层过程的局部变量名和嵌套过程内的局部变量名同名时，外层局部变量名的作 用域不包含此过程。
表达式可以出现的地方。而过程调用是一句独立的语句。
例如赋值语句的右边：
X:=函数名(实在参数表);
{X 的类型与函数类型必须一致}
又，如果函数类型是 boolean，则还可以出现在条件语句中，充当条件表达式：
if 函数名(实在参数表) then …… 例：计算|X|的函数
function abs(x:real):real;
begin i:=0; j:=0; sample(i,j); i:=i+3;j:=j+5; writeln(i,j); readln;
end.
X 为值参 Y 为变参
例：阅读下列程序，试分析其运行结果是什么？ Program ex5-6; Var x:integer; Procedure show(a:integer); Begin
A:=7; Writeln(‘A is ’,a:2); Wnd; {========main======} Begin
X:=5; Writeln(‘x is ’,x:2); Show(x); Writeln(‘x is ’,x:2) Readln; End.
再思考：若把上面的过程首部改为：Procedure show(var a:integer);其输出结果还
过程与函数的不同之处 过程和函数虽然在形式上类似，但是它们二者在定义和使用上又有不同之处，总结起来有以下 4 点
中国 PASCAL
1.函数以 FUNCTION 开头，而过程以 PROCEDURE 开头。
学习 中
2.函数是通过函数名返回函数值，在函数形式参数表后面要说明函数（即返回值）的类型。而过程的 结果由参数送回，它可以包括多个结果或无结果（即只是一个动作）。在过程的形式参数表后面无过 程类型说明 3.函数体中至少要包括一个给函数名赋值的语句。而过程不能给过程名赋值，因此过程体可以为空。 4.函数的调用出现在表达式中，而过程的调用必须作为一个单独的语句。
x:array[1..16] of integer; I ,j,k,y:integer, Begin
Writeln(n,’ turn into ’,a,’:’); If n<0 then write(‘-’); J:=abs(n);k:=0; Repeat
K:=k+1; I:=j mod a; J:=j div a; X[k]:=i Until j<=0; For y:=k downto 1 do If x[y]<10 then write(x[y])
ቤተ መጻሕፍቲ ባይዱ
var z:integer;
begin
if x>=0 then z:=x
else z:=-x
abs:=z; end; 函数说明第一行为函数首部。它指明函数名、函数形参信息和函数值的数据类型。 如上面求 x 绝对值的函数说明，函数名是 abs；它有一个值参数 X 为实型；函数值的 数据类型为实型。Turbo Pascal 规定一个函数只能求出一个简单值，所以函数值类型只 能是任何非结构类型。 例：编程实现 Y SH（X）是双曲正弦函数，在 TURB PASCAL 的标准函数中没有该函数，必须由用户 自己说明。由数学知识知：SH（X）=（ex-e-x）/2 Program ex5-10; Var x,y:real; Function sh(x1:real);real; Begin Sh:=((exp(x1)-exp(-x1)))/2; End; {====main====} Begin Write(‘please input X:’); Readln(x); Y:=sqr(x)+sh(x); Writeln(‘y=’,y); End.