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)



更多相关文章:
学生信息学奥林匹克竞赛课后练习题
学生信息学奥林匹克竞赛课后练习题_学科竞赛_小学教育_教育专区。金华市小学生信息学奥林匹克竞赛课后练习题(Pascal) 金华思而语学堂信息编程小学组课后作业 01 ...
2015第21届信息学奥林匹克普及组初赛试题
2015第21届信息学奥林匹克普及组初赛试题_学科竞赛_初中教育_教育专区。第二十一21届全国青少年信息学奥林匹克联赛初赛普及组pascal语言试题 ...
信息学奥林匹克竞赛资料(初赛资料)
而自从 1989 年我国参加第一国际信息学奥林匹克 (International Olympiad in Informatics, 简称 IOI)以来,全国青少年计算机程序设计竞赛也更名为全国青少年信息 (...
第十五届信息学奥林匹克初赛试题详解
19、 全国信息学奥林匹克的官方网站为参与信息学竞赛的老师同学们提供相关的信息和资 源,请问全国信息学奥林匹克官方网站的网址是: A) http://www.noi.com/ ...
信息学奥林匹克竞赛试题(2)
所 以田忌通过巧妙的策略赢得了最终的胜利(比齐王多赢一场) ,具体对阵形式如...少儿信息学奥林匹克竞赛... 9页 2下载券 武进区第一中小学生信... 7页...
2014年海淀区中小学生信息学奥林匹克竞赛(上机)
2014年海淀区中小学生信息学奥林匹克竞赛(上机)_营销/活动策划_计划/解决方案_实用文档。2014年海淀区中小学生信息学奥林匹克竞赛2014...
学生信息学奥林匹克竞赛试题
2 小学生信息学奥林匹克竞赛试题 一、 选择(每题 1 分,多选无分,共 20 分) 1、在八进制中,数 773244556 除以 4 的余数是( A 2 B 4 C 6 D 0 ) ...
信息学奥林匹克竞赛初中组(初赛)模拟试题
信息学奥林匹克竞赛初中组(初赛)模拟试题(时间:120 分钟) 班级___ 姓名___ 学号___ 成绩___ 一、选择题: (本题共 20 题,每题 1.5 分,共计 30 分。...
信息学奥林匹克竞赛培训教案
信息学奥林匹克竞赛培训教案 (PASCAL 语言) 第 1 章 计算机的发展与应用 1.1 计算机发展简史 1.1.1 第一台电子计算机的诞生 1946 年,世界上第一台数字式...
2014少年信息学奥林匹克联赛初赛C试题
2014少年信息学奥林匹克联赛初赛C试题_学科竞赛_高中教育_教育专区。第二十届...{ s += 1; a -= 2; NOIP 2014 普及组初赛第 2 页共 7 页 }while(...
更多相关标签:
信息学奥林匹克竞赛    信息学奥林匹克竞赛题    信息学奥林匹克竞赛书    胜利油田    胜利油田吧    胜利油田中心医院    胜利油田动力机械    胜利油田郭长玉自首    

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

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