初赛模拟测试题(二).docVIP

初赛模拟测试题（二） 一、选择题：1—10小题为单选题，11—20小题为多选题，每题1.5分。共30分 1、利用 可以将耳机、笔记本电脑、冰箱等毫不相关的产品紧密结合在一起. 智能技术 C、 A、 B、 C、 D、 6、计算机中的队列，是一种特殊的线性表，用于存放数据，它的结构特点是： 。 A、先进先出 B、后进先出 C、先进后出 D、中间先出 E、以上均不正确 7、通常个计算机系统（）。A、硬件B、计算机的CPU C、系统软件和数据库。D、软件系统。 A、c B、basic B、pascal D、java E、汇编 二、问题求解：第1题5分，第2题6分，共11分。 1、有5本不同的书发给5个学生，将书全部收回后再重新发给他们，与原方案都不相同的方案共有多少种？（提示：与原方案都不同指“每个人再次发到的书都不是原来的那本”） 2、将n个不同颜色的球放入k个无标号的盒子中（n=k，且盒子不允许为空）的方案数记为S(n,k)，例如n=4，k=3时S(4，3)=6。问当n=6，k=3时，S（n，k）等于多少？ 三、阅读程序，写出运行结果，每小题8分，共32分。 1、program noip21; var d,p:integer; begin p:=1;d:=11; while d1 do begin p:=2*(p+1); d:=d-1; end; writeln(p); end. 2、program noip22; function fn(n:integer):integer; begin if n1 then fn:=0 else if n=1 then fn:=1 else fn:=fn(n-1)+n; end; begin writeln(fn(10)); end. 3、program noip23; var g,m:integer; k:real; begin k:=0; g:=0; for m:=1 to 49 do begin g:=g+1; k:=k+1/(g*(g+1)); end; writeln(k:10:2); end. 4、program noip24; var n,k,s:longint; begin n:=1000000000; k:=0; s:=1; while s=n do begin k:=k+1; n:=n-s; s:=s+6*k; end; writeln(k); end. 四、程序填空 共27分 1、读入一个10*10的数字矩阵，矩阵中的数字各不相同，输出这个矩阵经过旋转、翻转后的7种不同样式。 program noip25; var matrix:array[0..7,1..10,1..10]of integer; lr,lc,which:integer; procedure overturn(which:integer); var lr,lc:integer; begin for lr:=1 to 10 do for lc:=1 to 10 do matrix[which,lr,lc]:=matrix[which-1,______1_____,______2______ ]; end; procedure rotate(which:integer); var lr,lc:integer; begin for lr:=1 to 10 do for lc:=1 to 10 do matrix[which,lr,lc]:=matrix[which-1,______3______,_______4______ ]; end; begin for lr:=1 t0 10 do for lc:=1 to 10 do read(matrix[0,lr,lc]; readln; for which:=1 to 7 do begin if _______5______then overturn(which) else rotate(which); for lr:=1 to 10 do begin for lc:=1 to 10 do write(matrix[which,lr,lc]:3); writeln; end; readln; end; end. 2、【问题描述】用回溯法求解从N个元素中任取M个元素的排列总数。例如：在3个元素1、2、3中，任取2个元素排列，排列方法有：1 2、 1 3、 2 1、 2 3、 3 1、 3 2，共6种方法。 【输入输出样例】 输入：3 2 输出：6 输入： 5 4 输出