Noip2004普及组

标签：

T2：

鲁宾逊先生有一只宠物猴，名叫多多。这天，他们两个正沿着乡间小路散步，突然发现路边的告示牌上贴着一张小小的纸条：“欢迎免费品尝我种的花生！——熊字”。
鲁宾逊先生和多多都很开心，因为花生正是他们的最爱。在告示牌背后，路边真的有一块花生田，花生植株整齐地排列成矩形网格（如图1）。有经验的多多一眼就能看出，每棵花生植株下的花生有多少。为了训练多多的算术，鲁宾逊先生说：“你先找出花生最多的植株，去采摘它的花生；然后再找出剩下的植株里花生最多的，去采摘它的花生；依此类推，不过你一定要在我限定的时间内回到路边。”

我们假定多多在每个单位时间内，可以做下列四件事情中的一件：
1)      从路边跳到最靠近路边（即第一行）的某棵花生植株；
2)      从一棵植株跳到前后左右与之相邻的另一棵植株；
3)      采摘一棵植株下的花生；
4)      从最靠近路边（即第一行）的某棵花生植株跳回路边。
现在给定一块花生田的大小和花生的分布，请问在限定时间内，多多最多可以采到多少个花生？注意可能只有部分植株下面长有花生，假设这些植株下的花生个数各不相同。

例如在图2所示的花生田里，只有位于(2, 5), (3, 7), (4, 2), (5, 4)的植株下长有花生，个数分别为13, 7, 15, 9。沿着图示的路线，多多在21个单位时间内，最多可以采到37个花生。

输入
输入文件peanuts.in的第一行包括三个整数，M, N和K，用空格隔开；表示花生田的大小为M * N（1 <= M, N <= 20），多多采花生的限定时间为K（0 <= K <= 1000）个单位时间。接下来的M行，每行包括N个非负整数，也用空格隔开；第i + 1行的第j个整数Pij（0 <= Pij <= 500）表示花生田里植株(i, j)下花生的数目，0表示该植株下没有花生。
输出
输出文件peanuts.out包括一行，这一行只包含一个整数，即在限定时间内，多多最多可以采到花生的个数。

样例输入
6 7 21
0 0   0 0 0   0 0
0 0   0 0 13 0 0
0 0   0 0 0   0 7
0 15 0 0 0   0 0
0 0   0 9 0   0 0
0 0   0 0 0   0 0

样例输出
37

数据范围限制
提示
【样例输入2】
6 7 20
0 0 0 0 0 0 0
0 0 0 0 13 0 0
0 0 0 0 0 0 7
0 15 0 0 0 0 0
0 0 0 9 0 0 0
0 0 0 0 0 0 0
【样例输出2】
28

这道题就是纯粹的模拟啊，细心点就可以AC了。

代码：

var
        c:array[0..400,1..3] of Longint;
        a:array[1..20,1..20] of Longint;
        m,n,k,i,j,len,ans,way,x,y:longint;
procedure sort(l,r:Longint);
var
        i,j,mid,P:Longint;
begin
        i:=l; j:=r;
        mid:=c[(l+r) div 2,1];
        while i<j do
        begin
                while c[i,1]>mid do inc(i);
                while c[j,1]<mid do dec(j);
                if i<=j then
                begin
                        c[0]:=c[i]; c[i]:=c[j]; c[j]:=c[0];
                        inc(i); dec(j);
                end;
        end;
        if l<j then sort(l,j);
        if i<r then sort(i,r);
end;

begin
        readln(m,n,k);
        for i:=1 to m do
                for j:=1 to n do
                begin
                        read(a[i,j]);
                        if a[i,j]>0 then
                        begin
                                inc(len);
                                c[len,1]:=a[i,j];
                                c[len,2]:=i;
                                c[len,3]:=j;
                        end;
                end;

        sort(1,len);
        if c[1,2]*2+1>k then
        begin
                writeln(0);
                halt;
        end;
        ans:=c[1,1]; x:=c[1,2]; y:=c[1,3]; way:=x+1;
        for i:=2 to len do
                if way+abs(c[i,2]-x)+abs(c[i,3]-y)+1+c[i,2]<=k then
                begin
                        inc(ans,c[i,1]);
                        way:=way+abs(c[i,2]-x)+abs(c[i,3]-y)+1;
                        x:=c[i,2];
                        y:=c[i,3];
                end else break;

        writeln(ans);
end.

T3:

我们可以把由“0”和“1”组成的字符串分为三类：全“0”串称为B串，全“1”串称为I串，既含“0”又含“1”的串则称为F串。
FBI树是一种二叉树[1]，它的结点类型也包括F结点，B结点和I结点三种。由一个长度为2N的“01”串S可以构造出一棵FBI树T，递归的构造方法如下：

T的根结点为R，其类型与串S的类型相同；
若串S的长度大于1，将串S从中间分开，分为等长的左右子串S1和S2；由左子串S1构造R的左子树T1，由右子串S2构造R的右子树T2。
现在给定一个长度为2N的“01”串，请用上述构造方法构造出一棵FBI树，并输出它的后序遍历[2]序列。
[1] 二叉树：二叉树是结点的有限集合，这个集合或为空集，或由一个根结点和两棵不相交的二叉树组成。这两棵不相交的二叉树分别称为这个根结点的左子树和右子树。
[2] 后序遍历：后序遍历是深度优先遍历二叉树的一种方法，它的递归定义是：先后序遍历左子树，再后序遍历右子树，最后访问根。

输入
输入文件fbi.in的第一行是一个整数N（0 <= N <= 10），第二行是一个长度为2N的“01”串。
输出
输出文件fbi.out包括一行，这一行只包含一个字符串，即FBI树的后序遍历序列。

样例输入
3
10001011
样例输出
IBFBBBFIBFIIIFF

【数据规模】
对于40%的数据，N <= 2；
对于全部的数据，N <= 10。

FBI树这道题目就是dg一个字符串，然后按照题目要求输出即可，很简单，代码：

var
        n:longint;
        s:ansistring;
procedure dfs(s:ansistring);
var
        i:Longint;
        bz1,bz2:boolean;
begin
        if length(s)>1 then
        begin
                dfs(copy(s,1,length(s) div 2));
                dfs(copy(s,length(s) div 2+1,length(s) div 2));
        end;
        bz1:=false;
        bz2:=false;
        for i:=1 to length(s) do
                if s[i]='0' then bz1:=true else bz2:=true;
        if bz1 and bz2 then write('F') else
        if not bz1 then     write('I') else
                            write('B');
end;
begin
        readln(n);
        readln(s);
        dfs(s);
end.

人类终于登上了火星的土地并且见到了神秘的火星人。人类和火星人都无法理解对方的语言，但是我们的科学家发明了一种用数字交流的方法。这种交流方法是这样的，首先，火星人把一个非常大的数字告诉人类科学家，科学家破解这个数字的含义后，再把一个很小的数字加到这个大数上面，把结果告诉火星人，作为人类的回答。
火星人用一种非常简单的方式来表示数字——掰手指。火星人只有一只手，但这只手上有成千上万的手指，这些手指排成一列，分别编号为1，2，3……。火星人的任意两根手指都能随意交换位置，他们就是通过这方法计数的。
一个火星人用一个人类的手演示了如何用手指计数。如果把五根手指——拇指、食指、中指、无名指和小指分别编号为1，2，3，4和5，当它们按正常顺序排列时，形成了5位数12345，当你交换无名指和小指的位置时，会形成5位数12354，当你把五个手指的顺序完全颠倒时，会形成54321，在所有能够形成的120个5位数中，12345最小，它表示1；12354第二小，它表示2；54321最大，它表示120。下表展示了只有3根手指时能够形成的6个3位数和它们代表的数字：

输入
输入文件martian.in包括三行，第一行有一个正整数N，表示火星人手指的数目（1 <= N <= 10000）。第二行是一个正整数M，表示要加上去的小整数（1 <= M <= 100）。下一行是1到N这N个整数的一个排列，用空格隔开，表示火星人手指的排列顺序。
输出
输出文件martian.out只有一行，这一行含有N个整数，表示改变后的火星人手指的排列顺序。每两个相邻的数中间用一个空格分开，不能有多余的空格。

样例输入
5
3
1 2 3 4 5
样例输出
1 2 4 5 3

数据范围限制
提示
【数据规模】
对于30%的数据，N<=15；
对于60%的数据，N<=50；
对于全部的数据，N<=10000；

var
        c:array[0..10000] of Longint;
        bz:array[1..10001] of boolean;
        a:array[1..10000] of Longint;
        n,m,i,j,k,len,w,q:longint;
begin
        readln(n);
        readln(m);
        for i:=1 to n do
                read(a[i]);
        for i:=1 to m do
                for j:=n-1 downto 1 do
                begin
						fillchar(bz,sizeof(bz),false);				
                        for k:=j+1 to n do
                                bz[a[k]]:=true;
                        for w:=a[j]+1 to n do
                                if bz[w] then break;
                        if bz[w] then
                        begin
                                q:=a[j];
                                bz[q]:=true;
                                a[j]:=w;
                                bz[a[j]]:=false;
                                c[0]:=0;
                                len:=0;
                                for k:=1 to n do
                                        if bz[k] then
                                        begin
                                                inc(c[0]);
                                                c[c[0]]:=k;
                                        end;
                                for k:=j+1 to n do
                                begin
                                        inc(len);
                                        a[k]:=c[len];
                                end;                                
                                break;
                        end;                        
                end;
        for i:=1 to n-1 do
                write(a[i],' ');
        writeln(a[n]);
end.

var
        a:array[1..10000] of longint;
        bz:Array[1..10000] of boolean;
        n,m,i,tot:longint;
        flag:boolean;
procedure dfs(k:Longint);
var
        i:Longint;
begin
        if k>n then
        begin
                inc(tot);
                flag:=false;
                if tot=m then
                begin
                        for i:=1 to n do
                                write(a[i],' ');
                        halt;
                end;
                exit;
        end;
        for i:=1 to n do
                if (bz[i]) and (a[k]<i) then
                begin
                        bz[i]:=false;
                        a[k]:=i;
                        dfs(k+1);
                        a[k]:=0;
                        bz[i]:=true;
                end;
end;
begin
        readln(n,m);
        for i:=1 to n do
                read(a[i]);
        for i:=n downto 1 do
        begin
                bz[a[i]]:=true;
                dfs(i);
                a[i]:=0;
        end;
end.

Noip2004普及组

标签：

原文地址：http://blog.csdn.net/john_pascal/article/details/51235071