花店橱窗设计(flower.pas/c/cpp)

 

花店橱窗设计

(flower.pas/c/cpp)

 

【问题描述】

    假设以最美观的方式布置花店的橱窗，有F束花，每束花的品种都不一样，同时，至少有同样数量的花瓶，被按顺序摆成一行，花瓶的位置是固定的，并从左到右，从1到V顺序编号，V 是花瓶的数目，编号为1的花瓶在最左边，编号为V的花瓶在最右边，花束可以移动，并且每束花用1到F 的整数惟一标识，标识花束的整数决定了花束在花瓶中列的顺序即如果I < J，则花束I 必须放在花束J左边的花瓶中。
    例如，假设杜鹃花的标识数为1，秋海棠的标识数为2，康乃馨的标识数为3，所有的花束在放人花瓶时必须保持其标识数的顺序，即：杜鹃花必须放在秋海棠左边的花瓶中，秋海棠必须放在康乃馨左边的花瓶中。如果花瓶的数目大于花束的数目，则多余的花瓶必须空，即每个花瓶中只能放一束花。
每一个花瓶的形状和颜色也不相同，因此，当各个花瓶中放人不同的花束时会产生不同的美学效果，并以美学值(一个整数)来表示，空置花瓶的美学值为0。在上述例子中，花瓶与花束的不同搭配所具有的美学值，可以用如下表格表示。
根据表格，杜鹃花放在花瓶2中，会显得非常好看，但若放在花瓶4中则显得很难看。
    为取得最佳美学效果，必须在保持花束顺序的前提下，使花的摆放取得最大的美学值，如果具有最大美学值的摆放方式不止一种，则输出任何一种方案即可。题中数据满足下面条件：1≤F≤100，F≤V≤100，－50≤AIJ≤50，其中AII是花束I摆放在花瓶J中的美学值。输入整数F，V 和矩阵(AIJ)，输出最大美学值和每束花摆放在各个花瓶中的花瓶编号。
┌───┬───┬───┬───┬───┬───┐
│      │花瓶1│花瓶2 │花瓶3│花瓶4 │花瓶5│
├───┼───┼───┼───┼───┼───┤
│杜鹃花│   7  │  23  │ -5    │ -24  │ 16   │
├───┼───┼───┼───┼───┼───┤
│秋海棠│   5  │  21  │ -4   │ 10   │  23  │
├───┼───┼───┼───┼───┼───┤
│康乃馨│  -21 │  5   │  -4   │  -20 │  20  │
└───┴───┴───┴───┴───┴───┘

【输入文件】

    第一行包含两个数：F，V。 随后的F 行中，每行包含V 个整数，Aij 即为输入文件中第（i+1 ）行中的第j 个数

【输出文件】

包含两行:第一行是程序所产生摆放方式的美学值。第二行必须用F 个数表示摆放方式，即该行的第K个数表示花束K所在的花瓶的编号。

【输入样例】

3 5 

7 23 –5 –24 16 

5 21 -4 10 23 

-21 5 -4 -20 20 

【输出样例】

53 

2 4 5 

================================================================

注意阶段的转移..是由哪个阶段转移过来的...

============================

{
ID:jie19952
PROG:
LANG:PASCAL
}
var
  f,v:longint;
  a:array[1..100,1..100]of longint;
  opt,path:array[0..100,0..100]of longint;
procedure init;
begin
  assign(input,'flower.in');
  assign(output,'flower.out');
  reset(input); rewrite(output);
end;

procedure terminate;
begin
  close(input); close(output);
  halt;
end;

function max(a,b:longint):longint;
begin
  if a>b then exit(a);
  exit(b);
end;

procedure print(i,j:longint);
begin
  if i>0 then
    begin
      print(i-1,path[i,j]);
      write(j,' ');
    end;
end;

procedure main;
var
  i,j,k:longint;
  ans:longint;
begin
  readln(f,v);
  for i:=1 to f do
    for j:=1 to v do
      begin
        read(a[i,j]);
      end;
  fillchar(opt,sizeof(opt),0);
  for i:=1 to f do
    for j:=1 to v do
      opt[i,j]:=-maxlongint;
  //fillchar(path,sizeof(path),0);
  //for i:=1 to v-f do opt[0,i]:=0;
  for i:=1 to f do
    for j:=i to v-(f-i) do
      begin
        for k:=i-1 to j-1 do
        begin
          if opt[i,j]<opt[i-1,k] then
            begin
              opt[i,j]:=opt[i-1,k];
              path[i,j]:=k;
            end;
        end;
        opt[i,j]:=opt[i,j]+a[i,j];
      end;
  ans:=f;
  for i:=f+1 to v do
    if opt[f,i]>opt[f,ans] then ans:=i;
  writeln(opt[f,ans]);
  print(f,ans);
end;

begin
  init;
  main;
  terminate;
end.