9512.net
甜梦文库
当前位置:首页 >> 学科竞赛 >>

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



第 20 届胜利油田学生信息学奥林匹克竞赛 小学组 Pascal 语言试题
一、 单项选择。 (每小题 1.5 分,共 15 分) ) 。 B. x1 B. 2x D. x*y ) 。 1. 下面是某同学定义的变量名,合符 Pascal 语法的是( A.integer

2.假定所有变量均为实型,算式

u?a 的正确 Pasca

l 表达式是( b?v ?u?d c?w
B. (u+a)/(b-v)/(c-w)+u*d D. (u+a)/((b-v/c-w)+u*d)

A.(u+a)/((b-v)/(c-w)+u*d) C. u+a/b-v/c-w+u*d 3. 有如下的变量说明: var x,y,z:integer; a:real;

则下面的赋值语句中正确的是( A.x=y div 7;

) C. a:=x*y; D. x+y:=z;

B. x:=y/z;

4. 设 a,b,c,d 均为整型变量,对于下面的程序段 a:=0; b:=0; readln(a, b); read(c); readln(d) ; 若从键盘输入: 1 <CR> 2 5 3 4 <CR> 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 位数字)分离出来 的语句是( ) 。 B. d:=n div 100; D. d:=n mod 100 div 10 ) 。 A.x=2*y

A. d:=n mod 100 C. d:=n div 100 mod 10;

6.“判断一个整数 x 是另一整数 y 的整数倍”的 pascal 表达式是( B. x/y=2 C. x mod y=0 D. x mod y=1

7. Pascal 表达式 “2008 div 5 mod -2”的结果是:

A. 8

B. -1

C. 0

D. 1 )。

8. 设实型变量 pi 已赋值为 3.14159,下面不能输出 3.14 的语句是( A. write(pi:0:2); C. write(pi:2:2); 9.下列程序段的输出结果是( B. writeln(pi:1:2); D. writeln(pi:2); ) 。

Var x,s:integer; Begin x:=2005; s:=0; while x<>0 do begin s:=s+x mod 10; x:=x div 10; end; writeln(s); end. A. 0 A. i:=0; repeat writeln(‘Very good’); i:=i+2; until i=4; B. i:=0; repeat writeln(‘Very good’); i:=i+2; until i>4; 二、问题求解。 (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; var a,b,c,d,sum : integer; D. i:=0; repeat writeln(‘Very good’); i:=i+2; until i=5; B. 7 C. 10 D.2005 ): B. i:=0; repeat writeln(‘Very good’); i:=i+2; until i<4;

10.下列程序段执行后能打印两行“Very good!”的是(

begin readln(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; var s,i:ingeger; begin s:=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. Var a,b,c,d,e:integer; begin a:=79 ; b:=34; c:=57; d:=0 ; e:=1; if (a<c) or (b>c) then d:=d+e else if (d+10<e) then d:=e+10 else d:=a-e; writeln(d); end. 输出:___________________ 4. program xx4; var n,i,a1,a2,a3:integer; begin readln(n); a1:=1; a2:=1;

write(a1:8,a2:8); for i:=3 to n do begin a3:=a1+a2; a1:=a2; a2:=a3; write(a3:8) end; end. 输入:10 输出:______________ 5. program xx5; var p,q,s,t:integer; begin readln(p); for q:=p+1 to 2*p do begin t:=0; s:=(p*q) mod (q-p); if s=0 then begin t:=p+q+(p*q)div(q-p); write(t:4); end; end; writeln; end. 输入:12 输出:_____________ 四、根据题意补充完善程序。(每空 2 分,共 20 分) 1.求满足下列条件的两位数:将此两位数的个位数和十位数字进行互换,可以得到一 个新的数,要求新数与原数之和小于 100(每行输出 6 个满足要求的数) 。 Program xx6; var x1,x2,a,b,k:integer; begin k:=0; for a:=__ ①_ to 99 do begin x1:= ② ; x2:= ③ ;

b:=x1*10+x2; if ④ then begin k:=k+1; write(a:4); if ⑤ then writeln; end; end; end. 2.现在有一批长方形的木板,编程找出面积最大的那块,并输出它的长、宽和面积。 输入要求:从键盘输入长方形的长和宽,当长和宽中有一个值小于等于 0 时结束。 输出要求:输出面积最大的长方形的长、宽和面积。 program xx7; var a,b,c,max,x,y:integer; begin write(‘a,b=’); readln(a,b); ① ; while (a>0) and ② do begin c:=____ ③____; if c>max then begin x:=a; ____④______; max:=c; end; _____⑤______ ; end; writeln(‘Chang=’, x); wrtiteln(‘Kuan=’, y); writeln(‘Mianji=’,max); end.

参考答案
一、选择题。(1.5×10=15 分) 题号 答案 1 B 2 A 3 C 4 C 5 D 6 C 7 D 8 D 9 B 10 A

二、问题求解。 (7 分) 第一名是 C 二、写出程序的运行结果。(5+5+5+5+8=28 分) 1.2005 2.S=432 3.78 4.1 5. 181 1 2 110 3 87 5 76 8 66 13 21 34 55

62 61 60

三、根据题意补充完善程序。(10×2=20 分) 1. ① 10 ② a mod 10 ③ a div 10 ④ a+b<100 ⑤ k mod 6 2. ① max:=0 ② b>0 ③ a*b ④ y:=b ⑤ readln(a,b) 或 read(a,b)



更多相关文章:
第21届胜利油田学生信息学奥林匹克竞赛
第21届胜利油田学生信息学奥林匹克竞赛_学科竞赛_小学教育_教育专区。第 21 届胜利油田学生信息学奥林匹克竞赛 小学组 Pascal 语言试题☆全部试题答案均要求写在答...
第22届胜利油田学生信息学奥林匹克竞赛
第22届胜利油田学生信息学奥林匹克竞赛_学科竞赛_高中教育_教育专区。第 22 届胜利油田学生信息学奥林匹克竞赛 小学组 Pascal 语言试题☆全部试题答案均要求写在答...
胜利油田胜利建设监理有限责任公司学校宣传招聘信息2011(山东大学)
胜利油田胜利建设监理有限责任公司学校宣传招聘信息2011...20 层 电话:0546—8798829 传真:0546—8798826 E-...山东大学2011-2012学年'... 6页 免费 2011山东大学...
更多相关标签:
信息学奥林匹克竞赛    信息学奥林匹克竞赛题    信息学奥林匹克竞赛书    胜利油田    胜利油田吧    胜利油田中心医院    胜利油田第一中学    胜利油田郭长玉自首    

All rights reserved Powered by 甜梦文库 9512.net

copyright ©right 2010-2021。
甜梦文库内容来自网络,如有侵犯请联系客服。zhit325@126.com|网站地图