Salut tout le monde,

Voilà mon problème :

j'essaye de trier les lignes d'un tableau de valeur dans l'ordre lexicographique.

J'ai déjà écrit un algorithme qui compare deux vecteurs de taille 4 dans l'ordre lexicographique. Je voudrais donc l'adapter pour trier les lignes d'un tableau dans l'ordre lexicographique mais je suis complètement bloqué...

Voilà mon algo :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
program lexico
 
implicit none
 
integer, dimension(4) :: V=(/1,2,3,5/)
integer, dimension(4) :: M=(/1,2,3,6/)
integer :: i
logical :: b
i=1
b=.TRUE.
do while ((i.NE.5) .AND. (b))
   if (V(i).GT.M(i)) then
    write(*,"('M est avant V.')")
    b=.FALSE.
   elseif (V(i).LT.M(i)) then
       write(*,"('V est avant M.')")
       b=.FALSE.
   else
        i=i+1
 
   end if
end do
 
end program lexico
Je vous remercie d'avance pour votre aide.

Bonne soirée (ou bonne journée)