万卷网

NOIP普及组

万卷网> 考级竞赛> 信息学奥赛> NOIP普及组

NOIP普及组

更新时间： 2023-08-26 20:36:18 试题数量： 535

我的练习

顺序练习

随机练习

章节练习

错题练习

题库预览

简答题乒乓球（Table.pas）【问题背景】国际乒联现在主席沙拉拉自从上任以来就立志于推行一系列改革，以推动乒乓球运动在全球的普及。其中11分制改革引起了很大的争议，有一部分球员因为无法适应新规则只能选择退役。华华就是其中一位，他退役之后走上了乒乓球研究工作，意图弄明白11分制和21分制对选手的不同影响。在开展他的研究之前，他首先需要对他多年比赛的统计数据进行一些分析，所以需要你的帮忙。【问题描述】华华通过以下方式进行分析，首先将比赛每个球的胜负列成一张表，然后分别计算在11分制和21分制下，双方的比赛结果（截至记录末尾）。比如现在有这么一份记录，（其中W表示华华获得一分，L表示华华对手获得一分）：WWWWWWWWWWWWWWWWWWWWWWLW在11分制下，此时比赛的结果是华华第一局11比0获胜，第二局11比0获胜，正在进行第三局，当前比分1比1。而在21分制下，此时比赛结果是华华第一局21比0获胜，正在进行第二局，比分2比1。如果一局比赛刚开始，则此时比分为0比0。你的程序就是要对于一系列比赛信息的输入（WL形式），输出正确的结果。【输入格式】每个输入文件包含若干行字符串（每行至多20个字母），字符串有大写的W、L和E组成。其中E表示比赛信息结束，程序应该忽略E之后的所有内容。【输出格式】输出由两部分组成，每部分有若干行，每一行对应一局比赛的比分（按比赛信息输入顺序）。其中第一部分是11分制下的结果，第二部分是21分制下的结果，两部分之间由一个空行分隔。【输入样例】WWWWWWWWWWWWWWWWWWWWWWLWE【输出样例】11:011:01:121:02:1

简答题 program program1;Var a,b,c,d,e:integer; begin a:=79 ; b:=34; c:=57;d:=0 ; e:=-1; if (a<c) or (b>c) then d:=d+e else if (d+10<e) then d:=e+10 else d:=e-a; writeln(d); end.输出：_____________________。

简答题数字游戏（Game.pas）【问题描述】丁丁最近沉迷于一个数字游戏之中。这个游戏看似简单，但丁丁在研究了许多天之后却发觉原来在简单的规则下想要赢得这个游戏并不那么容易。游戏是这样的，在你面前有一圈整数（一共n个），你要按顺序将其分为m个部分，各部分内的数字相加，相加所得的m个结果对10取模后再相乘，最终得到一个数k。游戏的要求是使你所得的k最大或者最小。例如，对于下面这圈数字（n=4，m=2）：当要求最小值时，((2-1) mod 10)×((4+3) mod 10)=1×7=7，要求最大值时，为((2+4+3) mod 10)×(-1 mod 10)=9×9=81。特别值得注意的是，无论是负数还是正数，对10取模的结果均为非负值。丁丁请你编写程序帮他赢得这个游戏。【输入格式】输入文件第一行有两个整数，n（1≤n≤50）和m（1≤m≤9）。以下n行每行有个整数，其绝对值不大于104，按顺序给出圈中的数字，首尾相接。【输出格式】输出文件有两行，各包含一个非负整数。第一行是你程序得到的最小值，第二行是最大值。【输入样例】4 243-12【输出样例】781

单选题下列计算机设备中，既是输入设备，又是输出设备的是( )。

单选题下列分辨率的显示器所显示出的图像，最清晰的是( )。

简答题 Joseph题目描述：原始的Joseph问题的描述如下：有n个人围坐在一个圆桌周围，把这n个人依次编号为1，……，n。从编号是1 的人开始报数，数到m个人出列，然后从出列的下一个人重新开始报数，数到第m个人又出列，……，如此反复直到所有的人全部出列为止。比如当n=6,m=5的时候，出列的顺序依次是5，4，6，2，3，1。现在的问题是：假设有k个好人和k个坏人。好人的编号是1到k，坏人的编号是k+1到2k。我们希望求出m的最小值，使得最先出列的k个人都是坏人。输入：仅有的一个数字是k (0<K<14)。输出：使得最先出列的k个人都是坏人的m的最小值。输入样例：4输出样例：30程序：program progaram1;var i,k,m,start：longint; find：boolean;function check（remain:integer）：boolean;var result：integer;begin result：=____(1)____ mod remain; if ____(2)____ then beginstart：=result; check：=true; end else check：=false;end;begin find：=false; read(k); m：=k; while ____(3)____ do beginfind：=true; start；=0；for i：=0 to k-1 do if (not check(____(4)____)) then begin find：=false; break; end;inc(m); end; writeln(____(5)____);end.

简答题 program program3;var u:array[0..3] of integer; a,b,c,x,y,z:integer;begin read(u[0],u[1],u[2],u[3]); a:=u[0]+u[1]+u[2]+u[3]-5; b:=u[0]*(u[1]-u[2] div u[3]+8); c:=u[0]*u[1] div u[2] * u[3]; x:=(a+b+2)*3-u[(c+3) mod 4]; y:=(c*100-13) div a div (u[b mod 3]*5); if ((x+y) mod 2=0) then z:=(a+b+c+x+y) div 2; z:=(a+b+c-x-y)*2; writeln(x+y-z); read(a);end.输出：_____________________。

简答题 program program4 ;var c:array[1..2] of string[200]; s:array[1..10] of integer; m,n,i:integer ;procedure numara;var cod:boolean; i,j,nr:integer;begin for j:=1 to n do begin nr:=0;cod:=true; for i:=1 to m do if c[i,j]='1' then begin if not cod then begin cod:=true;inc(s[nr]);nr:=0; end end else begin if cod then begin nr:=1;cod:=false ; end else inc(nr); end; if not cod then inc(s[nr]); end; end; begin readln(m,n); for i:=1 to m do readln(c[i]); numara; for i:=1 to m do if s[i] <>0 then write(i,' ',s[i],' '); read(i); end.输出：_____________________。

单选题下列说法中，正确的是( )。

简答题麦森数（Mason.pas）【问题描述】形如的素数称为麦森数，这时P一定也是个素数。但反过来不一定，即如果P是个素数，不一定也是素数。到1998年底，人们已找到了37个麦森数。最大的一个是P=3021377，它有909526位。麦森数有许多重要应用，它与完全数密切相关。任务：从文件中输入P（1000<P<3100000），计算的位数和最后500位数字（用十进制高精度数表示）【输入格式】文件中只包含一个整数P（1000<P<3100000）【输出格式】第一行：十进制高精度数的位数。第2-11行：十进制高精度数的最后500位数字。（每行输出50位，共输出10行，不足500位时高位补0）不必验证与P是否为素数。【输入样例】1279【输出样例】38600000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010407932194664399081925240327364085538615262247266704805319112350403608059673360298012239441732324184842421613954281007791383566248323464908139906605677320762924129509389220345773183349661583550472959420547689811211693677147548478866962501384438260291732348885311160828538416585028255604666224831890918801847068222203140521026698435488732958028878050869736186900714720710555703168729087

单选题下列说法中，错误的是( )。

简答题栈（Stack.pas）【问题背景】栈是计算机中经典的数据结构，简单的说，栈就是限制在一端进行插入删除操作的线性表。栈有两种最重要的操作，即pop（从栈顶弹出一个元素）和push（将一个元素进栈）。栈的重要性不言自明，任何一门数据结构的课程都会介绍栈。宁宁同学在复习栈的基本概念时，想到了一个书上没有讲过的问题，而他自己无法给出答案，所以需要你的帮忙。【问题描述】宁宁考虑的是这样一个问题：一个操作数序列，从1，2，一直到n（图示为1到3的情况），栈A的深度大于n。现在可以进行两种操作，1.将一个数，从操作数序列的头端移到栈的头端（对应数据结构栈的push操作）2. 将一个数，从栈的头端移到输出序列的尾端（对应数据结构栈的pop操作）使用这两种操作，由一个操作数序列就可以得到一系列的输出序列，下图所示为由1 2 3生成序列2 3 1的过程。（原始状态如上图所示）你的程序将对给定的n，计算并输出由操作数序列1，2，…，n经过操作可能得到的输出序列的总数。【输入格式】输入文件只含一个整数n（1≤n≤18）【输出格式】输出文件只有一行，即可能输出序列的总数目【输入样例】3【输出样例】5

简答题 75名儿童去游乐场玩。他们可以骑旋转木马，坐滑行轨道，乘宇宙飞船。已知其中20人这三种东西都玩过，55人至少玩过其中两种。若每玩一样的费用为5元，游乐场总共收入700，可知有_____名儿童没有玩过其中任何一种。

简答题三角形内切圆的面积题目描述：给出三角形三边的边长，求此三角形内切圆的面积。输入：三个正实数a、b、c（满足三角形三边关系），表示三角形三边边长。输出：三角形内切圆的面积，结果四舍五入到小数点后2位输入样例： 3 4 5输出样例： 3.14程序：①②③④⑤Program program1;Var a,b,c,r,s,t:real;begin read(a,b,c); s :=( ① )/2; t:= ② (s*(s-a)*(s-b)*(s-c)); r:=t/s; writeln(3.1415927 * r * ③ :0: ④ ;END.

简答题 program program2;var i,j:integer; str1,str2:string;begin str1:='pig-is-stupid'; str2:='clever'; str1[1]:='d'; str1[2]:='o'; i:=8; for j:=1 to 6 do begin str1[i]:=str2[j];inc(i); end; writeln(str1);end.输出：_____________________。