1、信息奥赛培训系列1/4 2019/4/18PASCAL 课程测试（初中）姓名：_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:
2、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：array15,13 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
3、 do write(*);执行后，输出*的个数是_ （A）0 （B）9 （C）10 （D）110、求 123.10 的值，应选用的程序段是 _A. p:=1;for n:=1 to 10 dorepeatp:=p*n; n:=n+1until n=10;writeln(p);C. p:=1;for n:=1 to 10 do beginp:=p*n; n:=n+1end;writeln(p);二、阅读下面程序，写出各程序的运行结果1、 program p1; BeginWriteln(*:8);Writeln(*:9)Writeln(*:10);End.D.p:=1;for n:=1 to 1
4、0 do p:=p*n;writeln(p);B. p:=1; n:=1;while nak then y:=k;end;writeln(y:5);end. 输出：5：program p5；vari,k:110;y:array110 of integer;beginx：=14562; k:=0;repeatk:=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; va
5、r b:integer);varc:integer;begina:=a=1; b:=b+1;c:=2;d:=d+1;write(M,a,b,c,d);if ayk+1-i then p:=FALSE;Writeln(m1);Until (_ ) or (_) ;End.选项：(1)、(A) s:=0 (B) s:=1 (C) s:=n (D) s:=a10(2)、 （A）0 （B）1（C）n+1 （D）s(3)、(A) ns (B) akak) and (aks)(D) ans(4)、(A) s (B) an (C) ak (D) n信息奥赛培训系列4/4 2019/4/183、适当完善(或修
6、改）程序，使该程序运行后得到如图所示的图形。程序如下：program px;constn=7;Varx,i,j:integer;beginfor i:=1 to n doBeginif (i=1) or (_) thenwrite(OOOOOO :8)Elsewrite(OOO OOO);write( KKKK);if i n div 2 then x:=4-ielse x:=_ ;write(:x);writeln(KKKK);end;Readln;end.附加题：编程：求出满足下列条件的两位数：将此两位数的各位数字与十位数字进行交换，可以得到一个新的数，要求新数与原数之和小于 100（每行输出 6 个满足要求的数）OOOOOO KKKK KKKKOOO OOO KKKK KKKKOOO OOO KKKK KKKK OOO OOO KKKKKKKKOOO OOO KKKK KKKKOOO OOO KKKK KKKKOOOOOO KKKK KKKK
