使用动态规划解决积木城堡问题-优快云博客

这是一个关于动态规划算法的应用实例，通过读取输入的积木高度，利用动态规划计算出可以组合的最大高度。程序首先初始化数据结构，然后遍历每个积木，通过二维数组记录是否可以达到某个总高度，最后找出所有可能的最大高度并输出。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

var i,j,n,tot,x,max:longint;
    f,g:array[-1..101,-1..10000]of boolean;
    v:array[1..150]of longint;
    flag:boolean;

procedure work(k:longint);
var i,j,sum:longint;
begin
    fillchar(f,sizeof(f),false);
     sum:=0;
      for i:=1 to tot do sum:=sum+v[i];
      if max<sum then max:=sum;
      f[0,0]:=true;
      for i:=1 to tot do
      for j:=sum downto 0 do
      begin
         if j-v[i]>=0 then f[i,j]:=(f[i-1,j-v[i]])or(f[i-1,j])
         else f[i,j]:=f[i-1,j];
      end;
    for j:=1 to sum do if f[tot,j] then g[k,j]:=true;
end;

begin
  fillchar(g,sizeof(g),false);
  readln(n);max:=0;
  for i:=1 to n do
  begin
       tot:=0;
       for j:=1 to 150 do
       begin
           read(v[j]);
           if v[j]=-1 then begin
                               tot:=j-1;
                               break;
                           end;
       end;
       work(i);
  end;
  for i:=max downto 0 do
  begin
      flag:=true;
      for j:=1 to n do
      if g[j,i]=false then
          begin
              flag:=false;
              break;
          end;
      if flag then begin
      writeln(i);break;end;
  end;
  
  if flag=false then writeln(0);
  readln;readln;
end.

From ycglovewxx

积木城堡　


	描述 Description
		XC的儿子小XC最喜欢玩的游戏用积木垒漂亮的城堡。城堡是用一些立方体的积木垒成的，城堡的每一层是一块积木。小XC是一个比他爸爸XC还聪明的孩子，他发现垒城堡的时候，如果下面的积木比上面的积木大，那么城堡便不容易倒。所以他在垒城堡的时候总是遵循这样的规则。小XC想把自己垒的城堡送给幼儿园里漂亮的女孩子们，这样可以增加他的好感度。为了公平起见，他决定把送给每个女孩子一样高的城堡，这样可以避免女孩子们为了获得更漂亮的城堡而引起争执。可是他发现自己在垒城堡的时候并没有预先考虑到这一点。所以他现在要改造城堡。由于他没有多余的积木了，他灵机一动，想出了一个巧妙的改造方案。他决定从每一个城堡中挪去一些积木，使得最终每座城堡都一样高。为了使他的城堡更雄伟，他觉得应该使最后的城堡都尽可能的高。任务：请你帮助小XC编一个程序，根据他垒的所有城堡的信息，决定应该移去哪些积木才能获得最佳的效果。


	输入格式 Input Format
		第一行是一个整数N(N<=100)，表示一共有几座城堡。以下N行每行是一系列非负整数，用一个空格分隔，按从下往上的顺序依次给出一座城堡中所有积木的棱长。用-1结束。一座城堡中的积木不超过100块，每块积木的棱长不超过100。