2012年宁波市小学组初赛模拟试题(居敬2).docVIP

宁波市中小学生程序设计竞赛组 初赛试题1．将十进制数79化为九进制数是 （A） （B） （C） （D） 2．不超过5位的二进制整数，最多可以表示的状态数是 （A） （B） （C） （D）au 的结果相同的是 （A）（B）A) ord (C) （C）（D） 4．对已存在的文件try.pas在pascal系统中修改并保存后，系统会多出一个文件，该文件名为 （A） （B） （C） （D）（A） （B）（C） （D） 6．初中学生可以参加的全国青少年信息学奥林匹克联赛组别是 （A） （B） （C） （D）（A）（B）（C）（D） 8． 在pascal系统中，下列可作为变量名的是 （A）（B）（C）（D） 9．在pascal系统中，打开文件的快捷键是 （A） （B）（C）（D） assign(output,abc.out); close(output); 在该程序中还必须包含的语句是 （A）（B） （C） （D）11． 有以下的程序： var s:string; begin readln(s); writeln(pos(C,s)); end. 该程序运行时，输入“ABC”后按回车键，输出为 （A） （B） （C） （D）12．程序设计竞赛使用的Free Pascal语言中，trunc(pi)的值等于 （A）（B） （C） （D）13． 在Pascal程序中，以下结果为实数型的是 （A） （B） （C） （D）14． 有以下程序段 S:=0; for i:=1 to 10 do if a[i] mod 2=0 then s:=s+1; writeln(s); 该程序段的主要功能是 （A） （B） （C） （D）15． 能随机产生正奇数的pascal表达式是 （A）（B）（C） （D） 二．问题求解（每题5分，共10分） 1．在不超过100的正整数中，含有数字2的整数个数是多少？ 2．一个正整数n可以写成互不相等的若干个正整数相加的形式，如: 6 = 1+5 6 = 1+2+3 6 = 2+4 但1*5=5,1*2*3=6,2*4=8,其中8是最大的，所以我们要求将6写成2+4的形式，即 6=2*4 请你写出12和100两个数的和式。 6 = 2 + 4 12 = 100 = 三．阅读程序，求程序运行输出结果(每题8分，共32分) 第1题： program xx2012_1; var n,i,m:longint; a:array[1..100] of longint; begin readln(n); fillchar(a,sizeof(a),0); for i:=1 to n do begin read(m); a[m]:=i; end; m:=0; for i:=1 to 100 do m:=m+i*a[i]; writeln(m); end. 第2题： program xx2012_2; var s:string;n,i,k:longint; begin readln(s); k:=length(s); while pos( ,s)0 do s[pos( ,s)]:=s[k]; write(s， ); n:=0; for i:=1 to k do n:=n*8+ord(s[i])-ord(0); writeln(n); end. 第3题： program xx2012_3; var a:array[1..30] of longint; t:array[0..20000] of boolean; n,i,j,s,k,v:longint; begin readln(n,v); for i:=1 to n do read(a[i]); fillchar(t,sizeof(t),false); t[0]:=true; k:=0; for i:=1 to n do begin for j:=k downto 0 do if t[j] then t[j+a[i]]:=true; k:=k+a[i]; end; s:=v; while not t[s] do dec(s); writeln(v-s); end. 第4题： program xx2012_4; var n,i,x,