pascal信息学复赛的文件操作

《pascal信息学复赛的文件操作》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、2012年南海区青少年信息学奥林匹克竞赛初赛试题（小学乙组，两小时完成）♦♦请将正确答案在答卷上填写，在本试题卷上答题无效・・一、选择题：（选出每题正确的一个答案代码，填在括号内，每题1分，共15分）数-100不能用下列哪种类型的变量储存（A.integerB.realC.longint下列表达式不能判断一个数m是偶数的是（1、2、4、5、6、7、8、9、A.mdiv2=0B.mmod2=0C.mmod201字符串/ziPhone"里包含了长度为4的子串共（A.3B.4数值250.00应该用什么类型储存（A.booleanB

2、.longintC.5)oC.realD.D.booleanodd(m)=false）个。D.D.(C.writeln(y:0:1);)将128.843赋给变量Y,则下列哪个语句能输出'128.8'A.write（y）;B.read（y:&1）;对于求前N个正整数的和，下列哪段程序效率最高？（string)oD.write(y:6:2);A.s:=l;x:=l;readln(n);repeatx:=x+l;s:二s+xunti1x>n;writeIn(s);B-s:=l;x:=2;readln(n);Whilex<=ndoB

3、egins:=s+x;x:=x+lend;writeln(s);C-s:=0;readln(n)forx:=ltondos:=s+x;writeln(s);D・readln(n);S:=(l+n)*ndiv2;Writeln(s);)oA.readln(cj)；forx:=ltondozf:二zf+cj;13.forx:=ltondobeginzf:二zf+cj;readln(cj);end;c.forx:=ltondobeginreadln(cj);zf:二zf+cj;end;D.forx:=ltondobeginread

4、ln(cj);cj:二zf+cj;end;)O下列数组说明后，将需要多少字节的内存空间？（Varname:array[1..50]ofstring[8];A.400B.392C.58D.408要计算某班语文测验的总分，下列程序段书写止确的是（IK已知n定义为real类型，则下列语句止确的是（A.fori:二2tondoB.C.fori:=2toint（n）doD.卜-列表达式中a的值是string类型的是（A.a:=length（st）B.C.str（st,a）D.下列二进制数中最大的是（)Ofori:=2tofori:=2

5、to)oval(st,a)trunc(n)doabs(n)doa:=posA.10001100B.10100000C.10101101如果输入P的值是50,则下列循环语句里循环体的执行次数是（repeatp:=pdiv3untilp<=0;D.10110101)oA.3B.4C.5D.1813、已知a二10,b二20,c二30,则下列表达式的值为true的是()。A.c-b>aB.c~b>=aC.a+b>cD.abs(b~c)>a14、如果要判断一个数是否人于10的奇数，下列哪个语句是正确的？()。A.if(b>10)and

6、odd(b)thenwriteln('yes!')B.ifb>=10thenifodd(b)thenwriteln('yes!')C.ifb>3andb<99thenwriteln('yes!')D.ifnotodd(b)thenifb>10thenwriteln('yes!')15、下列四个程序段屮，哪一个的结构最符合规范？()A.s:二0;fork:二1to50dobeginread(w);s:=s+w;end;writeln(s);B.s:=0;fork:=lto50dobeginread(w);s:=s+w;end;

7、writeln(s);c.s:=0;fork:=lto50dobeginread(w);s:=s+w;end;writein(s);D.s:二0;fork:=1to50dobeginread(w);s:二s+w;end;writeln(s);二、基础填空题：（将止确的答案填在横线上，每小题5分，共15分）1、I•进制数126对应的二进制数是。2、已知数列1,2,4,7,12,……，则该数易的第6项是o3、某个学习小组有5位同学，他们的代号分别为A,B,C,D和E,现在要派出其中若干位同学参加一次社会实践活动，选派的规则是这样

8、的：可以是一位同学或者两位编号相邻的同学，也可以是三位或四位编号连续的同学，甚至可以全体出动。那么，这次社会实践共有选派方案。三、读程序写结果：（每小题5分，共20分）1、2、programzmj2;varr,s:real;vartl,t2,zmj:integer;beginbegintl