(第20届胜利油田学生信息学奥林匹克竞赛.docxVIP

第20届胜利油田学生信息学奥林匹克竞赛小学组Pascal语言试题单项选择。（每小题1.5分，共15分）下面是某同学定义的变量名，合符Pascal语法的是（）。A．integerB. x1B. 2xD. x*y2．假定所有变量均为实型，算式的正确Pascal表达式是（）。A.(u+a)/((b-v)/(c-w)+u*d)B. (u+a)/(b-v)/(c-w)+u*dC. u+a/b-v/c-w+u*dD. (u+a)/((b-v/c-w)+u*d)3. 有如下的变量说明：varx,y,z:integer;a:real;则下面的赋值语句中正确的是（）A．x=y div 7;B. x:=y/z; C. a:=x*y;D. x+y:=z;4. 设a,b,c,d均为整型变量，对于下面的程序段a:=0;b:=0;readln(a,b);read(c);readln(d);若从键盘输入：1 CR2 3 4 CR5 6 7 CR其中，CR表示“回车”，则a,b,c,d中的数应为下面哪一组？（）A.1,2,3,4 B.1,2,3,5 C.1,2,5,6 D.1,0,3,5 5. 设n为整型变量，且n:=1997，下面能将n的十位数字（即右边第2位数字）分离出来的语句是（）。A. d:=n mod 100B. d:=n div 100; C. d:=n div 100 mod 10;D. d:=n mod 100 div 106.“判断一个整数x是另一整数y的整数倍”的pascal表达式是（）。A．x=2*yB. x/y=2 C. x mod y=0D. x mod y=17. Pascal表达式“2008 div 5 mod -2”的结果是：A. 8B. -1C. 0D. 18. 设实型变量pi已赋值为3.14159，下面不能输出3.14的语句是( )。A. write(pi:0:2);B. writeln(pi:1:2);C. write(pi:2:2);D. writeln(pi:2);9．下列程序段的输出结果是（）。Varx,s:integer;Beginx:=2005; s:=0;while x0 do begin s:=s+x mod 10; x:=x div 10;end;writeln(s);end.A. 0B. 7C. 10D.200510．下列程序段执行后能打印两行“Very good!”的是( )：i:=0; repeatwriteln(‘Very good’);i:=i+2; until i=4;B.i:=0; repeatwriteln(‘Very good’);i:=i+2; until i4;i:=0; repeatwriteln(‘Very good’);i:=i+2;until i4;D.i:=0; repeatwriteln(‘Very good’);i:=i+2; until i=5;二、问题求解。（7分）A,B,C,D,E,F 6人参加了小学信息学竞赛，甲、乙、丙、丁四人猜测谁能获得一等奖。甲说：“冠军不是A就是B。”乙说：“冠军绝不是C。”丙说：“D，E，F都不可能是冠军。”丁说：“冠军可能是D，E，F中的一个。”比赛结果公布后发现，这4个人所说的话中，只有一个人的猜测是正确的。谁是第一名呢？________三、写出程序的运行结果。(第1-4小题每题5分，第5小题每题8分，共28分)1．program xx1;vara,b,c,d,sum : integer;beginreadln(a,b,c,d);a := a mod 23; b := b mod 28; c := c mod 33;sum := a * 543 + b * 121 + c * 128 - d;sum := sum + 2005; sum := sum mod 2005;if (sum 0 ) then sum := 2005;writeln(sum);end.输入：283 102 23 320 输出 ____________2．program xx2;vars,i:ingeger;begins:=0;for i:=1 to 100 do if (i mod 3=0)and (i mod 4=0) then s:=s+i;writeln(s=,s)end.3.Vara,b,c,d,e:integer;begin a:=79 ; b:=34; c:=57; d:=0 ; e:=1; if (ac) or (bc) then d:=d+e else if (d+10e) then d:=e+10else d:=a-