1.下面程序中的过程 proc 的参数表没有给数（填空）programlx22 ；vara,b:integerprocedures proc（---）①beginc:=a+b;d:=a-b;end;begina:=1;b:=2;proc(a,b);writeln(a:2,’,’,b:2);end.则过程 proc 中的参数表为_____a,b:integer___程序的输出是 1， 22.已知函数说明如下function f(n:integer):integer;beginif n=0 then f:=0
else if n>0 then f:=f(n-2)
else f:=f(n+3);end;则函数调用f（5）的值是___0___3.有下列函数说明function ff(a,b,c:integer):integer;vart:integer;begina:=3*a;t:=b div c;ff:=a+4*t;end;则表达式 ff(ff(1,(ff(1,2,3),3),2,3)的值是______题目有问题改成ff(ff(1,ff(1,2,3),3),2,3)，答案是211.设有过程说明如下 procedures gc(x:integer;var y:integer);var z:integer;beginx:=10; y:=12; z:=14;end;执行下列语句后，输出结果为___D__x：=1； y：=2； z：=3；gc (y,x);write(x,y,z);A. 2123
B. 1223C. 10123
D. 1210142.以知有如下函数function area(a,b,c:real):real;var p:real;beginp:=(a+b+c)/2;area:=aqrt(p*(p-a)*(p-b)*(p-c));end;以下函数调用正确的是（ B）A. beginarea(a1,a2,a3); end;B. begins:=area(a1,a2,a3);end;C. begin writeln(area(a1,b1));end;D. begins:=area(a1,a2,a3)+area(a2,a3,a4,a5);end;补充程序1. 交换数据的部分程序段vara,b:integer;x,y:integer;procedure fun(a,b:integr);vark:integer;begin________①k:=a;________②a:=b;________③b:=k;(就是交换a，b的值）write(a:4,b:4);end;2. 递归打印图形（n=4时）12 23 3 34 4 4 4program lx754;varn:integer;procedure print(n:integer);vari:integer;beginif n0 thenbegin________①print(n-1);for i:=1 to ___n_②dowrite(n:3);writeln;end;end;beginwrite(‘n=’);readln(n);print(n);end.判断题：F 1.过程可以这样定义:procedures swap(var m,n:integer):integer;T 2.函数可以这样定义：function sum(x,y:integer):real;T 3.函数定义时必须有给函数名赋值的语句F 4.过程名只是用来标识一个过程，不代表任何数据，所以它没有类型T 5.定义过程是，多个形式参数之间用分号分隔，也可没有参数T 6.定义函数或程序时，相同类型的变量，可以合并说明，参数之间用逗号分隔F 7.函数和过程都需要先定义后调用有些函数本来就有，如sin（），cos（），upsace（）等有些过程也本来就有delete(s,m,n),str(n,s)等F 8.实参和值形参、变量形参之间的数据传递都是单向的怎么没有9？？T 10.标准函数的调用可在不同程序中，而自定义函数只能在定义它的程序中被调用 |
