机器分配-SSL 1639

Description　　总公司拥有高效生产设备M台，准备分给下属的N个公司。各分公司若获得这些设备，可以为国家提供一定的盈利。问：如何分配这M台设备才能使国家得到的盈利最大？求出最大盈利值。其中M《=15，N〈=10。分配原则：每个公司有权获得任意数目的设备，但总台数不得超过总设备数M。Input第一行保存两个数，第一个数是设备台数M，第二个数是分公司数N。接下来是一个M*N的矩阵，表明了第I个公司分配J台机器的盈利。Output最大盈利Sample Input15 1036 67 86 8 82 88 1 96 75 82107 68 136 105 99 104 61 176 127 133184 120 223 179 198 134 113 247 225 205283 136 273 217 249 140 117 312 296 205286 207 315 306 291 224 209 346 370 272292 279 317 332 372 227 223 375 370 295361 327 363 373 453 277 286 410 463 316393 413 369 387 542 302 289 419 473 393425 443 455 407 561 358 336 477 491 445469 521 554 478 589 440 364 572 537 512475 534 570 520 603 530 405 574 602 593496 542 591 547 654 587 431 587 664 637577 632 657 645 700 635 527 620 680 680656 643 670 670 730 715 573 676 721 707713 719 685 685 757 770 642 744 728 745Sample Output1167题解：f[i,j]表示前i个公司分配j台机器的最大盈利，v[i,j]表示第i个公司分配j台机器的盈利，状态转移方程为：max={f[i-1,k]+v[I,j-k],max}f[i,j]=max1<=i<=n,1<=j<=m,0<=k<=jf[n,m]为所求。var m,n,max,i,j,k:longint;    f,v:array [0..10,0..15] of longint;begin  readln(m,n);  for i:=1 to m do   for j:=1 to n do   read(v[j,i]);   for i:=1 to n do    for j:=1 to m do    begin      max:=0;      for k:=0 to j do      if f[i-1,k]+v[i,j-k]>max then max:=f[i-1,k]+v[i,j-k];      f[i,j]:=max;    end;    writeln(f[n,m]);end.