1、PASCAL-子程序過(guò)程過(guò)程（子程序） 過(guò)程過(guò)程單獨(dú)寫(xiě)成一個(gè)程序段，可以多次調(diào)單獨(dú)寫(xiě)成一個(gè)程序段，可以多次調(diào)用，可以用，可以 通過(guò)參數(shù)處理不同的數(shù)據(jù)。通過(guò)參數(shù)處理不同的數(shù)據(jù)。procedure abc ( x:integer);begin end ;過(guò)程名過(guò)程名參數(shù)表參數(shù)表子程序的內(nèi)容子程序的內(nèi)容過(guò)程過(guò)程（子程序）program ex701; var u,v:integer; procedure p1(x,y:integer); var i,j:integer; begin for i:=1 to x do begin j:=y+i; write(j); end; end;Begin u:=6

2、; v:=5; p1(u,v); writeln; u:=u+v; v:=u*v; p1(u,v); writeln(end);End. 過(guò)程在程序中的位置及調(diào)用過(guò)程在程序中的位置及調(diào)用過(guò)程過(guò)程（子程序） 無(wú)參過(guò)無(wú)參過(guò)程程Program draws; procedure line; const length=10; var i : integer; begin for i:=1 to length do write(); writeln; end;Begin line; writeln ( Hello ! ); line;End. 輸出輸出： Hello！ 過(guò)程過(guò)程（子程序） 有參過(guò)程有參過(guò)程

3、Program draws; procedure line(length:integer); var i : integer; begin for i:=1 to length do write(); writeln; end;Begin line(10); writeln ( Hello ! ); line(8); line(5);End. 輸出輸出： Hello！過(guò)程過(guò)程（子程序） 參數(shù)：值參、參數(shù)：值參、變參變參procedure line ( x : integer );值參值參procedure line ( var y : integer );變參變參過(guò)程過(guò)程（子程序） 值參和變參

4、的區(qū)值參和變參的區(qū)別別Program zc; var n:integer; procedure A (x:integer); var i:integer; begin for i:=1 to x do write(); writeln; x:=x+10; end;Begin read(n); A(n); writeln(n=,n);End. 輸入：輸入：5 5 輸出：輸出：n=5n=5 55x=155nx5復(fù)制復(fù)制值參值參15過(guò)程過(guò)程（子程序） 值參和變參的區(qū)值參和變參的區(qū)別別Program zc; var n:integer; procedure B (var x:integer); var

5、 i:integer; begin for i:=1 to x do write(); writeln; x:=x+10; end;Begin read(n); B(n); writeln(n=,n);End. 輸入：輸入：5 5 輸出：輸出：n=15n=15 55x=15變參變參xn沒(méi)有開(kāi)新的空間！沒(méi)有開(kāi)新的空間！515過(guò)程過(guò)程（子程序）var a,b:integer;var a,b:integer; x,y:integer; x,y:integer;procedure fun(a,b:integer);procedure fun(a,b:integer);var k:integer;var

6、 k:integer;begin k:=a; a:=b; b:=k; end;begin k:=a; a:=b; b:=k; end;beginbegin a:=3; b:=6; a:=3; b:=6; x:=a; y:=b; x:=a; y:=b; fun(x,y); fun(x,y); writeln(No.1:, a , b ); writeln(No.1:, a , b ); fun(a,b); fun(a,b); writeln(No.2:, a , b ); writeln(No.2:, a , b );end.end. 例：2007年聯(lián)賽第4題 ： 指向內(nèi)存地址指向內(nèi)存地址 ：

7、該地址的內(nèi)容該地址的內(nèi)容輸出：No.1: 3 6No.2: 3 6忘了值參值參過(guò)程過(guò)程（子程序） 全局變量和局部全局變量和局部變量變量在主程序說(shuō)明的為全局變量；在主程序說(shuō)明的為全局變量；在子程序說(shuō)明的為局部變量；在子程序說(shuō)明的為局部變量； 當(dāng)全局變量和局部變量同名時(shí)，當(dāng)全局變量和局部變量同名時(shí)，子程序中的變量不影響全局變量。子程序中的變量不影響全局變量。僅在該子程序中有效僅在該子程序中有效過(guò)程過(guò)程（子程序）Program same; var x:integer; procedure let; var x:integer; begin x:=1; writeln(x); end;Begin x:

8、=0; let; writeln(x);End. 全局變量和局部變量全局變量和局部變量同名同名運(yùn)行結(jié)果：運(yùn)行結(jié)果：輸出：輸出： 1 0 局部變量局部變量全局變量全局變量計(jì)算機(jī)內(nèi)存：計(jì)算機(jī)內(nèi)存：全局全局x局部局部x (let過(guò)程)函數(shù) 函數(shù)：和過(guò)程類似，都是獨(dú)立的程序段，不同函數(shù)：和過(guò)程類似，都是獨(dú)立的程序段，不同之處之處 在于它會(huì)返回一個(gè)值。在于它會(huì)返回一個(gè)值。function abc ( x:integer) : boolean;begin abc:=.;end ;函數(shù)名函數(shù)名參數(shù)表參數(shù)表給函數(shù)賦值給函數(shù)賦值函數(shù)類型函數(shù)類型函數(shù)program area; 求五邊形面積求五邊形面積 var L1,L2,L3,L4,L5,L6,L7,s:real; function ts(a,b,c:real):real; 計(jì)算三角形面積計(jì)算三角形面積ts var p:real; begin p:=(a+b+c)/2; ts:=sqrt(p*(p-a)*(p-b)*(p-c); 海倫公式海倫公式 end;Begin read(L1,L2,L3