选择题1、数组A有10个下标变量，各个下标变量的赋值情形如下所示，则表达式2.下列表达式运算结果为真的是（ B ）。

A、 Ord(‘a’)+ord(‘Z’)<ord(‘A’)+ord(‘z’);B、 ( 3>5) or ( 7>4) and ( 10>=5)C、 (a>=b) and (a<b)D、 copy(‘ABCE’,2,3)< ‘BCE’3、CPU访问内存的速度比访问下列哪个(A)存储设备要慢？A、寄存器B、优盘C、软盘D、光盘4、BMP图像文件可以用下列哪个( B)软件来编辑：A、记事薄(Notepad)B、PhotoshopC、IED、Powerpoint5.与(10010.101)2对应的十进制数是（ B ）。

A、39.75B、18.625C、34.625D、18.756、下列各种说法中，正确的是（D ）。

（A）所有的十进制小数都能准确地转换为有限位二进制小数（B）汉字的计算机机内码就是区位码（C）存储器具有记忆能力，其中的信息任何时候都不会丢失（D）计算机中所有信息都采用二进制编码7、算式（4095）10-（7FF）16+（3000）8的结果不正确的是（ C ）。

（A）（3584）10 （B）（111000000000）2 （C）（17000）8 （D）（E00）168.下面描述错误的是（B ）。

A、双核处理器是指在一个处理器上集成两个运算核心，从而提高运行速度和计算能力。

B、计算机在工作时突然断电，保存在内存ROM中的信息会全部丢失。

C、计算机病毒都是人为制造出来的，而不是计算机硬件故障的结果。

D、“微软黑屏事件”与计算机知识产权问题有关。

9.在完成编程后，为了有效检测程序的正确性，应该（C ）。

A、随便选取一个数据进行测试B、取一切可能的数据进行测试C、选择最可能发现错误的数据进行测试D、自己不测试，交给老师测试10、在线性表的两种存储表示中，下列描述正确的是（B ）。

（A）数组利于插入，不利于查找（B）链表利于查找，不利于插入（C）数组利于查找，不利于插入（D）数组与链表中的插入与查找效率差不多11.多媒体技术中的"多媒体"的含义主要是指如( B )等表示信息的形式.A)磁盘、光盘B)声音、图象C)电缆、光纤D)声卡、绘图仪12.某计算机的硬盘容量是40G，这里40G=( D )字节.A)40 B)40*1000 C)40*1024*1024 D)40*1024*1024*102413、十进制数-103的补码是（ A ）。

A. 10011001B. 11100111C. 10110011D. 0001100114.十进制数与二进制数混合的等式：100＋10＝1110，其中三个数依次是（A）A、二进制、十进制、二进制B、十进制、二进制、十进制C、二进制、十进制、十进制D、十进制、二进制、二进制15. 下列表达式中，错误的是（ D ）。

A、-9 div (-10)B、ABS(a-2)/5C、’天才’=’99%的汗水’+’1%的灵感’D、a+b>c and b+c>a16.在字符串’ababcdefacbefdabccbad’中出现最多的字母出现了（C ）次。

A、2B、4C、5D、617.把编号为1到13的纸牌摆成一圈，然后从1号纸牌开始顺时针数1,2,3,……，一圈又一圈，当数到某个数n时，对应的纸牌编号为（ B ）A. n mod 13 B、(n-1) mod 13+1 C、n mod 13+1 D、(n+1) mod 1318.关于计算机通信，下列说法中正确的是___D___。

A. 计算机网络通信协议就是在计算机进行通信时双方规定使用英文还是使用中文B. 电话是一种通信介质C. 网卡是一种通信介质D. 计算机之间可以进行无线通信19. 中缀表达式A-(B+C/D)*E的后缀表达式是（D ）。

A)AB-C+D/E* B) ABC+D/-E* C)ABCD/E*+- D)ABCD/+E*-20. 在数据结构中链表是(B ).A)顺序存储的线性表结构B) 非顺序存储的线性表结构C) 顺序存储的非线性表结构D) 非顺序存储的非线性表结构问题求解（最短路线）某城市的街道是一个很规整的矩形网络（见下图），有7条南北向的纵街，5条东西向的横街。

现要从西南角的A走到东北角的B，最短的走法共有多少种？___210________A写出下列程序运行结果1. varn,i,j,k,p:longint;beginwrite('N=12');i:=2;j:=0;k:=1;repeatinc(i);p:=j+k;j:=k;k:=p;until i=12;writeln('F(',12,')=',p);end.输出N=12F(12)=892.V ARa:array[1..10] of integer;i,n:integer;PROCEDURE print;var i:integer;beginfor i:=1 to n dowrite(a[i]:3);writeln;end;PROCEDURE delete(p:integer);vari:integer;beginfor i:=p to n doa[i]:=a[i+1];n:=n-1;end;{delete}BEGINn:=5;FOR i:=1 to n DOa[i]:=(i+4)*2;delete(3);printEND.输出10 12 16 183.VAR N,M,X,J,G,S:INTEGER;A:ARRAY[1..100] OF INTEGER;FUNCTION PD(K:INTEGER):BOOLEAN;VAR I:INTEGER;BEGINPD:=FALSE;FOR I:=2 TO K-1 DOIF K MOD I=0 THEN EXIT;PD:=TRUE;END;BEGINN:=50;S:=0;FOR J:=3 TO N DO BEGINM:=3;X:=J;REPEATWHILE PD(M) AND (X MOD M=0) DO BEGINX:=X DIV M; A[J]:=A[J]+1;END;M:=M+2;UNTIL M>J;IF S<A[J] THEN BEGIN G:=J; S:=A[J]; END;END;WRITELN(G,S:5);END.输出 27 34. var i,k,n:integer;x,w:array[1..500] of integer;beginreadln(n);for i:=1 to n dobeginx[i]:=0;w[i]:=1;end;for i:=2 to trunc(sqrt(n))+1 doif x[i]=0 thenbegink:=i*i;while K<=n dobeginx[k]:=i;k:=k+i;end;end;for i:=n downto 1 doif x[i]<>0 thenbeginw[x[i]]:=w[x[i]]+w[i];w[i div x[i]]:=w[i div x[i]]+w[i];w[i]:=0;end;writeln(w[2],w[3]:5,w[5]:5);end.输入 10输出 8 4 2完善程序1. 降序组合.给定两个自然数n,r(n>r),输出从数1 到n中按降序顺序取r个自然数的所有组合.例如,n=5,r=3时,有如下组合:5 4 35 4 25 4 15 3 25 3 15 2 14 3 24 3 14 2 13 2 1程序如下:program tk1;var n,r,i,j:integer;a:array[1..20] of integer;beginwrite('n,r=');repeatreadln(n,r);until n>r;i:=1;a[1]:=n;writeln('result:');repeatif i<>r thenif a[i]>r-i thenbegin___(1)___;i:=i+1;endelse begin___(2)___;a[I]:=a[I]-1 endelsebeginfor j:=1 to r do write(a[j]:3);writeln;if a[r]=1 thenbegini:=i-1; a[i]:=a[i]-1;end else ___(3)___end;until a[1]=r-1;end.2. 现在政府计划在某个区域内的的城市间架设高速公路，以使任意两个城市间能够直接或间接到达，怎样修路，费用最小。

输入文件：第一行一个整数n(n<=100)表示城市数目。

第二行至第n+1行每行两个数xi,yi(0<=xi,yi<=100)表示第i个城市的坐标(单位:千米)；输出最小费用(每千米一个单位价格)。

程序如下:program t6;const maxn=100;type tcity=recordx,y:realend;var c:array[1..maxn] of tcity;d:array[1..maxn,1..maxn] of real;p:array[1..maxn] of integer;n,i,j,k:integer;a,min:real;beginreadln(n);for i:=1 to n do readln(c[i].x,c[i].y);for i:=1 to n dofor j:=1 to n dod[i,j]:=sqrt(sqr(c[i].x-c[j].x)+sqr(c[i].y-c[j].y));p[1]:=0;for i:=2 to n do ___(4)___for i:=1 to n-1 dobeginmin:=1e10;for j:=1 to n doif ___(5)___ thenbeginmin:=d[p[j],j];___(6)___end;a:=a+d[p[k],k];p[k]:=0;for j:=1 to n doif ___(7)___ then p[j]:=k;end;writeln(a:0:2);end.(1)a[i+1]:=a[i]-1 (2)i:=i-1 (3) a[i]:=a[i]-1或a[r]:=a[r]-1(4) p[i]:=1 (5) (p[j]>0) and (d[p[j],j]) < min)(6)k:=j (7) (p[j]>0) and (d[p[j],j]>d[k,j])。