function insererParValeurAvant(ensemble,avantElement,elementAinserer)
   existe = false
   nouvelEnsemble = File()
   Initialiser(ensemble)
   while Enumeration(ensemble) &&!(existe)
      element = Element_Courant(ensemble)
      existe = element == avantElement
      if existe Ranger(nouvelEnsemble,elementAinserer) end
      Ranger(nouvelEnsemble,element)
      Element_Suivant(ensemble)
   end
   while Enumeration(ensemble)
      element = Element_Courant(ensemble)
      Ranger(nouvelEnsemble,element)
      Element_Suivant(ensemble)
   end
   return nouvelEnsemble

end

function insererParValeurApres(ensemble,apresElement,elementAinserer)
   existe = false
   nouvelEnsemble = File()
   Initialiser(ensemble)
   while Enumeration(ensemble) &&!existe
      element = Element_Courant(ensemble)
      existe = element == apresElement
      Ranger_Element(nouvelEnsemble,element)
      Element_Suivant(ensemble)
   end
   if existe
      Ranger(nouvelEnsemble,elementAinserer)
      while Enumeration(ensemble)
         element = Element_Courant(ensemble)
         Ranger_Element(nouvelEnsemble,element)
         Element_Suivant(ensemble)
      end
   end
   return nouvelEnsemble
end

Swift

Insertion d’un élément avant

func insererParValeurAvant 
   <_Element>(_ ensemble: Ensemble<_Element>
   ,_ avantElement: _Element
   ,_ elementAinserer: _Element) 
   -> Ensemble<_Element> {

   var existe = false
   var nouvelEnsemble = EnsembleVide(ensemble)
   Initialiser(ensemble)
   while Enumeration(ensemble) && !existe {
      let element = Element_Courant(ensemble)
      existe = element == avantElement
      if existe { Ranger_Element(nouvelEnsemble,elementAinserer) }
      Element_Suivant(ensemble)
      Ranger_Element(nouvelEnsemble,element)
   }
   while Enumeration(ensemble) {
      let element = Element_Courant(ensemble)
      Ranger_Element(nouvelEnsemble,element)
      Element_Suivant(ensemble)
   }
   return nouvelEnsemble
}

Insertion d’un élément après

func insererParValeurApres 
   <_Element>(_ ensemble: Ensemble<_Element>
   ,_ apresElement: _Element
   ,_ elementAinserer: _Element) 
   -> Ensemble<_Element> {

   var existe = false
   var nouvelEnsemble = EnsembleVide(ensemble)
   Initialiser(ensemble)
   while Enumeration(ensemble) && !existe {
      var element = Element_Courant(ensemble)
      existe = element == apresElement
      Ranger_Element(nouvelEnsemble,element)
      Element_Suivant(ensemble)
   }
   if existe {
      Ranger_Element(nouvelEnsemble,elementAinserer)
      while Enumeration(ensemble) {
         let element = Element_Courant(ensemble)
         Ranger_Element(nouvelEnsemble,element)
         Element_Suivant(ensemble)
      }
   }
   return nouvelEnsemble
}