鄞州区第五届科技节计算机程序设计初赛 [2016年]

1. 计算机硬件能直接识别和执行的只有______________。

2. 计算机中数据的表示形式是_________________。

3. 局域网中的计算机为了相互通信，必须安装______________。

4. Hacker是指那些私闯非公开的机构网络进行破坏的人，它的中文俗称是__________ __

5. 下列哪个软件是有关图像处理的__________

6. 世界上发明的第一台电子数字计算机是__________

7. 1MB等于_________

8. 二进制数00100100和00010100的和是___________ 。

9. 下列存储设备中，断电后其中信息会丢失的是_________.

10. 在Internet的域名中，代表计算机所在国家或地区符号“cn”是指_______________

11. 在24*24点阵的字库中，汉字“一”与“编”的字模占用字节数分别是____________。

12. 小张用十六进制、八进制和十进制写了如下一个等式：52-19=33,式中三个数是各不相 同进位制的数，试问52、19、33,分别为______________

13. 在微机系统中，最基本的输入输出模块BIOS存放在____________ .

14. 与十六进制数BB等值的十进制数是_______________.

15. 结构化程序设计所规定的三种基本控制结构是_______

16. 英文小写字母d的ASCII码为100,英文大写字母D的ASCII码为__________

17. 给定一个正整数N=8934632178,现决定依次删除其中6个数位上的数字（每次删除一个 数位上的数字)，每次删除后按原来的次序组成一个新数M的值均是当前状态下的最小数，则 第四次应该删除的数字是__________________

18. 下列程序哪个语句使用前必须关闭输出文件_______________。

19. 设有如下程序段，则下面选项中正确的是___________ x:=-l; REPEAT x:=x*x; writeln(x); UNTIL x>0;

20. 计算机的最高奖是______________

1. 编号为1到13的纸牌顺时钟排成一圈，有人从等号为1的牌从数字1开始顺时钟数下去, 1、2、3、…、20、21、…，一圈又一圈。 问：当数到数字N时，所在纸牌的编号公式_______________ 。
答案：(N-1)mod 13+1

2. 把M个同样的球放到N个同样的袋子里，允许有的袋子空着不放，问共有多少种不同的放 置方法？（用K表示）。 例如：M=7, N=3时，K=8:在这里认为（5,1,1）和（1，5,1）是同一种放置方法。 问：M=8，N=5 时，K=______________________ 。
答案：18

1.

program yzkx2016_1;
var
  i:integer;
  a:array[1..20] of integer; 
begin
  a[1]:=1; a[2]:=1; 
  for i:=3 to 20 do 
  a[i]:=a[i-2]+a[i-1]; 
  write (a[10]); 
end.
输出：55

2.

program yzkx2016_2; 
var n, i, x, p, s:longint;
begin 
  read(n, x);
  s:=0;p:=1;
  for i:=1 to n do begin
  p:=p*x;
  s:=s+p;
  end;
  writeln(s);
end.
输入：15 2
输出：65334

3.

program yzkx2016_3;
var
  n, m, i, ans : Integer; 
begin
  readln(n, m); 
  ans := 0; 
  i := n;
  while i <= m do 
  begin
  ans := ans + i; 
  inc(i);
  end;
  writeln(ans); 
end.
输入：10 20
输出：165

4.

program yzkx2016_4; 
var n:integer;
function fun(n:integer):integer; 
begin
  If n=1 then exit(1);
  If n=2 then exit(2); 
  exit(fun(n-2)-fun(n-1)); 
end;
Begin
  readln(n); 
  writeln(fun(n));
end.
输入：7 
输出：-11

1. 下列程序的功能是：用递归方法求两个整数a, b的最大公约数。请将程序补充完善。

program yzkx2016_5; 
 var m,n:integer;
 function gcd(a,b:integer):integer; 
 var r:integer;
 begin
   r:=  a mod b  ;
   if r=0 then gcd:=b
   else gcd:=gcd(b,r)
 end; 
begin 
  read (m, n);
  writeln(' gcd(',' ,',n,')='，gcd(m，n));
end.

2. 【问题描述】方阵填数：在一个NXN的方阵中，填入1，2, NXN个数，并要求
构成如下的格式：
如 N:=4
10 11 12 1
9 16 13 2
8 15 14 3
7 6 5 4

N =5
13 14 15 16 1
12 23 24 17 2
11 22 25 18 3
10 21 20 19 4
9 8 7 6 5

program yzkx2016_6; 
var
  j:Integer; 
  n，i，k，x，y:Byte;
  result:array[1.. 25,1.. 25] of Byte;
begin
  write('N=');readln(n);
  for x:=1 to n do
    for y:=1  to n do result[x,y]:=0 ;
  x:=0; y:=n; i:=0; k:=n; j:=1;
  while i< n*n do
    begin
	  for i:=i+1 to i+k do
	   begin
         x:=x+j  ;    
	   result[x, y]:=i; 
       end; 
    dec(k);
    if j=1 then j:=-1 else j:=1;
    for i:=i+1 to i+k do
      begin
	  y:=y+j;
	     result[x,y]:=i;  
      end;       
    end;
  for x:=1 to n do
   begin
    for y:=1 to n do write(result[x,y]:3);
	writeln;
   end;
end.