NOIP2011复赛试题

NOIP2011复赛试题

(2012-10-18 07:44:21)

转载▼

标签： 教育

分类： 教育教学

Day1

铺地毯

【问题描述】

为了准备一个独特的颁奖典礼，组织者在会场的一片矩形区域（可看做是平面直角坐标系的第一象限）铺上一些矩形地毯。一共有n 张地毯，编号从1 到n 。现在将这些地毯按照编号从小到大的顺序平行于坐标轴先后铺设，后铺的地毯覆盖在前面已经铺好的地毯之上。地毯铺设完成后，组织者想知道覆盖地面某个点的最上面的那张地毯的编号。注意：在矩形地毯边界和四个顶点上的点也算被地毯覆盖。

【输入】

输入文件名为 carpet.in 。

输入共 n+2 行。

第一行，一个整数 n ，表示总共有n 张地毯。

接下来的 n 行中，第i+1 行表示编号i 的地毯的信息，包含四个正整数a ，b ，g ，k ，每两个整数之间用一个空格隔开，分别表示铺设地毯的左下角的坐标（a ，b ）以及地毯在x 轴和y 轴方向的长度。

第 n+2 行包含两个正整数x 和y ，表示所求的地面的点的坐标（x ，y ）。

【输出】

输出文件名为 carpet.out 。

输出共 1 行，一个整数，表示所求的地毯的编号；若此处没有被地毯覆盖则输出-1。

【输入输出样例 1】

顺序编号，相同数字表示相同颜色）。输入数据保证初始棋盘中没有可以消除的方块。【输出】

输出文件名为mayan.out。

如果有解决方案，输出n 行，每行包含3 个整数x，y，g，表示一次移动，每两个整数之间用一个空格隔开，其中（x，y）表示要移动的方块的坐标，g 表示移动的方向，1 表示向右移动，-1 表示向左移动。注意：多组解时，按照x 为第一关健字，y 为第二关健字，1优先于-1，给出一组字典序最小的解。游戏界面左下角的坐标为（0，0）。如果没有解决方案，输出一行，包含一个整数-1。

【输入输出样例1】

var

fin,fout:text;

i,j,k,l,r,m,n,x,y,s,t,ans:longint;

a:array[0..11000]of juxing;

t1,t2,t3,t4:longint;

procedure pin;

var

i,j,k:longint;

begin

readln(fin,n);

fillchar(a,sizeof(a),0);

for i:=1 to n do

begin

readln(fin,t1,t2,t3,t4);

a[i].x1:=t1;

a[i].y1:=t2;

a[i].x2:=t1+t3;

a[i].y2:=t2+t4;

end;

readln(fin,x,y);

end;

function ok(i:longint):boolean;

begin

if (a[i].x1<=x)and(x<=a[i].x2) then if (a[i].y1<=y)and(y<=a[i].y2) then exit(true);

exit(false);

end;

procedure main;

var

i,j,k:longint;

begin

ans:=-1;

for i:=1 to n do

if ok(i) then

ans:=i;

end;

procedure pout;

var

i,j,k:longint;

begin

writeln(fout,ans);

end;

begin

assign(fin,proname+'.in');

assign(fout,proname+'.out');

reset(fin);

rewrite(fout);

//time:=now;

pin;

main;

pout;

//writeln(fout,(now-time)*24*3600*1000:0:0); close(fin);

close(fout);

end.

选择客栈

//O(nk)

program hotel;

//uses sysutils;

const

proname='hotel';

type

kezhan=record

color,cost:longint;

end;

var

fin,fout:text;

i,j,k,l,r,m,n,x,y,s,t:longint;

a:array[-10..200100]of kezhan;

sum:array[-10..200100,-10..60]of longint; colorsum,mincost:longint;

cafe:array[-10..200100]of longint;

v:array[-10..200100]of boolean;

ans:int64;

procedure pin;

var

i,j,k:longint;

begin

readln(fin,n,colorsum,mincost);

fillchar(a,sizeof(a),0);

for i:=1 to n do

readln(fin,a[i].color,a[i].cost);

end;

function find(x:longint):longint;

var

i,j,k,mid:longint;

begin

l:=1;

r:=s;

find:=-1;

repeat

mid:=(l+r) shr 1;

if x<=cafe[mid] then

begin

r:=mid-1;

find:=cafe[mid];

end

else

l:=mid+1;

until l>r;

end;

procedure main;

var

i,j,k:longint;

begin

for i:=0 to colorsum-1 do

sum[0,i]:=0;

for i:=1 to n do

begin

sum[i]:=sum[i-1];

sum[i,a[i].color]:=sum[i-1,a[i].color]+1; end;

s:=0;

fillchar(cafe,sizeof(cafe),0);

fillchar(v,sizeof(v),false);

for i:=1 to n do

if a[i].cost<=mincost then

begin

inc(s);

cafe[s]:=i;

v[i]:=true;

end;

ans:=0;

for i:=1 to n-1 do //mei ju di yi ge ren

begin

if v[i] then

begin

ans:=ans+(sum[n,a[i].color]-sum[i,a[i].color]); end

else

begin

j:=find(i);

if j=-1 then exit;

ans:=ans+(sum[n,a[i].color]-sum[j-1,a[i].color]); end;

end;

end;

procedure pout;

var

i,j,k:longint;

begin

writeln(fout,ans);

end;

begin

assign(fin,proname+'.in');

assign(fout,proname+'.out');

reset(fin);

rewrite(fout);

//time:=now;

pin;

main;

pout;

//writeln(fout,(now-time)*24*3600*1000:0:0);

close(fin);

close(fout);

end.

mayan游戏

program mayan;

//uses sysutils;

const

proname='mayan';

type

game=record

data:array[0..8,0..6]of longint; end;

var

fin,fout:text;

i,j,k,l,r,m,n,x,y,s,t,ans:longint;

first:game;

b:array[0..10]of game;

caozuo:array[0..10,0..3]of longint; tt:array[0..8,0..6]of longint;

cut:array[0..11]of longint;

procedure pin;

var

i,j,k:longint;

begin

readln(fin,n);

fillchar(first,sizeof(first),0);

for j:=1 to 5 do

begin

i:=8;

repeat

read(fin,k);

if k=0 then break;

dec(i);

first.data[i,j]:=k;

until false;

readln(fin);

end;

end;

procedure swap(x,x1,y1,x2,y2:longint);

var

t:longint;

begin

t:=b[x].data[x1,y1];

b[x].data[x1,y1]:=b[x].data[x2,y2];

b[x].data[x2,y2]:=t;

end;

function ok(x:longint):boolean;

var

i,j,k:longint;

begin

ok:=true;

for i:=1 to 5 do

if b[x].data[7,i]<>0 then

exit(false);

end;

procedure down(x,lie:longint);

var

i,j,k:longint;

begin

for i:=6 downto 1 do

if (b[x].data[i,lie]<>0)and(b[x].data[i+1,lie]=0) then begin

for k:=7 downto 1 do

if b[x].data[k,lie]=0 then

break;

swap(x,i,lie,k,lie);

end;

function clear(x:longint):boolean;

var

i,j,k:longint;

l,r:longint;

step:longint;

begin

fillchar(tt,sizeof(tt),0);

l:=0;

r:=0;

step:=x;

clear:=false;

for i:=1 to 7 do

begin

for j:=1 to 5 do

if b[x].data[i,j]<>b[x].data[i,j-1] then

begin

r:=j-1;

if (l<>0)and(r-l+1>=3)and(b[x].data[i,l]<>0) then begin

for k:=l to r do

tt[i,k]:=1;

clear:=true;

end;

l:=j;

end;

if (5-l+1>=3)and(b[x].data[i,5]<>0) then

begin

for k:=l to 5 do

tt[i,k]:=1;

clear:=true;

end;

l:=0;

r:=0;

for i:=1 to 5 do

begin

for j:=1 to 7 do

if b[x].data[j,i]<>b[x].data[j-1,i] then

begin

r:=j-1;

if (l<>0)and(r-l+1>=3)and(b[x].data[l,i]<>0) then

begin

for k:=l to r do

tt[k,i]:=1;

clear:=true;

end;

l:=j;

end;

if (7-l+1>=3)and(b[x].data[l,i]<>0)and(b[x].data[7,i]<>0) then begin

for k:=l to 7 do

tt[k,i]:=1;

clear:=true;

end;

end;

for i:=1 to 7 do

for j:=1 to 5 do

if tt[i,j]=1 then

b[x].data[i,j]:=0;

end;

procedure dfs(step:longint);

var

begin

if step=n+1 then

begin

if ok(n+1) then

begin

for i:=1 to n do

writeln(fout,caozuo[i,1],' ',caozuo[i,2],' ',caozuo[i,3],' ');

close(fin);

close(fout);

halt;

end;

exit;

end;

//剪枝2

fillchar(cut,sizeof(cut),0);

for i:=1 to 5 do

for j:=1 to 7 do

inc(cut[b[step].data[j,i]]);

for i:=1 to 10 do

if (cut[i]=1)or(cut[i]=2) then

exit;

b[step+1]:=b[step];

for i:=1 to 4 do

for j:=7 downto 1 do

//剪枝1 这里有一个问题，即第一层为01101且操作数为1时，必须要向右移 //因此这个剪枝需要稍加修改，这段程序不能AC！！！

if (b[step+1].data[j,i]<>b[step+1].data[j,i+1]) then

begin

swap(step+1,j,i,j,i+1);

down(step+1,i+1);

down(step+1,i);

while clear(step+1) do

for k:=1 to 5 do

down(step+1,k);

caozuo[step,1]:=i-1;

caozuo[step,2]:=7-j;

caozuo[step,3]:=1;

dfs(step+1);

b[step+1]:=b[step];

end;

end;

procedure main;

var

i,j,k:longint;

begin

fillchar(b,sizeof(b),0);

fillchar(caozuo,sizeof(caozuo),0); b[1]:=first;

dfs(1);

end;

procedure pout;

var

i,j,k:longint;

begin

writeln(fout,-1);

end;

begin

assign(fin,proname+'.in');

assign(fout,proname+'.out');

reset(fin);

rewrite(fout);

//time:=now;

pin;

main;

pout;

//writeln(fout,(now-time)*24*3600*1000:0:0); close(fin);

close(fout);

end.

noip普及组复赛模拟试题26(答案)

1．数字反转(reverse.cpp/c/pas)【问题描述】给定一个整数，请将该数各个位上数字反转得到一个新数。新数也应满足整数的常见形式，即除非给定的原数为零，否则反转后得到的新数的最高位数字不应为零（参见样例2）。【输入】输入文件名为reverse.in。 输入共 1 行，一个整数N。 【输出】输出文件名为reverse.out。 输出共 1 行，一个整数，表示反转后的新数。 【输入输出样例1】reverse.in reverse.out 123 321 【输入输出样例2】Reverse.in reverse.out -380 -83 【数据范围】-1,000,000,000 ≤N≤1,000,000,000。 var s3,s1,s2:string; n,i:integer; begin assign(input,'reverse.in');reset(input); assign(output,'reverse.out');rewrite(output); read(s1); n:=length(s1); if s1[1]='-' then begin s2:='-'; for i:=1 to n-1 do s1[i]:=s1[i+1]; delete(s1,n,1); end; n:=length(s1); for i:=1 to n do s3:=s3+s1[n-i+1]; i:=1; while(s3[i]='0')and(length(s3)>1) do delete(s3,1,1); write(s2+s3); close(input);close(output); end. 2．统计单词数(stat.cpp/c/pas)【问题描述】一般的文本编辑器都有查找单词的功能，该功能可以快速定位特定单词在文章中的位置，有的还能统计出特定单词在文章中出现的次数。 现在，请你编程实现这一功能，具体要求是：给定一个单词，请你输出它在给定的文章 中出现的次数和第一次出现的位置。注意：匹配单词时，不区分大小写，但要求完全匹配， 即给定单词必须与文章中的某一独立单词在不区分大小写的情况下完全相同（参见样例1）， 如果给定单词仅是文章中某一单词的一部分则不算匹配（参见样例2）。 【输入】输入文件名为stat.in，2 行。 第 1 行为一个字符串，其中只含字母，表示给定单词； 第 2 行为一个字符串，其中只可能包含字母和空格，表示给定的文章。

noip普及组复赛模拟试题18

1. 话说去年苹果们被陶陶摘下来后都很生气，于是就用最先进的克隆技术把陶陶克隆了好多份>.<然后把他们挂在树上，准备摘取。摘取的规则是，一个苹果只能摘一个陶陶，且只能在它所能摘到的高度以下（即是小于关系）的最高的陶陶，如果摘不到的话只能灰溜溜的走开了>.<给出苹果数目及每个苹果可以够到的高度和各个陶陶的高度，求苹果们都摘完后剩下多少个陶陶…… 【输入格式】第一行为两个数，分别为苹果的数量n和陶陶的数量m（n,m<=2000）以下的n行，分别为各个苹果能够到的最大高度。再接下来的m行，分别为各个陶陶的高度。高度均不高于300。 当然了，摘取的顺序按照输入的“苹果够到的最大高度”的顺序来摘。 【输出格式】输出仅有一个数，是剩下的陶陶的数量 【样例输入】5 5↙9↙10↙2↙3↙1↙6↙7↙8↙9↙10 【样例输出】3 2. 某小学最近得到了一笔赞助，打算拿出其中一部分为学习成绩优秀的前5名学生发奖学金。期末，每个学生都有3门课的成绩：语文、数学、英语。先按总分从高到低排序，如果两个同学总分相同，再按语文成绩从高到低排序，如果两个同学总分和语文成绩都相同，那么规定学号小的同学排在前面，这样，每个学生的排序是唯一确定的。 任务：先根据输入的3门课的成绩计算总分，然后按上述规则排序，最后按排名顺序输出前5名学生的学号和总分。注意，在前5名同学中，每个人的奖学金都不相同，因此，你必须严格按上述规则排序。例如，在某个正确答案中，如果前两行的输出数据（每行输出两个数：学号、总分）是：7 279 5 279 这两行数据的含义是：总分最高的两个同学的学号依次是7号、5号。这两名同学的总分都是279（总分等于输入的语文、数学、英语三科成绩之和），但学号为7的学生语文成绩更高一些。如果你的前两名的输出数据是：5 279 7 279则按输出错误处理，不能得分。【输入】输入文件scholar.in包含n+1行： 第1行为一个正整数n，表示该校参加评选的学生人数。 第2到n+1行，每行有3个用空格隔开的数字，每个数字都在0到100之间。第j行的3个数字依次表示学号为j-1的学生的语文、数学、英语的成绩。每个学生的学号按照输入顺序编号为1~n（恰好是输入数据的行号减1）。 所给的数据都是正确的，不必检验。 【输出】输出文件scholar.out共有5行，每行是两个用空格隔开的正整数, 依次表示前5名学生的学号和总分。 【输入输出样例1】 scholar.in scholar.out 6 90 67 80 87 66 91 78 89 91 88 99 77 67 89 64 78 89 98 6 265 4 264 3 258 2 244 1 237 【输入输出样例2】 scholar.in scholar.out 8 80 89 89 8 265 2 264

NOIP竞赛模拟试题

NOIP2016普及组复赛模拟赛试卷 普及组 （请选手务必仔细阅读本页内容） 二．提交源程序文件名 三．编译命令（不包含任何优化开关） 注意事项： 1、文件名（程序名和输入输出文件名）必须使用英文小写。 2、C/C++中函数 main()的返回值类型必须是 int，程序正常结束时的返回值必须是 0。 3、统一评测时采用的机器配置为：CPU P4 3.0GHz，内存 2G，上述时限以此配置为准。 4、特别提醒：评测在Windows下进行，评测软件为cena8.0。

River Hopscotch (jump.pas/c/cpp) 【问题描述】 每年，奶牛们都举办一种特殊的跳房子游戏，在这个游戏中，大家小心翼翼地在河中的岩石上跳。这个游戏在一条笔直的河中进行，以一块岩石表示开始，以另一块距离起点L单位长度的岩石表示结束。在这两块岩石中间还有N 块岩石，每块的位置距离起点是 Di 个单位长度。 玩这个游戏的时候，每头牛从开始的那块岩石想办法要跳到表示结束的那块岩石上。中间只能在从某块岩石跳跃到另一块岩石，反复的这样跳。当然，不够敏捷的牛永远跳不到终点，最终只能落入河中。 农民 John 为他的牛感到自豪，每年都观看比赛。随着时间的推移，他对于那些胆小的只能跳过很短距离的牛感到厌烦。为了那些牛，其他农民会把岩石的间距弄得很小。他计划移除一些岩石，从而增加奶牛在跳跃时需要的最短距离。他不能移除开始和结束的两块岩石。但是除此之外他可以移除 M 块岩石。 FJ 希望知道他能够增加多少最短跳跃距离。求当他移除了M块岩石后，奶牛从开始跳到结束的岩石，每次跳跃的最短距离至多可以增加到多少。 【输入格式】 第1行: 三个用空格分开的整数，分别是 L, N 和 M。 第2..N+1行: 每行一个整数，表示中间N块岩石的位置，没有两块岩石处于同一位置。 【输出格式】 输出共一行一个整数，表示移除某M块岩石后，相邻岩石间距最小值的最大可能情况。 【输入样例】 25 5 2 2 14 11 21 17 【输出样例】 4 【输入说明】中间有 5 块岩石，坐标 2, 11, 14, 17 和 21。开始岩石在0，结束岩石在25。 【输出解释】没有移除任何岩石之前，最少需要跳2个单位长度，从0到2。当移除了位于 2 和 14的两块岩石后, 需要的最短跳跃距离就变成了4。(从 17 到 21 或从 21 到 25)。 【数据规模】 对于30%的数据： 0≤N≤100； 对于50%的数据： 0≤N≤5,000； 对于100%的数据：1≤L≤1,000,000,000；0≤N≤50,000；0

NOIP复赛模拟题一

NOIP复赛模拟题一 1、与3和5无关的数（num.cpp） 描述 一个正整数x,如果它能被x整除,或者它的十进制表示法中某个位数上的数字为x,则称其为与x相关的数.现求所有小于等于n(n<300)的与x无关的正整数的平方和. <300)的与x无关的正整数的平方和.

输入 输入第一行为一个整数N，表示小白鼠的数目。 下面有N行，每行是一只白鼠的信息。第一个为正整数，表示白鼠的重量，； 第二个为字符串，表示白鼠的帽子颜色，字符串长度不超过10个字符。 注意：白鼠的重量各不相同。 输出 按照白鼠的重量从小到大的顺序输出白鼠的帽子颜色。 样例输入 3 30 red 50 blue 40 green 样例输出 red green blue 3、滑雪(skate.cpp) 描述 Michael喜欢滑雪百这并不奇怪，因为滑雪的确很刺激。可是为了获得速度，滑的区域必须向下倾斜，而且当你滑到坡底，你不得不再次走上坡或者等待升降机来载你。Michael想知道载一个区域中最长的滑坡。区域由一个二维数组给出。数组的每个数字代表点的高度。下面是一个例子 1 2 3 4 5 16 17 18 19 6

全国信息学奥林匹克联赛(noip2013)复赛试题

全国信息学奥林匹克联赛（NOIP2013 ）复赛 普及组 1．记数问题 (count.cpp/c/pas) 【问题描述】 试计算在区间1 到n 的所有整数中，数字x （0 ≤x ≤ 9）共出现了多少次？例如，在1 到11 中，即在1、2、3、4 、5、6、7、8、9、10、11 中，数字1 出现了4 次。【输入】 输入文件名为count.in。 输入共1 行，包含2 个整数n 、x ，之间用一个空格隔开。 【输出】 输出文件名为count.out。 输出共1 行，包含一个整数，表示x 出现的次数。 【输入输出样例】 count.in count.out 11 1 4 【数据说明】 对于100%的数据，1≤ n ≤ 1,000,000，0 ≤x ≤ 9。 2．表达式求值 (expr.cpp/c/pas) 【问题描述】 给定一个只包含加法和乘法的算术表达式，请你编程计算表达式的值。 【输入】 输入文件为expr.in。 输入仅有一行，为需要你计算的表达式，表达式中只包含数字、加法运算符“+ ”和乘法运算符“*”，且没有括号，所有参与运算的数字均为0 到231-1 之间的整数。输入数据保 证这一行只有0~ 9、+ 、*这12 种字符。 【输出】 输出文件名为expr.out。 输出只有一行，包含一个整数，表示这个表达式的值。注意：当答案长度多于4 位时，请只输出最后4 位，前导0 不输出。 第2 页共5 页

【输入输出样例1】 expr.in expr.out 1+1*3+4 8 【输入输出样例2 】 expr.in expr.out 1+1234567890*1 7891 【输入输出样例3 】 expr.in expr.out 1+1000000003*1 4 【输入输出样例说明】 样例1 计算的结果为8，直接输出8。 样例2 计算的结果为1234567891，输出后4 位，即7891 。 样例3 计算的结果为1000000004，输出后4 位，即4 。 【数据范围】 对于30%的数据，0≤表达式中加法运算符和乘法运算符的总数≤ 100； 对于80%的数据，0≤表达式中加法运算符和乘法运算符的总数≤ 1000； 对于100%的数据，0≤表达式中加法运算符和乘法运算符的总数≤ 100000。 3．小朋友的数字 (number.cpp/c/pas) 【问题描述】 有n 个小朋友排成一列。每个小朋友手上都有一个数字，这个数字可正可负。规定每个 小朋友的特征值等于排在他前面（包括他本人）的小朋友中连续若干个（最少有一个）小朋友手上的数字之和的最大值。 作为这些小朋友的老师，你需要给每个小朋友一个分数，分数是这样规定的：第一个小朋友的分数是他的特征值，其它小朋友的分数为排在他前面的所有小朋友中（不包括他本人）， 小朋友分数加上其特征值的最大值。 请计算所有小朋友分数的最大值，输出时保持最大值的符号，将其绝对值对 p 取模后输出。 【输入】 输入文件为number.in。 第一行包含两个正整数n 、p ，之间用一个空格隔开。 第二行包含n 个数，每两个整数之间用一个空格隔开，表示每个小朋友手上的数字。

noip普及组复赛模拟试题17(附答案)

图书馆馆长正犯愁呢，原来，有一堆的书要他整理，每本书都有一个书号（<=32767),现在他有一本书，这本书的书号为K（<=32767),现在他要找出一本书号比这本书大的书和书号比这本小的书(但都要最接近图书馆馆长已有的书号），将找到的这两本书的书号加起来，并算出加起来以后的数是否为素数 Input 第一行二个数为N,K，表示几本书以及手中书的书号（<=32767) 第二行开始有N个整数，表示这些书的书号 Output 第一行一个数，表示两本书书号加起来的和 第二行一个字符，表示和是否为素数，若是则输出"Y"否则输出"F"（引号不打出）Sample Input 6 5 6 4 5 3 1 20 Sample Output 10 F program ex1148; var n,k,i,x,s:integer; a:array[0..32767] of integer; f:boolean; begin readln(n,k); fillchar(a,sizeof(a),0); for i:=1 to n do begin read(x); a[x]:=1; end; s:=0; for i:=k+1 to 32767 do if a[i]<>0 then begin s:=s+i;break; end; for i:=k-1 downto 1 do if a[i]<>0 then begin s:=s+i;break; end; f:=true; for i:=2 to trunc(sqrt(s)) do if s mod i=0 then begin f:=false;break;end; writeln(s); if f=true then write('Y') else write('F'); end. 输入12 7 8 12 18 7 11 3 20 15 14 26 21 16 输出11 Y 输入21 10

NOIP模拟试题

全国信息学奥林匹克联赛（NOIP2011)复赛 提高组 模拟模拟试题试题试题（二试） （二试）（请选手务必仔细阅读本页内容） 一.题目概况 中文题目名称密码子翻译苹果二叉树青蛙王子的口令 英文题目与子目录名cell apple order 可执行文件名cell apple order 输入文件cell.in apple.in order.in 输出文件cell.out apple.out order.out 每个测试点时限1秒1秒1秒测试点数目101010每个测试点分值101010附加样例文件有有 有 结果比较方式全文比较（过滤行末空格及文末回车） 题目类型 传统 传统 传统二.提交源程序文件名 三.运行内存限制 对于pascal 语言cell.pas apple.pas order.pas 对于C 语言cell.c apple.c order.c 对于C++语言 cell.cpp apple.cpp order.cpp 内存上限 128M 128M 128M

1.密码子翻译 （cell cell.pas/c/cpp) .pas/c/cpp)【问题描述】 DNA 是一切细胞生物的遗传物质。它能指导蛋白质的合成，从而控制细胞的新陈代谢和生物的性状。 中心法则（genetic central dogma ）是所有有细胞结构的生物所遵循的法则，它的主要内容是遗传信息从DNA 传递给mRNA ，再从mRNA 传递给蛋白质的转录和翻译的过程（如图）。 mRNA 是由许多核糖核苷酸组成的链状分子，但这些核糖核苷酸不外乎4种：腺嘌呤核糖核苷酸（A ），鸟嘌呤核糖核苷酸（G ），胞嘧啶核糖核苷酸（C ）和尿嘧啶核糖核苷酸（U ）。mRNA 上三个相邻的核糖核苷酸序列叫做密码子，一个密码子可以翻译成一个氨基酸，且密码子不重叠。已知：一条mRNA 只能翻译成若干种氨基酸，并且知道决定这些氨基酸的密码子。给出一条mRNA 的核糖核苷酸序列，请你计算出它最多能翻译成多少氨基酸。【输入】 输入文件名为cell.in 。 第一行，一个长度为l 的字符串，表示核糖核苷酸序列。 接下来若干行，每行一个密码子，只有这些密码子能够翻译成氨基酸。相同的密码子不重复出现。 输入数据仅由A 、G 、C 、U 四个大写字母组成。【输出】 输出文件名为cell.out 。 只有一个正整数N ，表示给出的核糖核苷酸序列组成的mRNA 最多能翻译成氨基酸的数目。 【输入输出样例1】【输入输出样例 1说明】 在核糖核苷酸序列ACACGAUC 中标出密码子：ACACGAUC 这样最多只能选取CAC 、 AUC 两个密码子翻译，即输出2。 cell cell.in .in cell.out ACACGAUC CAC AUC CGA 2

NOIP复赛模拟试题I.doc

NOIP 复赛模拟试题（I ） 1. 医院设置（hospital.cpp ） 【问题描述】 设有一棵二叉树（如下閔，其中圈中的数字表示结点中居民的人口，圈边h 数字表示结 点编号。现在要求在某个结点上建立一个返院，使所奋佔W 所走的路程之和为最小，同吋约 定，相邻结点之 M 的距离为1。就木阁而言，若医院建在1处，则距离和 =4+12+2*20+2*40=136；若民院建在 3 处， 则距离和=4*2+13+20+40=81…… 【输入格式（hospital.in ）］ 其中第一行一个整数n,表示树的结点数（n<=100）。接K 来的n 行 每行描述了 一个结点的状况，包含三个整数，整数之间川空格（一 个或多个）分隔，其中：第一个数为店民人口数；第二个数为左链 接，为0表示无链接；第三个数为右链接，为0表示无链接。 【输出格式（hospital.out ）】 该文件只有一个整数，表示最小距离和。 【样例输入】 5 1323 400 12 4 5 20 0 0 40 0 0 【样例输出】 81 2. 而税（area.cpp ） 【问题描述】 编程计算由“ * ”号围成的下列图形的面积。面积计算方法是统计*号所围成的闭合曲线中 水平线和垂直线交点的数目。如右K 图所示，在10*10的二维数组中，有“围住了 15个点， 因此面积为15。在输入中，为了方便起见使用“1”来代替右图中的“*”。。 【输入格式（area.in ）】 ° 输入数据保证仅冇一个10*10的01矩阵 ° 【输出格式（area.out ）】 o 0 0 0 0 一个数，表示面积 【样例输入】

0000000000 0000111000 0000100100 00000 10010 0010001010 ()10101 0 0 1 0 010******* 0010000100 000 1111100 0000000000 【样例输出】 15 3.极值问题(number.cpp) 【问题描述】 已知m、n为整数，且满足下列两个条件： ①m、nG { 1 , 2 ,…，k},即Km, n^k ②(n2—m*n —m2) 2=1 你的任务是：编程输入正整数k (l

2014noip复赛模拟练习11(答案)

新学年就要开始了，爸爸把N元钱给了小青，让他购买一批文具，并作了以下要求：只能买圆珠笔、铅笔和铅笔芯，并且每样至少买一支，总数要超过30支，而且钱要全部花完。当小青去到文具店时，发现圆珠笔8角钱一支、铅笔2角钱一支、铅笔芯1角钱一支。小青怎么买才能符合爸爸的要求呢？请你编个程序帮他算出符合购买要求的所有方案总数。 Input 一个整数N，表示购买文具一共的元数。（1 <= N <= 50） Output 一个整数，即符合购买要求的所有方案总数。 Sample Input 8 Sample Output 135 Source program ex1294; var n,i,j,k,sum:integer; begin readln(n); n:=n*10; sum:=0; for i:=1 to n div 8 do for j:=1 to n div 2 do begin k:=n-i*8-j*2; if (i+j+k>30) and (k>1) then inc(sum); end; writeln(sum); end. 任意一个数都可以由1、2、3三个数组合而成。如4有以下7种组合方案： 1 + 1 + 1 + 1 1 + 1 + 2 1 + 2 + 1 2 + 1 + 1 2 + 2 1 + 3 3 + 1 你的问题来了，对于给定的一个数，请你计算出这个整数可以有多少个组合方案，其和由1、2、3组合而成。 数据输入 输入包含多组数据，每一组数据中，输入数据的第一行为一个整数n（1<=n<=20），要分解的数。

数据输出 这个整数的分解的组合数。 样例输入 4 样例输出 7 分析 用f(n)表示将n按照1、2、3分解的方法数 当n=1时, f(1)=1; {1} 当n=2时， f(2)=2; {1+1},{2} 当n=3时， f(3)=3; {1+1+1},{1+2},{2+1},{3} 当 n=k时 (k>=4) 考虑最后添加的一个数字可能是1、2、3。 所以很容易推出递推公式 f(k)=f(k-1)+f(k-2)+f(k-3). var f:array[1..20] of longint; i,n:longint; procedure init; begin assign(input,'divide.in'); assign(output,'divide.out'); reset(input); rewrite(output); end; procedure endit; begin close(input); close(output); end; begin init; readln(n); f[1]:=1; f[2]:=2;

noip普及组复赛模拟试题8(答案)

Description 给定整数n(32位以内),判断它是否为2的方幂。是就输出'yes'，否则输出'no'。 Input 一个整数n。 Output 一个字符串 Sample Input 4 Sample Output yes Hint n > 0 && ( ( n & ( n - 1 ) ) == 0 貌似是数学问题，套用了提示 program ex1560; var n:longint; begin readln(n); if (n>0) and (n and (n-1)=0) then write('yes') else write('no'); end. 输入 127 输出 NO 输入 262144 输出 YES 输入 68719476736 输出 YES 问题描述： 计算机软件版本通常被用来区分某种软件在不同时间的发布。大部分软件版本号都是用“.”分隔的非负数的序列。对两个不同的版本A = a1.a2.a3…an和B = b1.b2.b3…bm，如果下面两个条件之一成立，我们认为版本A要比版本B新： 1．对某个i，我们有：对所有j < i, ai > bi 和aj = bj； 2．n比m大，而且对所有i < m, ai = bi。 (ai和bi都不超过LONGINT) 在这个问题里，你要对给定的一组版本号，按照上面的定义从旧到新排序。 输入文件（VERSIONS.IN）： 输入文件第一行是一个整数N（N<=20），表示要排序的版本数。接下来的N行每行一个版本号。每个版本号是长度不超过50的字符串。 输出文件（VERSIONS.OUT）： 将排好序的结果以每行一个版本号输出。 输入输出样例： VERSIONS.IN 4 3.0.5 1 2.4 2.4.6 VERSIONS.OUT 1

NOIP2007_提高组_复赛试题

全国信息学奥林匹克联赛（NOIP2007）复赛提高组 1．统计数字 (count.pas/c/cpp) 【问题描述】 某次科研调查时得到了n 个自然数，每个数均不超过1500000000（1.5*109）。已知不相同的数 不超过10000 个，现在需要统计这些自然数各自出现的次数，并按照自然数从小到大的顺序输出统计结果。【输入】 输入文件count.in包含n+1 行：第1 行是整数 n，表示自然数的个数。 第2~n+1 行每行一个自然数。 【输出】输出文件count.out包含m 行（m 为n 个自然数中不相同数的个数），按照自然数从小到大 的顺序输出。每行输出两个整数，分别是自然数和该数出现的次数，其间用一个空格隔开。 【输入输出样例】 【限制】 40%的数据满足：1<=n<=1000 80%的数据满足：1<=n<=50000 100%的数据满足：1<=n<=200000，每个数均不超过1 500 000 000（1.5*109）

2．字符串的展开 (expand.pas/c/cpp) 【问题描述】 在初赛普及组的“阅读程序写结果”的问题中，我们曾给出一个字符串展开的例子：如果在输入的字符串中，含有类似于“d-h”或“4-8”的子串，我们就把它当作一种简写，输出时，用连续递增的字母或数字串替代其中的减号，即，将上面两个子串分别输出为“defgh”和“45678”。在本题中，我们通过增加一些参数的设置，使字符串的展开更为灵活。具体约定如下：（1）遇到下面的情况需要做字符串的展开：在输入的字符串中，出现了减号“-”，减号两侧 同为小写字母或同为数字，且按照ASCII 码的顺序，减号右边的字符严格大于左边的字符。 （2）参数p1：展开方式。p1=1 时，对于字母子串，填充小写字母；p1=2 时，对于字母子串， 填充大写字母。这两种情况下数字子串的填充方式相同。p1=3 时，不论是字母子串还是数字子串， 都用与要填充的字母个数相同的星号“*”来填充。 （3）参数p2：填充字符的重复个数。p2=k 表示同一个字符要连续填充k 个。例如，当p2=3 时，子串“d-h”应扩展为“deeefffgggh”。减号两侧的字符不变。 （4）参数p3：是否改为逆序：p3=1 表示维持原有顺序，p3=2 表示采用逆序输出，注意这时仍然不包括减号两端的字符。例如当p1=1、p2=2、p3=2 时，子串“d-h”应扩展为“dggffeeh”。 （5）如果减号右边的字符恰好是左边字符的后继，只删除中间的减号，例如：“d-e”应输出为“de”，“3-4”应输出为“34”。如果减号右边的字符按照ASCII 码的顺序小于或等于左边字符， 输出时，要保留中间的减号，例如：“d-d”应输出为“d-d”，“3-1”应输出为“3-1”。 【输入】 输入文件expand.in包括两行： 第1 行为用空格隔开的3 个正整数，依次表示参数p1，p2，p3。 第2 行为一行字符串，仅由数字、小写字母和减号“-”组成。行首和行末均无空格。 【输出】 输出文件expand.out只有一行，为展开后的字符串。

noip普及组复赛模拟试题22(答案)

军方截获的信息由n（n<=30000）个数字组成，因为是敌国的高端秘密，所以一时不能破获。最原始的想法就是对这n个数进行小到大排序，每个数都对应一个序号，然后对第i个是什么数感兴趣，现在要求编程完成。 【输入格式】 第一行n，接着是n个截获的数字，接着一行是数字k，接着是k行要输出数的序号。 【输出格式】 k行序号对应的数字。 【输入样例】Secret.in 5 121 1 126 123 7 3 2 4 3 【输出样例】Secret.out 7 123 121 program secret; const max=30000; var n,i,x,k:longint; a:array[1..max] of longint; procedure sort(l,r:longint); var i,j,t,mid:longint; begin i:=l;j:=r; mid:=a[(l+r)div 2]; repeat while a[i]mid do dec(j); if j>=i then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; inc(i); dec(j) end; until i>j; if l

assign(input,'secret.in'); assign(output,'secret.out'); reset(input); rewrite(output); readln(n); for i:=1 to n do read(a[i]); sort(1,n); readln(k); for i:=1 to k do begin readln(x); writeln(a[x]); end; close(input); close(output); end. 输入 15 12 10 36 127 126 123 75 89 101 999 777 654 456 890 134 6 2 4 3 9 10 14 输出12 75 36 127 134 890 输入24 8 18 12 24 434 10 36 127 126 123 75 89 101 999 777 654 456 890 134 555 221 108 888 656 8 5 4 3 19 20 14 17 10 输出24

NOIP复赛模拟题2

NOIP复赛测试题3 1、神牛果(cow.cpp) 【题目描述】 在某次膜拜大会上，一些神牛被要求集体膜拜。这些神牛被奖励每人吃一些神牛果。但是，每个神牛的肚量不一样。为了不显得某些人吃得太多，决定两人一组，使得吃得最多的那组吃得尽量少。（神牛数为偶数） 【输入格式】 第一行一个整数 n(<=10000) 。第二行有 n 个正整数，为给定的一列数字，表示每个神牛能吃多少神牛果。(数字均小于 1000000000) 【输出格式】 一个正整数，吃的最多的一组神牛吃的个数的最小值。 【输入样例】 4 1 5 2 8 【输出样例】 9 2、序列1(ones.cpp) 【题目描述】 输入一个不含因子2和5的整数n，计算在十进制下至少多少个连续的1能被n整除。【输入格式】 第一行为正整数t(<10000)；接下来t行，每行一个正整数n(≤10000)。 【输出格式】 对于每个数据，输出一个整数m，表示至少连续m个1能被n整除。 【输入样例】 2 3 9901 【输出样例】 3 12 【样例说明】 111能被3整除，而111111111111能被9901整除。 3、过桥问题(bridge.cpp) 【问题描述】 现在有N辆车要按顺序通过一个单向的小桥，由于小桥太窄，不能有两辆车并排通过，所以在桥上不能超车。另外，由于小桥建造的时间已经很久，所以只能承受有限的重量，记为MAX（吨），即任意时刻在桥上行驶的车辆的总重量不能超过MAX（吨）。因此，车辆在过桥的时候必须有管理员控制，将这N辆车按初始的顺序分组，每次让一个组过桥，并且只有

在一个组中的所有的车辆全部过桥之后才能让下一组车辆上桥，而每组车的过桥时间由该组中速度最慢的那辆车决定。现在，给出每辆车的重量和最大速度，编程将这N辆车分组，使得全部车辆通过小桥的时间最短。 【输入格式】 第一行有3个数，分别为MAX（吨）、Len（桥的长度，单位：Km）和N（以空格隔开）；接下来有N行，每行有两个数，分别表示每辆车的重量Ti（吨）和最大速度Vi(Km/h)。MAX<3000,Len<300,N<500,Ti

NOIP复赛模拟试题2

2013开明中学NOIP模拟试题2 题目 1、NBA总冠军（nba.pas/c/cpp） 【问题描述】 又要考试了，Ljw决定放松一下，就打开电视，看见了篮球赛，他立即想到了每年的NBA 总冠军队伍。由于复习紧张，他只记起了一部分，记忆的内容是正确的，可能不是按时间顺序排列的，记忆的内容可能有重复。 现在请求学过编程的你帮助Ljw，按时间依次输出总冠军的球队（不能重复）。 （NBA 从1947A.D到2009A.D） 【输入】 输入文件nba.in的第一行是一个整数n（0

NOIP2017_提高组复赛试题day2

CCF全国信息学奥林匹克联赛（NOIP2017）复赛 提高组 day2 （请选手务必仔细阅读本页内容） 注意事项： 1、文件名（程序名和输入输出文件名）必须使用英文小写。 2、C/C++中函数main()的返回值类型必须是int，程序正常结束时的返回值必须是0。 3、全国统一评测时采用的机器配置为：CPU AMD Athlon(tm) II x2 240 processor，2.8GHz， 内存4G，上述时限以此配置为准。 4、只提供Linux格式附加样例文件。 5、提交的程序代码文件的放置位置请参照各省的具体要求。 6、特别提醒：评测在当前最新公布的NOI Linux下进行，各语言的编译器版本以其为准。

1．奶酪 (cheese.cpp/c/pas) 【问题描述】 现有一块大奶酪，它的高度为h，它的长度和宽度我们可以认为是无限大的，奶酪中间有许多半径相同的球形空洞。我们可以在这块奶酪中建立空间坐标系，在坐标系中，奶酪的下表面为z=0，奶酪的上表面为z=h。 现在，奶酪的下表面有一只小老鼠Jerry，它知道奶酪中所有空洞的球心所在的坐标。如果两个空洞相切或是相交，则Jerry可以从其中一个空洞跑到另一个空洞，特别地，如果一个空洞与下表面相切或是相交，Jerry则可以从奶酪下表面跑进空洞；如果一个空洞与上表面相切或是相交，Jerry则可以从空洞跑到奶酪上表面。 位于奶酪下表面的Jerry想知道，在不破坏奶酪的情况下，能否利用已有的空洞跑到奶酪的上表面去? 空间内两点P1(x1,y1,z1)、P2(x2,y2,z2)的距离公式如下： dist(P1,P2)=√(x1?x2)+(y1?y2)+(z1?z2) 【输入格式】 输入文件名为cheese.in。 每个输入文件包含多组数据。 输入文件的第一行，包含一个正整数T，代表该输入文件中所含的数据组数。 接下来是T组数据，每组数据的格式如下： 第一行包含三个正整数n，h和r，两个数之间以一个空格分开，分别代表奶酪中空洞的数量，奶酪的高度和空洞的半径。 接下来的n行，每行包含三个整数x、y、z，两个数之间以一个空格分开，表示空洞球心坐标为(x,y,z)。 【输出格式】 输出文件名为cheese.out。 输出文件包含T行，分别对应T组数据的答案，如果在第i组数据中，Jerry能从下表面跑到上表面，则输出“Yes”，如果不能，则输出“No”（均不包含引号）。

2014noip复赛模拟练习10(答案)

喜羊羊运动会——撑杆跳高 【试题描述】 运动会马上就要开始了，撑杆跳高场地上，羊村的N（3 <= N <= 100 ）个村民正排成一队有秩序地练习。“好高啊，我都不知道自己能不能跳过去”，懒羊羊慢条斯理地说道。“这么高，不知道最少要几只羊叠在一起才会够得着”，沸羊羊向来比较喜欢思考数学问题，这样说道。 试编一程序，计算出最少要几只羊叠在一起（一头羊踩在另一头羊的背上）才能够得着横杆（所谓够得着，指羊的身高总和不小于横竿的高度B）。如果N头羊叠在一起，都够不着横竿，则输出“Impossible” 【输入描述】 第一行：两个整数N（3 <= N <= 100 ）和B，表示队伍中羊的总数以及横竿的高度。 第二行：空格隔开的N个整数，表示每只羊的身高Hi（1 <= Hi <= 10000 ）。【输出描述】一行，一个整数，表示最少要几头羊才能够到横竿。如果N只羊叠在一起都够不着则输出“Impossible”。 【输入样例】 样例1： 5 23 6 8 1 3 9 样例2： 6 16 1 2 3 1 3 5 【输出样例】 样例1：3 样例2：Impossible 【试题来源】武进区夏令营程序设计小能手PK program ex1797; var n,i,j,t,sum:integer; b,s:real; a:array[1..100] of integer; begin readln(n,b); for i:=1 to n do read(a[i]); for i:=1 to n-1 do for j:=i+1 to n do if a[i]

noip普及组复赛模拟试题23(答案)

小华的寒假作业上，有这样一个趣味填空题： 给出用等号连接的两个整数，如“1234＝127”。当然，现在这个等号是不成立的。题目让你在左边的整数中间某个位置插入一个加号，看有没有可能让等号成立。以上面的式子为例，如果写成123+4=127，这就可以了。 请你编写一个程序来解决它。 Input 只有那个不相等的式子。已知，等号两边的整数都不会超过200000000000。 Output 如果存在这样的方案，请输出那个正确的式子。如果不存在解决方案，请输出“Impossible!”（引号中的部分）。 Sample Input 1234=127 Sample Output 123+4=127 program ex1075; var i,len,p:integer; a1,a2,b:longint; st,st1,st2,st3:string; begin readln(st); p:=pos('=',st); st1:=copy(st,1,p-1); delete(st,1,p); val(st,b,x); len:=length(st1); for i:=1 to len-1 do begin st2:=copy(st1,1,i); val(st2,a1); st3:=copy(st1,i+1,len-i); val(st3,a2); if a1+a2=b then begin writeln(a1,'+',a2,'=',b);exit; end; end; writeln('Impossible!') end. 输入45789=5793 输出4+5789=5793 输入34345678932=343456821 输出343456789+32=343456821 输入123456789=12345 输出Impossible! 1985764235=1985999 输出 1985764+235=1985999 给若干个字符串，判断该字符串最多重复了几次，比如，给ababab，结果是3，因为ab重复了3次，因为求最多重复了几次，所以结果不是1，在比如abcdabcd结果是2，abcd 结果是1.输入一组字符串，以“。”作为结束标志。