Si tu veux, j'ai un tas de sources ADA pour lecteurs/1 redacteur avec les semaphores et moniteurs (priorité lecteurs / priorite redacteur / sans priorité)

En fait, ADA c'est un langage de programmation. On utilise des tâches et il faut ensuite les synchroniser avec des sémaphores, moniteurs ou des RDV.

Avec des semaphores, sans priorité

   Nblect : Integer:=0;

   SR: Sem_Binaire;
   mutex: Sem_Binaire;
   sem: Sem_Binaire;

   -- tache type d'un lecteur
   task type Lecteur (P : integer);
   task body Lecteur is
   begin
      loop
         Mutex.P;
         Nblect:=Nblect+1;
         if Nblect=1 then
            SR.P;
         end if;
         mutex.V;

        --Mettre ton code pour lire un fichier ici

         mutex.P;
         Nblect:=Nblect-1;

         if Nblect=0 then
            SR.V;
         end if;
         mutex.V;

      end loop;
   end;

   -- tache type d'un redacteur
   task type Redacteur (P : integer);
   task body Redacteur is

   begin
      loop

         sem.P;
         SR.P;

    --mettre ton code pour ecire dans le fichier ici

         SR.V;
         sem.V;

      end loop;
   end;

   Lect1 : Lecteur (p => 1);
   Red1 : Redacteur (p => 1);
   Lect2 : Lecteur (p => 2);
   Lect3 : Lecteur (p => 3);
   Red2 : Redacteur (p => 2);

Merci AnaGraM