Remplacer par position

Julia

function remplacerParPosition(ensemble,element,position)
   nouvelEnsemble = Ensemble_Element()
   if position <1
      return ensemble
   end
   index = 1
   positionTrouvée = false
   Initialiser(ensemble)
   while Enumeration(ensemble) && !positionTrouvée
      if index == position
         Ranger_Element(nouvelEnsemble,element)
         positionTrouvée = true
      else
         index = index + 1
         Ranger_Element(nouvelEnsemble,Element_Courant(ensemble))
      end
      Element_Suivant(ensemble)
   end
   while Enumeration(ensemble)
      Ranger_Element(nouvelEnsemble,Element_Courant(ensemble))
      Element_Suivant(ensemble)    end
   return nouvelEnsemble
end

Test

function test_RemplacerParPosition()
   ensemble = File_Elements(15,3,12,5,13, 2, 11) 
   println("")

   element = 99
   position = 7
   println("Remplacer par élément ", element ," à la position ",position)
   nouvelEnsemble = remplacerParPosition(ensemble,element,position)
   Lister(nouvelEnsemble)

   position = 1
   println("Remplacer par élément ", element ," à la position ",position)
   nouvelEnsemble = remplacerParPosition(ensemble,element,position)
   Lister(nouvelEnsemble)

   position = 3
   println("Remplacer par élément ", element ," à la position ",position)
   nouvelEnsemble = remplacerParPosition(ensemble,element,position)
   Lister(nouvelEnsemble)

   position = 0
   println("Remplacer par élément ", element ," à la position ",position)
   nouvelEnsemble = remplacerParPosition(ensemble,element,position)
   Lister(nouvelEnsemble)
   
   position = 8
   println("Remplacer par élément ", element ," à la position ",position)
   nouvelEnsemble = remplacerParPosition(ensemble,element,position)
   Lister(nouvelEnsemble)
end

copyright A rchitectures A pplicatives A vancées A3-Soft