Bài phân việc - Nguoi\viec

{
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,m,HSX,HSMAX:integer;

procedure print;
var j,k:integer;
begin
 HSX:=0;
 for j:=1 to m do HSX:=HSX+v[j,x[j]];
 if HSX>HSMAX then
  begin
   HSMAX:=HSX;
   for k:=1 to m do xmax[k]:=x[k];
  end;
end;

procedure try(i:integer);
var j:integer;
 begin
  if i>m then print else
  for j:=1 to m 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('m= ');
  readln(m);
 until (m>0) and (m<8);
 for i:=1 to m do
 for j:=1 to m do
  begin
   write('v[',i,',',j,']= ');
   readln(v[i,j]);
  end;
 try(1);
 writeln('Ma tran');
 for i:=1 to m do
  begin
   for j:=1 to m do write(v[i,j]:2);
   writeln;
  end;
 writeln('Ket qua:');
 for i:=1 to m do writeln('Nguoi ',i,' lam viec ',xmax[i]);
 readln;
end.