classement

→ **MyCalcs** profile · by **tama** » 22 Jun 2006, 13:01

oui mais vous pouvez expliquer pliz !!

→ **MyCalcs** profile · by **MCMic** » 22 Jun 2006, 13:04

alors.
je met pr commencer une valeure très grande dans L2, pour qu'elle fasse la limite du haut.
ensuite à l'aide du premier for, je prend succéssivement les élément de L1 un par un pour les mettre dans L2 dans l'ordre croissant.
pour les mettre dans l'ordre croissant :je parcours L2 du premier au dernier élément, si je vois que mon élément actuel que je traite de L1 est inférieur à l'élément traité actuel L2, j'agrandis L2(pour faire une place au nouveau), puis je décale tout le bout de liste à partir de l'élément L2 traité actuel à l'aide du troisième for, pour que le nouveau n'efface pas un compatriote.
ensuite je met le nouveau.
ensuite je sort de cette boucle.(dim L2-B met fin au for)
ensuite je passe à l'élément suivant de L1.
une fois tout cela fait, j'enlève le dernier élément de L2(le chiffre très grand)
puis je met L2 dans L1 et je met {0} dans L2.

→ **MyCalcs** profile · by **MCMic** » 22 Jun 2006, 13:06

pour décroissant faut inversé quelque signe par si par là.

ex:tu met {-10^5}dans L2, tu regarde si L1(A)L2(B)...

→ **MyCalcs** profile · by **MCMic** » 22 Jun 2006, 13:08

au fait le plus simple est au lieu de mettre 10^5 dans L2 de mettre max(L1)+1

mais bon si c'est pour un TI82 faudra aussi faire ça à la main (à moins que la 82 ai max je me souviens plus.

→ **MyCalcs** profile · by **MCMic** » 22 Jun 2006, 13:14

Code: Select all: :{0-L2:L1(1-B :for(A,1,dim L1 :if L1(A)B:L1(A-B :end :B+1L2(1) :for(A,1,dim L1) :for(B,1,dim L2) :if L1(A)L2(B):then :dim L2 +1-dim L2 :for(C,dim (L2),B,-1) :if C1:L2(C-1)-L2(C) :end :L1(A)-L2(B) :dim L2-B :end :end :end :dim L2 - 1-dim L2 :L2 - L1 :{0}-L2

voilà ça marche même sans max(), et ça marche dans tout les cas.(le code précédent bug si il y a dans la liste des nb supperieur à 10^5)

→ **MyCalcs** profile · by **M@D_Doc** » 22 Jun 2006, 13:15

n'empeche qu'un bon sortA( est plus simple sur 83+

→ **MyCalcs** profile · by **MCMic** » 22 Jun 2006, 13:17

oui mais après on sait plus faire tout seul avec ses doigt

halala la 82.... il fallait se démerder à l'époque, ça me rapelle le bon temps...

PS:pour mon code il y a surement moyen de le faire sans utiliser L2, mais ça complique encore ça sera chaud à débugger....