ALGORITHME DE TRI ALPHABÉTIQUE
olivia
-
21 mai 2001 à 14:51
cs_Zeroc00l Messages postés 367 Date d'inscription lundi 1 avril 2002 Statut Membre Dernière intervention 11 février 2010 - 8 févr. 2004 à 22:45
cs_Zeroc00l Messages postés 367 Date d'inscription lundi 1 avril 2002 Statut Membre Dernière intervention 11 février 2010 - 8 févr. 2004 à 22:45
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/1151-algorithme-de-tri-alphabetique
https://codes-sources.commentcamarche.net/source/1151-algorithme-de-tri-alphabetique
8 févr. 2004 à 22:45
1) On dit "algorIIIIIIIIIIIIIIIIthme" !
2) Je passe l'éponge sur le ReDim Preserve Liste(5555)...
3) Pk mettre les sources dans un module ? Enfin bref ...
4) Aaaaaaaaaaaaah... elle est où l'indentation ? :(
5) n = 0
Do
n = n + 1
Line Input #1, Liste(n)
Loop Until (EOF(1))
Et si ton fichier txt est vide ? ca compte quand meme une ligne ... !
6) Pas besoin de la variable nb ... utilise directement n ! ou alors
compte le nombre de lignes avec nb !
7) T'as le droit de déclarer i et Diff dans la Sub "Dif" ... (et de mettre "Call" devant l'appel, ça fait plus propre, on voit tout de suite où sont les appels)
8) "Do Until fin = True Mdr" ... autant dire "Do Until fin" non ? :)
9) dans la Sub "Dif" :
If q = p Then
i = i + 1
fin False ' pk fin false ? Il ne sera jamais égal à true en arrivant la !!!
10 ) Arf c'est tellement moche comme source que j'ai la flemme de continuer à citer les erreurs !
11) Je pourrais tout corriger ... mais je te laisse le faire! T'as du boulot ... Notemment trouver les bonnes conditions pour virer les gotos ...
Au travail ! Optimises moi tout ça !
12 août 2002 à 17:09
25 mars 2002 à 11:54
6 juil. 2001 à 21:01
merci infiniment
21 mai 2001 à 14:51