noip普及组初赛模拟试卷7(附答案).doc

选择题1、数组A有10个下标变量，各个下标变量的赋值情形如下所示，则表达式AAA5的值是（ D ）。 A1A2A3A4A5A6A7A8A9A1045171029836（A）10 （B）5 （C）6 （D）2 2. 下列表达式运算结果为真的是（ B ）。 A、 Ord(a)+ord(Z)5) or ( 74) and ( 10=5) C、 (a=b) and (ab) D、 copy(ABCE,2,3)c and b+ca16. 在字符串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_ BA写出下列程序运行结果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;untili=12;writeln(F(,12,)=,p);end.输出 N=12F(12)=892.VAR a:array1.10 of integer; i,n:integer;PROCEDURE print; var i:integer; begin for i:=1 to n do write(ai:3); writeln; end;PROCEDURE delete(p:integer); var i:integer; begin for i:=p to n do ai:=ai+1; n:=n-1; end;deleteBEGIN n:=5; FOR i:=1 to n DO ai:=(i+4)*2; delete(3); printEND.输出 10 12 16 183.VAR N,M,X,J,G,S:INTEGER;A:ARRAY1.100 OF INTEGER;FUNCTION PD(K:INTEGER):BOOLEAN; VAR I:INTEGER; BEGIN PD:=FALSE; FOR I:=2 TO K-1 DO IF K MOD I=0 THEN EXIT; PD:=TRUE; END;BEGIN N:=50;S:=0; FOR J:=3 TO N DO BEGIN M:=3;X:=J; REPEAT WHILE PD(M) AND (X MOD M=0) DO BEGIN X:=X DIV M; AJ:=AJ+1; END; M:=M+2; UNTIL MJ; IF SAJ THEN BEGIN G:=J; S:=AJ; END; END; WRITELN(G,S:5);END. 输出 27 34. var i,k,n:integer; x,w:array1.500 of integer;begin readln(n); for i:=1 to n do begin xi:=0;wi:=1; end; for i:=2 to trunc(sqrt(n)+1 do if xi=0 then begin k:=i*i; while K=n do begin xk:=i; k:=k+i; end; end; for i:=n downto 1 do if xi0 then begin wxi:=wxi+wi; wi div xi:=wi div xi+wi; wi:=0; end; writeln(w2,w3:5,w5:5);end.输入 10输出 8 4 2完善程序1. 降序组合.给定两个自然数n,r(nr),输出从数1 到n中按降序顺序取r个自然数的所有组合.例如,n=5,r=3时,有如下组合:5 4 3 5 4 2 5 4 1 5 3 2 5 3 1 5 2 14 3 24 3 14 2 1 3 2 1程序如下:program tk1;var n,r,i,j:integer; a:array1.20 of integer;begin write(n,r=); repeat readln(n,r); until nr; i:=1;a1:=n;writeln(result:); repeat if ir then if air-i then begin _(1)_;i:=i+1; end else begin _(2)_; aI:=aI-1 end else begin for j:=1 to r do write(aj:3); writeln; if ar=1 then begin i:=i-1; ai:=ai-1; end else _(3)_ end; until a1=r-1;end.2. 现在政府计划在某个区域内的的城市