1. procedure CreeVectVirus (f : in out file_type; nb : in integer; V :out TV_Virus) is
  2. -- {f (ouvert) contient des configurations initiales,
  3. -- toutes les configurations se terminent par la position du virus rouge}
  4. -- => {V a ete initialise par lecture dans f de la partie de numero nb}
  5.     val:TR_piece;
  6.     x:T_Col;
  7.     y:T_Lig;
  8.     compterRed : integer :=0;
  9. begin
  10.  
  11.     reset(f,in_file);
  12.  
  13.     while compterRed < (nb-1)/2 loop
  14.       read(f,val);
  15.       if val.couleur = T_piece(rouge) then
  16.         compterRed := compterRed +1;
  17.       end if;
  18.     end loop;
  19.  
  20.     while not end_of_file(f) loop
  21.       read(f,val);
  22.       x:=val.colonne;
  23.       y:=val.ligne;
  24.       V(y,x):=val.couleur;
  25.     end loop;
  26. end CreeVectVirus;