1112 求先序排列【NOIP2001普及组】 1113 装箱问题【NOIP2001普及组】

求先序排列【NOIP2001普及组】

Time Limit:10000MS Memory Limit:65536K

Total Submit:4 Accepted:4

Description

给出一棵二叉树的中序与后序排列。求出它的先序排列。（约定树结点用不同的大写字母表示，长度<= 8）。

样例输入：

BADC

BDCA

样例输出：

ABCD

Input

Output

Sample Input

BADC

BDCA

Sample Output

ABCD

Source

∙var

∙ s1,s2:string;

∙procedure dfs(s1,s2:string);

∙var ch:char;

∙ p:longint;

∙begin

∙ if length(s1)=0 then exit;

∙ ch:=s2[length(s2)];

∙ write(ch);

∙ p:=pos(ch,s1);

∙ dfs(copy(s1,1,p-1),copy(s2,1,p-1));

∙ dfs(copy(s1,p+1,length(s1)-p),copy(s2,p,length(s2)-p)); ∙end;

∙

∙begin

∙ readln(s1);

∙ readln(s2);

∙ dfs(s1,s2);

∙end.

装箱问题【NOIP2001普及组】

Time Limit:10000MS Memory Limit:65536K

Total Submit:23 Accepted:20

Description

有一个箱子容量为V（正整数，0 ＜＝V ＜＝20000），同时有n个物品(0 ＜n ＜＝30)，每个物品有一个体积（正整数）。要求n个物品中，任取若干个装入箱内，使箱子的剩余空间为最小。

Input

24一个整数，表示箱子容量

6一个整数，表示有n个物品

8接下来n行，分别表示这n 个物品的各自体积

3

12

7

9

7

Output

0一个整数，表示箱子剩余空间。

Sample Input

24 {一个整数，表示箱子容量}

6 {一个整数，表示有n个物品}

8 {接下来n行，分别表示这n 个物品的各自体积}

3

12

7

9

7

Sample Output

0 {一个整数，表示箱子剩余空间} Source

∙var

∙ i,j,n,v,x:longint;

∙ a:array[0..20000] of boolean;

∙begin

∙ readln(v);

∙ readln(n);

∙ a[0]:=true;

∙ for i:=1 to n do begin

∙ readln(x);

∙ for j:=v-x downto 0 do if a[j] then ∙ a[j+x]:=true;

∙ end;

∙ j:=0;

∙ for i:=v downto 0 do if a[i] then begin ∙ j:=i; break;

∙ end;

∙ writeln(v-j);

∙end.