classement

→ **MyCalcs** profile · by **tama** » 21 Jun 2006, 12:57

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

→ **MyCalcs** profile · by **Syfo** » 21 Jun 2006, 16:43

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

→ **MyCalcs** profile · by **tama** » 21 Jun 2006, 17:23

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

→ **MyCalcs** profile · by **Potamogale** » 21 Jun 2006, 18:23

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

→ **MyCalcs** profile · by **MCMic** » 21 Jun 2006, 20:06

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

→ **MyCalcs** profile · by **tama** » 21 Jun 2006, 20:10

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

→ **MyCalcs** profile · by **Potamogale** » 21 Jun 2006, 20:50

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

→ **MyCalcs** profile · by **MCMic** » 21 Jun 2006, 21:21

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

→ **MyCalcs** profile · by **Potamogale** » 21 Jun 2006, 21:30

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}

→ **MyCalcs** profile · by **MCMic** » 21 Jun 2006, 21:42

???
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.