《广东省汕头市金山中学高一信息技术 历年noip初赛试题12》由会员分享，可在线阅读，更多相关《广东省汕头市金山中学高一信息技术 历年noip初赛试题12（10页珍藏版）》请在金锄头文库上搜索。
1、广东省汕头市金山中学高一信息技术 历年NOIP初赛试题12分区联赛初赛试题（高中组） 竞赛用时：2小时一、基础题执行 C DIR 命令后，屏幕上显示如下画面：FORMAT COM 12145SYS COM 4878PUC BAT 126XCOPY EXE 112164 File(s) 123456 bytes free接着又顺序执行了如下几条DOS命令： C DIR DF.TXT C TYPE DF.TXT C DIR试问：执行命令和在屏幕上显示的结果是否与相同？ 列举一个问题，使问题的解能对应相应的算法例如对算法 X:=10;Y;=5;READ(M,N);S:=X*M-Y*N;可列举出如下的
2、问题：学生答题，答对一题可得10分，答错一题则要扣去5分，输入答对的题数（M）与答错的题数（N），求最后得分（S）是多少？现有以下算法： K:=0;FOR I:=0 TO 10 DOK:=K +(50-I*5) DIV 2 + 1;请列出一个相应的问题。有标号为A、B、C、D和1、2、3、4的8个球，每两个球装一盒，分装4盒。标号为字母的球与标号为数字的球有着某种一一对应的关系（称为匹配）并已知如下条件： 匹配的两个球不能在一个盒子内； 2号匹配的球与1号球在一个盒子里； A号和2号球在一个盒子里； B匹配的球和C号球在一个盒子里； 3号匹配的球与A号匹配的球在一个盒子里； 4号是A或B号球的
3、匹配球； D号与1号或2号球匹配；请写出这四对球匹配的情况。从入口（1）到出口（17）的可行路线图中，数字标号表示关卡：(13 ) (14 )(15 ) (16) (17)(12)(1) (2) (3) ( 9 ) (10 ) (11)(7) (4) (5) (6)(8)(19 )(18 )现将上面的路线图，按记录结构存储如下：1234567891011121314151617NO1218731241985131661415917PRE0111222345681011111112请设计一种能从存储数据中求出入口到出口经过最少关卡路径的算法。二、根据题目要求，补充完善以下伪代码程序：求出二个整形
4、数组错位相加的最大面积。1. 数组面积的定义：（限定数组头尾不为0）设有一个数组C=（4 , 8 , 12 , 0 , 6），则C的面积的定义为：4 8 12 0 6Sc= (4+8) / 2 + (8+12) / 2 + 12 / 2 + 6 / 2也就是说，Sc=各梯形面积之和（其中梯形的高约定为1，三角形作为梯形的特殊情况处理）。又如 D = ( 12 , 24 , 6 ) 时，其面积的定义为：12 24 6 Sd = (12+24 ) / 2 + ( 24 + 6 ) / 22. 数组错位相加的定义设有2个正整数的数组a , b，长度为n，当n =5时：a = ( 34 , 26 ,
5、15 , 44 , 12 ) b = ( 23 , 46 , 4 , 0 , 18 )对a、b进行错位相加，可能有下列情况：34 26 15 44 12+） 23 46 4 0 1834 26 15 44 12 23 46 4 0 18或：34 26 15 44 12+） 23 46 4 0 1834 26 15 44 35 46 4 0 18或：34 26 15 44 12+） 23 46 4 0 1834 26 15 67 58 4 0 18或： 最后有：34 26 15 44 12+） 23 46 4 0 1823 46 4 0 18 34 26 15 44 12可以看到：由于错位不同，
6、相加的结果也不同。程序要求：找出一个错位相加的方案，使得输出的数组面积为最大。【算法提要】：设a , b的长度为10，用 a , b : array 1 . . 10 of integer 表示，其结果用数组 c , d : array 1 . . 30 of integer表示。错位相加的过程可以从开始不重叠，然后逐步重叠，再到最后的不重叠。梯形面积的计算公式为：(上底 + 下底) * 高 / 2，其中约定高为1，故可写为（上底+下底）/ 2。程序：const n = 10;function sea : real; 计算数组C面积beginj1:=1;while do j1:=j1+1;if
7、 j1 = 3*n then sea:=0else beginj2:=3*n;while do j2:=j2-1;if j1 = j2 then sea:=0else beginj3:=c j1 + c j2 ;for j4:=j1+1 to j2-1 doj3 := j3 + cj4*2;sea:=j3 / 2endend;begin 主程序for i:=1 to n do read (a i );for j:=1 to n do read (b j ); ;for i:=1 to 2*n+1 dobeginfor j:=1 to 3*n do ;for j:=1 to n do c j+n
8、 := a j ;for j:=1 to n do ;p:=sea;if p s then begind:=c;s:=pend;end;for i:=1 to 3*n do write (d i , );writeln;writeln (s= , s)end.表的操作：设有一个表，记为L（a1 , a2 , , an），其中：L：表名； a1 , a2 , , an为表中元素；当ai为09数字时，表示元素，为大写字母时表示是另一个表，但不能循环定义。例如下列表的定义是合法的（约定L是第一个表的表名）。L（1，3，K，8，0，4）K（3，P，4，H，7）P（2，3）H（4，0，5，3）程序要求：
9、当全部表给出之后，求出表中所有元素的最大元素，以及表中全部元素的和。【算法提要】 表用记录类型定义： 设lmax为表中元素最大个数tabtype = recordlength : 0.lmax; 长度element : array 1.lmax of char; 表体end;再定义队列： qtype = recordbase : array 0.lmax of char;front , rear : 0.lmax;end;为此，设计一个字符入队的过程inqueue，出队函数outquere，表中最大元素及元素求和均采用递归计算。程序：const lmax = 38 ;var t : array
10、 A . . Z of tabtype;s : string lmax ;procedure inqueue ( var q : qtype; c : char );beginq.rear := ;q.base q.rear := cend;function outqueue ( var q : qtype ) : char;beginq.front := ;outqueue := q.base q.front end;function maxnumber ( c : char ) : char;var max : char;beginmax := chr (0);for i:=1 to tc
11、.length dobeginch := tc.elementi;if then m := maxnumber (ch)else m := ch;if maxm then max:=mend; end;function total ( c : char ) : integer;var k , i : integer;begink := 0;for i := 1 to tc.length dobeginch := tc. lelment i ;if then m := total (ch)else m := ord (ch)ord (0);k := k + mend;total := kend;
12、beginmax : = 36;for tabno := A to Z do t tabno. length := 0;q.front := 0; q.rear := 0;inqueue (q , L);while q. front q. rear dobegintabno := outqueue (q);write ( tabno , = );readln (s);i := 1;while s i ( do i:=i+1;while s i ) dobeginif (s i = a) and (s i = A) and (s i = Z)then begininc ( t tabno . length );t
