PASCAL课程测试一(初中).doc

PASCAL课程测试（初中） 姓名：__________________ 选择题（每小题只有一个正确答案） PASCAL中，条件AB的值可能是 （A）0 （B）1 （C）TRUE 或FALSE （D）-1 2、 Real是 类型数据 （A）整数 （B）实数 （C） 布尔 （D） 字符 3、下面个表示中，实数的是________ （A）100 （B）0.1 （C）0 （D）0 4、设实型变量x的值为12.345，若要求按12.345的形式输出，应该使用的输出语句是____ （A）Writeln(x) （B） Writeln(x:6:3) （C）Writeln(x:3:6) （D）Writeln(x:5) 下列程序段运行后，变量V的值为________ X:=20； if x=10 then v:=5*x else v:=4*x; （A）100 （B）80 （C）90 （D）70 语句VAR x：array[1..5,1..3] of integer；说明了________个二维下标变量 （A）5 （B）2 （C）8 （D）15 下列程序段运行后，变量max的值为_______ a:=5;b:=10;max:=a; if bmax then max:=b; （A）5 （B）10 （C）5和10 （D）以上都不是 8、表达式35 div 3 mod 4的值是______ （A） 0 （B） 2 （C） 3 （D） 6 语句For i：=0 to 9 do write(*);执行后，输出‘*’的个数是_______ （A）0 （B）9 （C）10 （D）1 10、求1×2×3×...×10的值，应选用的程序段是______ A. p:=1; for n:=1 to 10 do repeat p:=p*n; n:=n+1 until n=10; writeln(p); C. p:=1; for n:=1 to 10 do begin p:=p*n; n:=n+1 end; writeln(p); 二、阅读下面程序，写出各程序的运行结果 1、 program p1; Begin Writeln(‘*’:8); Writeln(‘***’:9) Writeln(‘*****’:10); End. 3.program p3; var m,y,k:integer; const x:array[1..10] of integer =(89,79,86,67,68,54,91,84,92,85); begin y:=1;m:=a[1] for k:=2 to 10 do begin if a[y]a[k] then y:=k; end; writeln(y:5); end. 输出： 5：program p5； var i,k:1..10; y:array[1..10] of integer; begin x：=14562; k:=0; repeat k:=k+1; y[k]:=x mod 10; x:=x div 10; untile x=0; for i:=1 to k do x:=x+y[i]; write(x); End. 输出结果： program p7； var a,b,c,d:integer; procedure p(a:integer; var b:integer); var c:integer; begin a:=a=1; b:=b+1;c:=2;d:=d+1; write(‘M’,a,b,c,d); if a3 then p(a,b); writeln(‘N’,a,b,c,d); end; begin a:=1;b:=1;c:=1;d:=1; writeln(‘X’,a,b,c,d); p(a,b); writeln(‘Y’,a,b,c,d); end. 三、完整程序 1、程序功能：输入10个实数，求出与其平均值最接近但不大于平均值的数。程序如下： P