最佳调度问题
Time Limit:10000MS Memory Limit:65536K Total Submit:105 Accepted:40 Case Time Limit:1000MS
Description
假设有n个任务由k个并行工作的机器来完成。完成任务i需要的时间为Ti。试设计一个算法找出完成这n个任务的最佳调度，使得完成全部任务的时间最早。 算法设计：对任意给定的整数n和k，以及完成任务i需要的时间为Ti，i=1，2，3……n。计算完成这n个任务的最佳调度。
Input
第一行有2个正整数n和k。第2行的n个正整数是完成n个任务需要的时间。
Output
将计算的完成全部任务的最早时间
Sample Input
7 3 2 14 4 16 6 5 3
Sample Output
17
Source
要一个排序，但不用快排，从大的往前搜。 var i,j,k,n,m,max,min:longint; a,b:array[0..1000]of longint; procedure init; var i,j,k:longint; begin readln(n,m); for i:=1 to n do begin read(a[i]); end; for i:=1 to n-1 do for j:=i+1 to n do begin if a[i]<a[j] then begin a[0]:=a[i]; a[i]:=a[j]; a[j]:=a[0]; end; end; min:=maxlongint; end; procedure aa(dep,max:longint); var i:longint; begin if dep>n then begin if max<min then min:=max; exit; end; if max>=min then exit; for i:=1 to m do begin inc(b[i],a[dep]); if b[i]>max then aa(dep+1,b[i]) else aa(dep+1,max); dec(b[i],a[dep]); end; end; begin init; aa(1,0); writeln(min); end.