函数和过程练习题.docVIP

选择题： 下列函数首部或过程首部合法的为（ ） A、function total(x:real); B、procedure ab(a,b:real):real C、procedure sum D、function f(var f:real):integer; 2、设有过程首部procedure pro(var x,y:integer); 若a,b为整型变量，其值分别为5,6,则合法的过程调用语句是 A、pro(5,6) B、pro(b-1,2*a-4) C、pro(‘a’,’b’) D、pro(a,b) 3、若有以下程序 program exam1(input,output); var x,y:real; a,b,c:integer; procedure p1(a,b,c:real); var x:integer; begin …… end; begin …… end. 则下列说法中正确的是（ ） A、主程序中x的作用域包含过程p1 B、过程p1中x的作用域包含主程序 C、主程序中x的作用域和过程p1中x的作用域相同D、主程序中x的作用域不包含过程p1 4、若有以下程序 program exam2(input,output); var x,y:real; a,b,c:integer; procedure p2(a,b,c:real); var x:integer; begin …… end; begin …… end. 则下列说法中正确的是 A、y的作用域包含过程p2 B、y的作用域不包含过程p2 C、y的作用域只限于过程p2 D、y的作用域和x的作用域相同 5、program test1(output); var x,y,z:integer; procedure silly1(x:integer; var y:integer); begin x:=5; y:=6; z:=7; writeln(x,y,z) end; begin x:=1; y:=2; z:=3; silly1(x,y); writeln(x,y.z) end. 以上程序运行结果为 A、5 6 7 B、5 6 7 5 6 3 5 6 7 C、5 6 7 D、5 6 7 1 6 7 1 6 3 6、program test2(output); var x,y,z:integer; procedure silly2(x:integer; var y:integer); begin x:=5; y:=6; z:=7; writeln(x,y,z) end; begin x:=1; y:=2; z:=3; silly1(y,x); writeln(x,y.z) end. 以上程序运行结果为 A、5 6 7 B、5 6 7 5 6 3 6 2 3 C、5 6 7 D、5 6 7 1 6 3 1 6 7 7、program prog1(input,output); var x,y:integer; procedure proc1(i1,i2:integer); begin i1:=x+y; i2:=i1*y; end; begin x:=5; y:=10; proc1(x,y); writeln(x,y) end. 以上程序执行后的正确输出是（ ） A、5 10 B、5 150 C、15 150 D、15 10 8、program prog2(input,output); var x,y:integer; procedure proc2(i1:integer, var i2:integer); begin i1:=x+y; i2:=i1*y; end; begin x:=5; y:=10; proc2(x,y); writeln(x,y) end. 以上程序执行后的正确输出是（ ） A、5 10 B、5 150 C、15 150 D、15 10 9、program main(output); var x,m,n:integer: y:real; procedure a (var x:integer; y:real); var m:integer; begin x:=x+1; m:=x+1; y:=m*3; n:=m end; begin x:=8;