Forum TI-Planet.org

quelqu'un aurait un code pour faire un classement par ordre (dé)croissant sans passer par SortA() ou SortD() ?

sans passer par sortA et D ???
pourquoi tu cherches a te compliquer la vie???

parce que j'ai un langage de programmation qui n'inclut pas ces fonctions donc il me faut quelque chose

Et puis ca peut toujours être intéressant de savoir se passer de certaines commandes...

Code: Select all

:{10^2}-L2
:for(A,1,dim L1)
:if AL2(A):then
:dim L2 +1-dim L2
:A-L2(dim L2-1)
:end
:end
:dim L2 - 1-dim L2
:L2 - L1
:{0}-L2

j'ai écris ça là comme ça venait, à essayer.

PS:ça aide d'avoir débuter sur 82

McMic>ton code il marche pas ça fait Invalid DIM

Forcement, a mon avis t'as pas de L1 en mémoire, crèes en une pour voir

Potamogale wrote:Forcement, a mon avis t'as pas de L1 en mémoire, crèes en une pour voir

je ne le pense pas aussi bète...

essaie ça:

Code: Select all

:{10^2}-L2
:for(A,1,dim L1)
:for(B,1,dim L2)
:if AL2(A):then
:dim L2 +1-dim L2
:A-L2(dim L2-1)
:end
:end
:end
:dim L2 - 1-dim L2
:L2 - L1
:{0}-L2

Quand je teste ca (en ayant bien sur créé la L1), il me sort {0}, ce qui est la L2. La L1 quand à elle est {1}

???
pas compris, avec quoi dans L1 au début??

PS:ce code(normalement) classe L1 dans l'ordre croissant et met le resultat dans L1.