最佳调度问题

• 最佳调度问题

  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]n then
      begin
        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.