机器分配　HNOI

本文主要是介绍机器分配　HNOI，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

机器分配　HNOI

Time Limit:10000MS  Memory Limit:65536K
Total Submit:199 Accepted:135
Case Time Limit:1000MS

Description

　　总公司拥有高效生产设备M台，准备分给下属的N个公司。各分公司若获得这些设备，可以为国家提供一定的盈利。问：如何分配这M台设备才能使国家得到的盈利最大？求出最大盈利值。其中M《=15，N〈=10。分配原则：每个公司有权获得任意数目的设备，但总台数不得超过总设备数M。

Input

第一行保存两个数，第一个数是设备台数M，第二个数是分公司数N。接下来是一个M*N的矩阵，表明了第I个公司分配J台机器的盈利。

Output

最大盈利

Sample Input

15 10
36 67 86 8 82 88 1 96 75 82
107 68 136 105 99 104 61 176 127 133
184 120 223 179 198 134 113 247 225 205
283 136 273 217 249 140 117 312 296 205
286 207 315 306 291 224 209 346 370 272
292 279 317 332 372 227 223 375 370 295
361 327 363 373 453 277 286 410 463 316
393 413 369 387 542 302 289 419 473 393
425 443 455 407 561 358 336 477 491 445
469 521 554 478 589 440 364 572 537 512
475 534 570 520 603 530 405 574 602 593
496 542 591 547 654 587 431 587 664 637
577 632 657 645 700 635 527 620 680 680
656 643 670 670 730 715 573 676 721 707
713 719 685 685 757 770 642 744 728 745

Sample Output

1167

var
mach,money:array[0..100,0..100]of longint;
i,j,x,n,s:longint;
begin
read(s,n);
for i:=1 to s do
begin
for j:=1 to n do
read(mach[j,i]);
end;

{洛谷和校题库不一样，这个是SSL的，洛谷要把i，j和s，n换过来}
for i:=1 to n do
for j:=1 to s do
for x:=0 to j do
begin
if money[i,j]<money[i-1,x]+mach[i,j-x] then
money[i,j]:=money[i-1,x]+mach[i,j-x];
end;
write(money[n,s]);
end.

这篇关于机器分配　HNOI的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---