Bài 10 - Phân Việc

{
Nguoi\viec      1       2       3

1               5       7       5
2               6       2       9
3               8       5       9
--> Hieu suat max la 7 9 8
}

uses crt;
Var
  a,x,xmax:array[1..7] of integer;
  v: array[1..7,1..7] of integer;
  i,j,n,HSX,HSMAX:integer;

procedure bandau;
var i,j,k: integer;
begin
 clrscr;
 textcolor(white);
 write('   ');
 for k:=1 to n do write('V',k,' ');
 for i:=1 to n do
  begin
   writeln;
   write('N',i);
   for j:=1 to n do write(v[i,j]:3);
  end;
end;

procedure velai;
var i,j,k: integer;
begin
 delay(3000);
 clrscr;
 textcolor(white);
 write('   ');
 for k:=1 to n do write('V',k,' ');
 for i:=1 to n do
  begin
   writeln;
   write('N',i);
   for j:=1 to n do
    if xmax[i] <> j then
     begin
      write(v[i,j]:3);
     end
    else
     begin
       textcolor(yellow);
       write(v[i,j]:3);
       textcolor(white);
     end;
  end;
 writeln;
 writeln;
 writeln('HSX= ', HSX);
end;

procedure xong;
var i,j,k: integer;
begin
 clrscr;
 textcolor(white);
 write('   ');
 for k:=1 to n do write('V',k,' ');
 for i:=1 to n do
  begin
   writeln;
   write('N',i);
   for j:=1 to n do
    if xmax[i] <> j then
     begin
      write(v[i,j]:3);
     end
    else
     begin
       textcolor(red);
       write(v[i,j]:3);
       textcolor(white);
     end;
  end;
 writeln;
 writeln;
 writeln('HSMAX= ', HSMAX);
end;

procedure print;
var j,k:integer;
begin
 //velai; {Ve lai tat ca truong hop}
 HSX:=0;
 for j:=1 to n do HSX:=HSX+v[j,x[j]];
 if HSX>HSMAX then
  begin
   HSMAX:=HSX;
   for k:=1 to n do xmax[k]:=x[k];
   velai; {Chi ve lai truong hop HSX lon hon}
  end;
end;

procedure try(i:integer);
var j:integer;
 begin
  if i>n then print else
  for j:=1 to n do
   if (a[j]=0) then
    begin
     x[i]:=j;
     a[j]:=1;
     try(i+1);
     a[j]:=0;
    end;
  end;

begin
 clrscr;
 HSMAX:=0;
 repeat
  write('n= ');
  readln(n);
 until (n>0) and (n<8);
 for i:=1 to n do
 for j:=1 to n do
  begin
   write('v[',i,',',j,']= ');
   readln(v[i,j]);
  end;
 bandau;
 try(1);
 xong;
 readln;
end.