pascal-函数及过程例.docVIP

一、简单实例 1．program ex; var i,j:integer; procedure sample(x:integer;var y:integer); X为值参 Y为变参 begin x:=x+2;y:=y+2; end; begin i:=0; j:=0; sample(i,j); i:=i+3;j:=j+5; writeln(i,j); readln; end. 2. 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. 3、4： program ex1; 　　　　　　　　　　　program ex2;var a,b:integer; 　　　　　　　　　var a,b:integer;procedure swap(x,y:integer); 　　　procedure swap(Var x,y:integer) ;var t:integer; 　　　　　　　　　　　var t: