ru.algorithms

 
 - RU.ALGORITHMS ----------------------------------------------------------------
 From : Mity Usanov                          2:5002/79.3    30 May 2003  22:14:11
 To : Artur Mogozov
 Subject : Максимальное паросочетание
 -------------------------------------------------------------------------------- 
 

  30 Мая 2003 года ты писал(а) к All:
 
  AM>  Расскажите эхотаг построения сабжа, только не через максимальный
  AM> поток...
  Приведу пример исходника на паскале, думаю разберешься:
 
  -----------------------------------------------------
 Var  count,N,M:integer;
 
      A:array[1..100,1..100]of byte;
      was:array[1..100] of boolean;
      goes:array[1..100]of byte;
 
 Procedure init;
 var i,j:integer;
 begin
   assign(input,'input.txt');
   reset(input);
   readln(N,M);
   for i:=1 to N do
     for j:=1 to M do
       begin
         read(A[i,j]);
       end;
   close(input);
 end;
 
 Function Rec(k:integer):boolean;
 var i:integer;
 begin
   rec:=false;
   if was[k] then exit;
   was[k]:=true;
   For i:=1 to M do
     If (A[k,i]=1) and ((goes[i]=0)or rec(goes[i]))then
      begin
       goes[i]:=k;
       rec:=true;
       exit;
      end;
 end;
 
 Procedure solve;
 Var i:integer;
 begin
   fillchar(goes,sizeof(goes),0);
   fillchar(was,sizeof(was),false);
   for i:=1 to N do
     begin
       fillchar(was,sizeof(was),false);
       if rec(i) then inc(count);
     end;
 end;
 
 Procedure done;
 begin
   assign(output,'output.txt');
   rewrite(output);
   write(count);
   close(output);
 end;
 
 Begin
   init;
   solve;
   done;
 End.
 ---------------------------------------
 
  [/ы/] /*B y e*/, /_*Artur*_/! ...
 --- Winamp: Metallica - The Unforgiven II
  * Origin: < Coderz Heaven BBS > (2:5002/79.3)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Максимальное паросочетание   Artur Mogozov   30 May 2003 08:24:29   Максимальное паросочетание   Mity Usanov   30 May 2003 22:14:11