积木城堡
2011-10-02 16:39
274 查看
积木城堡
来源:vijos P1059
【问题描述】
XC的儿子小XC最喜欢玩的游戏用积木垒漂亮的城堡。城堡是用一些立方体的积木垒成的,城堡的每一层是一块积木。小XC是一个比他爸爸XC还聪明的孩子,他发现垒城堡的时候,如果下面的积木比上面的积木大,那么城堡便不容易倒。所以他在垒城堡的时候总是遵循这样的规则。
小XC想把自己垒的城堡送给幼儿园里漂亮的女孩子们,这样可以增加他的好感度。为了公平起见,他决定把送给每个女孩子一样高的城堡,这样可以避免女孩子们为了获得更漂亮的城堡而引起争执。可是他发现自己在垒城堡的时候并没有预先考虑到这一点。所以他现在要改造城堡。由于他没有多余的积木了,他灵机一动,想出了一个巧妙的改造方案。他决定从每一个城堡中挪去一些积木,使得最终每座城堡都一样高。为了使他的城堡更雄伟,他觉得应该使最后的城堡都尽可能的高。
任务:
请你帮助小XC编一个程序,根据他垒的所有城堡的信息,决定应该移去哪些积木才能获得最佳的效果。
【输入文件】
第一行是一个整数N(N<=100),表示一共有几座城堡。以下N行每行是一系列非负整数,用一个空格分隔,按从下往上的顺序依次给出一座城堡中所有积木的棱长。用-1结束。一座城堡中的积木不超过100块,每块积木的棱长不超过100。
【输出文件】
一个整数,表示最后城堡的最大可能的高度。如果找不到合适的方案,则输出0。
【输入样例】
2
2 1 –1
3 2 1 -1
【输出样例】
3
============================
================================
来源:vijos P1059
【问题描述】
XC的儿子小XC最喜欢玩的游戏用积木垒漂亮的城堡。城堡是用一些立方体的积木垒成的,城堡的每一层是一块积木。小XC是一个比他爸爸XC还聪明的孩子,他发现垒城堡的时候,如果下面的积木比上面的积木大,那么城堡便不容易倒。所以他在垒城堡的时候总是遵循这样的规则。
小XC想把自己垒的城堡送给幼儿园里漂亮的女孩子们,这样可以增加他的好感度。为了公平起见,他决定把送给每个女孩子一样高的城堡,这样可以避免女孩子们为了获得更漂亮的城堡而引起争执。可是他发现自己在垒城堡的时候并没有预先考虑到这一点。所以他现在要改造城堡。由于他没有多余的积木了,他灵机一动,想出了一个巧妙的改造方案。他决定从每一个城堡中挪去一些积木,使得最终每座城堡都一样高。为了使他的城堡更雄伟,他觉得应该使最后的城堡都尽可能的高。
任务:
请你帮助小XC编一个程序,根据他垒的所有城堡的信息,决定应该移去哪些积木才能获得最佳的效果。
【输入文件】
第一行是一个整数N(N<=100),表示一共有几座城堡。以下N行每行是一系列非负整数,用一个空格分隔,按从下往上的顺序依次给出一座城堡中所有积木的棱长。用-1结束。一座城堡中的积木不超过100块,每块积木的棱长不超过100。
【输出文件】
一个整数,表示最后城堡的最大可能的高度。如果找不到合适的方案,则输出0。
【输入样例】
2
2 1 –1
3 2 1 -1
【输出样例】
3
============================
================================
{ ID:jie19952 PROG: LANG:PASCAL } //type //re=record //num:longint; //x:array[1..101]of longint; //end; var n,t:longint; f:array[1..100,0..10000]of boolean; a:array[0..101]of longint; procedure init; begin assign(input,'p1059.in'); assign(output,'p1059.out'); reset(input); rewrite(output); end; procedure terminate; begin close(input); close(output); halt; end; function pd(duibi:longint):boolean; var i:longint; begin pd:=true; for i:=1 to n do if not f[i,duibi] then exit(false); end; procedure main; var i,j,k:longint; ans:longint; begin readln(n); fillchar(a,sizeof(a),0); //fillchar(f_last,sizeof(f_last),false); fillchar(f,sizeof(f),false); for i:=1 to n do begin //f_now[0]:=true; f[i,0]:=true; t:=1; read(a[t]); while a[t]<>-1 do begin inc(t); read(a[t]); end; dec(t); for j:=1 to t do for k:=10000-a[j] downto 0 do if f[i][k] then begin f[i][k+a[j]]:=true; end; end; for i:=10000 downto 0 do if pd(i) then begin writeln(i); break; end; end; begin init; main; terminate; end.
相关文章推荐
- 【动态规划】 积木城堡
- 积木城堡_DP
- SOJ 2930_积木城堡
- 【dp】积木城堡
- vijos1059 积木城堡(背包)
- 浙江省选积木城堡题解
- 积木城堡
- 积木城堡题解
- 积木城堡
- XYNUOJ 积木城堡
- 积木城堡 题解
- dp遍历所有状态 vijos 1037 搭建双塔 1059 积木城堡 1153 猫狗大战
- vijosP1059 积木城堡
- hdoj 积木堆砌的城堡 1268 (数学几何)
- vojos 1059 积木城堡 经典动态
- SCU 2930-积木城堡(n次背包)
- Vijos P1059 积木城堡
- vijos 1059 积木城堡【暴力】
- soj 2930 积木城堡(恰好装满的01背包 + 枚举)
- vijos积木城堡动态规划