鄞州区小学生计算机程序设计竞赛 [2015年]

1. 下列数中.最小的数是( )。

2. WINDOWS 是一种( ).

3. 根据条件判断的结果，来选择程序执行方向的程序结构称为( ).

4. 表达式 Trunc(sqrt(l8236 div 100 mod 100))的值为( ).

5. 下面描述错误的是( )

6. 设X是实型变量.下列表达式能将x四舍五入后保留三位小数的是( )

7. 下面的表达式中,布尔值为false的是( )

8. 设 a[1]=1,a[2]=2,a[3]=3，a[4]=4，a[5]=5，a[6]=6，且i=1，j=2，k=3，m=4下列变量的值等于3的是( )

9. “U盘/闪存盘” 属于存储器中的( )

10. 从午夜零时以后到中午12时，时针和分针共重叠( )次。

11. 5年以前，菲多姐姐的年龄是菲多年龄的5倍,而现在她的岁数只相当于菲多岁数的3倍，那么菲多今年是( )岁

12. 2名驾驶员和6名空中小姐分别上二架不同型号的旅游直升飞机，每机1名驾驶员及3名空中小姐，则上机方法共有( )种

13. 若己知一个栈的入找顺序是1,2,3,...,n，其中输入出序列为P1，P2，P3，...，Pn，若P1是n ，则Pi是( )：

14. 运算式(2008)10—(3723)8的结果是( ).

15. 在计箄机中，防火墙的作用是( ).

16. 计算机网络最大的优点是( ).

17. 在下列关于计算机算法的说法中，不正确的是( )

18. 执行语句writeln( ‘12*3=’，12*3)的结果为( ).

19. 有一 3*3的方格棋盘(每个格子长宽都为1),共有多少个正方形( )

20. 下列图中，能用“一笔画”画出(经过每条边一次且只经过一次)的图是( )

1. “庆六一”李老师买了许多的礼物，便让网学们做了个小游戏。要求第一位同学拿走总数的一半的再加一份，第二位拿走剩下的一半的再加一份，以此类推。结果在第6位同学拿后全部拿完。问李老师买了___份礼物。
答案：126

2. 在a.b.c.d.e.f六件物品中，按下面的条件能选出的物品是：________ (l)a, b两样至少有一样 (2)a, d不能同时取 (3)a, e, f中必须有2样 (4)b, c要么都选，要么都不选 (5)c, d两样中选一样 (6)若d不选，则e也不选
答案：a,b,c,f

1.

program test_2015_l; 
var x, a, b, c, d, z: integer: 
begin 
readln(x); 
a:=x mod 10; 
b:=(x mod 100) div 10; 
c:=(x mod 1000) div 100; 
d:=x div 1000; 
z:=a*a+b*b+c*c+d*d
if trunc(c*d)/(a*b)) = (c*d)/(a*b) then inc(z,a*b) else inc(z,c*d);
writeln(z);
end.
输入: 2015 
输出：35

2.

program test_2015_2; 
var a, b: String; 
i : Integer;
begin
  a:='AABBCCDKKRRSSXX';
  readln(b);
  for i := 1 to length(b) Do
    If (b[i] >= ’0’) AND (b[i] <= ’9’) 
	  then write(b[i])
	else
	  if (b[i])>='A' and (b[i])<='Z')
	     then write(a[ord(b[i])-ord('A')+1]);
End.

输入：HELLA-2015
输出：KCSSA2015

3.

Program test_2015_3; 
var
  sum,i, max: longint; 
begin
  readln(max); 
  sum:=0;
  for i:=1 to max do
  begin
    if i mod 2=0 then
	  sum:=sum+i;
  end;
  writeln(sum);
end.
输入：200
输出：10100

4.

program test_2015_4; 
const
  s='0123456789ABCDEPGHIJKLMN0PQRSTUVWXYZ';
  base = 16;
var
  i , j , n , tmp : interger ; 
  a : array [1.. 100] of char; 
begin
  readln ( n ); 
  i := 0 ;
  while n > 0 do
  begin
    inc ( i );
	tmp : = n mod base ; 
	a[i] ： = s[tmp + 1]; 
	n : = n div base 
  end ;
  if i = 0 then 
     write (0) 
  else
    for j : = i downto 1 do 
       write ( a[j]);
   writeln; 
end.
输入： 2015 
输出：7DF

1. 老师正在教笑笑pascal语言中的记录类型：
有时候我会遇到这种数据，它由性质和不相同的成分姐成，例如：
学号 字符串类型
姓名 字符串类型
年龄 整型
性别 字符型
成绩 实型
如果用5个变量来存储，就推动了一个整体性，Pascal给我们提供了一种记录的结构类型。在一个记录中，可以包含不同类型的并且互相相关的一些数据。
记录的定义：（如上面的数据定义如下）
type node=record
num:string;{学号}
name:string;{姓名}
age:integer;{年龄}
sex:string[6];{性别}
score:real;{成绩}
end;
var student:array[1..100] of node;{定义student数组的毎个元索为node这种记录类型，该记录类型包含5个域}
记录的引用：
对记录中每个域的引用如输入第i个学生的学号，有两种方法：（1）可以写出记录变
量名和域名，pascal语言表示为 readln(student[i].num);（2）使用开域语句 with...do， pascal语言表示为 with student[i] do
Readln(num)
笑笑立马就掌握了这种数据结构，为了在你面前炫耀，她出了一个记录类型的题目考考
你，给出n(1<= n<200)个同学m(1<=m<=5)科的考试成绩，按总分找出前十名是哪些同学。规定：总分相同名次相同，且占用后面的名次，例如：第2名有两个同学，那么将没有第3名，后面的同学将从第4名算起。
input
第一行为n和m,下面n行为毎个同学的成绩描述：每行有m+1个数，其中第一个数为学号（小于等于200）,后面为各科成绩， 成绩为0～100之间的实数，中间用一个空格隔开。
Output
一行，成绩名次在前10的同学学号，不足10名全部输出。当第10名有多个同学时，输出有可能超过10名同学的学号。同名次按学号由小到大输出。 输出的各个学号之间用一个空格隔开。
Sample Input
17 2
1 7 13
2 18 54
3 47 91
4 65 86
5 44 48
6 92 88
7 80 36
8 76 68
9 54 21
10 65 11
11 61 69
12 78 32
13 0 81
14 93 32
15 42 97
16 28 9
17 65 55

Sample Output
6 4 8 15 3 11 24 17 7 12

programe  test_2015_5; 
type cj=array[l..5] of real;
rec=record
real;
  num: integer： //学号 
  s:cj:  //考试科目成绩
  ml: integer; //名次 
  sum: real;  //总分
end:
var array [1..200] of rec; i, j, n, m, k:integer ;t:rec; 
begin
  readln(n, m); 
  for i:=l to n do 
  with a[i] do
  begin
     read(num) ; sum:=0;
    for j: = l to m do begin read(s[j]) ;sum:= inc(sum,s[j]) ; end;
    ml:=0: 
    readln; 
  end;
  for i:=l to n-1 do
    for j:=l to n-i do
	  if (a[j]. sum<a[j+l]. sum)or
	  ( a[j].sum=a[j+1].sum ) and ( a[j].num>a[j+l].num)
	    then begin t:=a[j];  a[j]:=a[j+1] ;a[j+l]:=t; end;
  a[1].m1:=1;k:=1;
  for i:=2 to n do
    if a[i].sum=a[i-l].sum then a[i].ml:=k
	   else begin inc(k);a[i].ml:=k; end;
  for i:=l to n do
    if a[i].m1<=10  then  write(a[i].num, ’ ’)
	     else break;
end.

2. 正整数A的阶乘，数学中定义为：A！=1×2×3×......×A，如3！=1×2×3，现在输入一个正整数n(n<=50)，要求计算出1～n的每一个整数的阶乘的高精度结果（即：结果为全部有效数字）。下面的程序中采用加法代替乘法的方法计算阶乘，如：3！=2！+2！2！。
输入格式：每行打印一个数的队乘
如：输入：n=3
输出：1!=1
2!=2
3!=6

Program test_2015_6;
Const max=80;
Var i,j,k,n,r:integer;
   a,b:array[1..max] of integer;
begin
  writeln('n=');readln(n);
  a[1]:=1;writeln('1!=1');
  for j:=1 to  n-1  do begin
    b:=a;
    for k:=1 to  j  do
      for i:=1 to max do
      begin
        r:= a[i]+b[j] ;
        if r>=10 then  a[i+1] :=a[i+1]+1;
        a[i]:=r mod 10;
      end; 
      k:=80;
      while  a[k]=0 do k:=k-1;
      write(j+1,'!=');
      for i:=k downto 1 do write(a[i]);
      writeln;
  end;
end.