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

信息奥赛培训系列PASCAL课程测试（初中）姓名：_1、 选择题（每小题只有一个正确答案）1、 PASCAL中，条件AB的值可能是 （A）0 （B）1 （C）TRUE 或FALSE （D）-12、 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)5、 下列程序段运行后，变量V的值为_ X:=20； if x=10 then v:=5*x else v:=4*x;（A）100 （B）80 （C）90 （D）706、 语句VAR x：array1.5,1.3 of integer；说明了_个二维下标变量 （A）5 （B）2 （C）8 （D）157、 下列程序段运行后，变量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） 69、 语句For i：=0 to 9 do write(*);执行后，输出*的个数是_ （A）0 （B）9 （C）10 （D）110、求123.10的值，应选用的程序段是_B. p:=1; n:=1;while n=10; writeln(p);D.p:=1;for n:=1 to 10 dop:=p*n;writeln(p);C. p:=1;for n:=1 to 10 do begin p:=p*n;n:=n+1 end;writeln(p);2. program p2;var x,y:integer; begin read(x,y);x:=x+y; y:=x-y; x:=x-y; write(x:3,y:3); end.输入为：10 24输出结果： 二、阅读下面程序，写出各程序的运行结果1、 program p1; BeginWriteln(*:8);Writeln(*:9)Writeln(*:10);输出结果：End.4、Program p4；Var A:integer；Begin For b:=1 to 3 do begin Write( :10-b); For a := 1 to 2*b-1 dowrite(*); writeln;endEnd.输出：3.program p3; var m,y,k:integer; const x:array1.10 of integer =(89,79,86,67,68,54,91,84,92,85);begin y:=1;m:=a1 for k:=2 to 10 do begin if ayak then y:=k;end;writeln(y:5);end. 输出：6. program p6; varx:array1.5 of integer;t,j,i:integer;begin for i:=1 to 5 do readln(xi); for i:=1 to 4 do for j:=i+1 to 5 do if xixj then begin t:=ai; ai:=aj;aj:=t; end;for i:=1 to 5 do write(xi:4);end.输入：56 78 68 74 79 输出：_ 5：program p5；var i,k:1.10; y:array1.10 of integer;begin x：=14562; k:=0; repeat k:=k+1; yk:=x mod 10; x:=x div 10; untile x=0; for i:=1 to k do x:=x+yi; write(x);End.输出结果：7. 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 as (B) akak) and (aks) (D) ans (4)、(A) s (B) an (C) ak (D) n1、程序功能：输入10个实数，求出与其平均值最接近但不大于平均值的数。程序如下：Program ex5;Var A:array1.10 of real; n,k:integer; B,s:real;Begin For n:=1 to 10 do Readln(An);(1) ;For k:=1 to 10 do s:=s+ak;s:=s/10; N:= (2) ;For k:=2 to 10 do If (3) then N:=k;Writeln( (4) );Readln;End.2、 回文算术任给一个3位10进制数abc，算出 abc与cba之和，若该和数不是回文数（从左向右读与从右向左读是同一个数，如123321），再按上述方法求和，以此类推，直到得到回文数或者和数位数超过15位时结束。程序如下：Program p7;Var abc,k,i:integer; x,m，n:longint; y:array1.15 of 0.9; p:boolean;begin readln(abc); X:=abc; repaet k:=0; m:=0; n：=x repeat k:=k+1; yk:=_; x:=x div 10; m:=m*10+yk; untile x=0; x:=n+m; p:=_; for i:=1 to k div 2 do if yiyk+1-i then p:=FALSE; Writeln(m1); Until (_ ) or (_) ; End. 3、适当完善(或修改）程序，使该程序运行后得到如图所示的图形。程序如下：program px; OOOOOO KKKK KKKK OOO OOO KKKK KKKK OOO OOO KKKK KKKK OOO OOO KKKKKKKK OOO OOO KKKK KKKK OOO OOO KKKK KKKK OOOOOO KKKK KKKKconst n=7;Var x,i,j:integer;begin for i:=1 to n do Begin if (i=1) or (_) then write(OOOOOO :8)Else write(OOO OOO); write( KKKK); if i n div 2 then x:=