装载问题ACC pascal程序

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

2001年分区联赛普级组之四 装箱问题
Time Limit:1000MS  Memory Limit:65536K
Total Submit:391 Accepted:213 
Description 
　　有一个箱子容量为V（正整数，0＜＝V＜＝20000），同时有n个物品（0＜n＜＝30＝，每个物品有一个体积（正整数）。 要求n个物品中，任取若干个装入箱内，使箱子的剩余空间为最小。 
Input 
Output 
Sample Input 
24    一个整数，表示箱子容量
6      一个整数，表示有n个物品
8　   接下来n行，分别表示这n 个物品的各自体积
3
12
7
9
7
Sample Output 
0　　一个整数，表示箱子剩余空间。
Source 
elba

 
typearr=array[1..1000]of longint;
vari,j,k,n,m,l,min,max,mm:longint;b:array[1..1000]of boolean;f:arr;procedure aa(n,dep:longint);
vari,j,k:longint;
beginif (dep>mm) or (n>=m) thenbeginif (dep=mm+1) and (n<=m) thenbeginif n>max then max:=n;exit;end;if n=m thenbeginwriteln(n);halt;end;exit;end;if n>max then max:=n;aa(n+f[dep],dep+1);aa(n,dep+1);
end;beginreadln(mm,m);for i:=1 to mm doread(f[i]);fillchar(b,sizeof(b),false);aa(0,1);write(max);
end.

这篇关于装载问题ACC pascal程序的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---