# Initialisations la matrice de transition M est à remplir séparément :Input "Source ",S :Input "Dest ",D :dim M(1)→N :0→m :For (I,1,N) : max(m,max(vc▸li M(I))→m :End :seq((m+1)*N,I,1,N)→Dist # Distances au sommet initial :0→Dist(S) :seq(−1,I,1,N)→Chem # Arbre des plus courts chemins :seq(1,I,1,N)→NFai # Sommet passé ou non # Boucle principale :For (I,1,N) # Choix du sommet : (m+1)*N→dmin : For (J,1,N) : If Dist(J)