Mon premier cours...

[Emyl]

Ensuite, il suffit de 3 variables et non 6 : tes X,Y,Z ne servent à rien, tu pourrais tout aussi bien les appeler A,B,C.

si car pour que la boucle For(X,1,5 s'arrête, il faut que X=6, ce qui sera faux

sinon je comprend pas trop ce que tu appelle "cycle"
en tout cas je n'ai pas trouvé dans le catalogue

EDIT et "cycle" n'est pas reconnu par la calto
je dois avoir mal compris

[Bisam]

"Cycle" est une instruction classique des langages de programmation comportant des boucles pour dire de passer au tour suivant de boucle.
Visiblement elle n'existe pas sur z80.
On peut s'en passer ainsi (en remplaçant les "" par le signe "différent de")

Code: Select all

1-N
For(A,1,5
 For(B,A,5
  If BA+1 Then
    For(C,B,5
      If CB+1 Then
        100A+10B+C-L[N]
        N+1-N
      End
    End
  End
 End
End


Pour ce qui est de ta crainte à propos de X, je t'assure que A ne prendra pas la valeur 6, ou plutôt quand il prendra la valeur 6, la calculatrice n'entrera pas dans la boucle... et donc rien ne se passera.


Si tout se passe bien, tu devrais obtenir 18 solutions à multiplier par 6 si tu veux toutes les permutations.

[Emyl]

j'ai trouvé une solution

Merci Bisam mais ça ne marchait pas
j'obtenais 11 solutions
116 -136 - 146 - 156 - 226 - 246 - 256 - 336 - 356 - 446 - 556


par contre en mettant

PROGRAM:A

Code: Select all

Delvar NDelvarWDelvar LADelvar LB // LA et LB sont des listes
For(X,1,5
For(Y,1,5
For(Z,1,5
N+1-N
100X+10Y+Z-LA(N)
prgmB
End
End
End

PROGRAM:B

Code: Select all

If X!=Y+1 and X!=Y-1 and X!=Z+1 and X!=Z-1 and Y!=Z+1 and Y!=Z-1
Then
W+1-W
100X+10Y+Z-LB(W)
Else


grace à ce code j'ai dans la liste A, 125 solution (toutes les solutions possibles) et dans B, 47 solutions où a,b,c ne sont pas adjacents.

En fait j'ai trouvé la soluce pendant la nuit, j'arrivais pas à dormir à cause de ça, alors j'ai pris la calto

[Bisam]

Sauf qu'en fait, il n'y a pas 47 solutions ! Il y en a 108 (soit 6x18).

Et je ne sais pas comment tu t'y prends, mais quand je fais exactement le même programme sur ma TI, ça marche !!
En fait, il fallait juste penser à passer à la ligne pour écrire les "then" et mettre des parenthèses au lieu de crochets pou la liste.
Voici un code complet qui fonctionne parfaitement :

Code: Select all

1-N
For(A,1,5
 For(B,A,5
  If BA+1
  Then
    For(C,B,5
      If CB+1
      Then
        100A+10B+C-L1(N)
        N+1-N
      End
    End
  End
 End
End
Pause L1

[Emyl]

je suis totalement perdu. JE ne comprend rien à ton code

En effet j'obtiens à présent 18 solutions qui sont justes.
Mais je ne comprend pas pourquoi tu veux multiplier par 6

de plus je ne vois pas les autres solutions (il m'en manquerait qu'en même 61 !!!)

je les note toutes comme ça on pourra voir si on est d'ac :
111-113-114-115-131-133-135-141-144-151-153-155-222-224-225-242-244-252-255-311-313-315-331-333-335-351-353-355-411-414-422-424-441-442-444-511-513-515-522-525-531-533-535-551-552-553-555

EDIT - peut être a-tu confondu l'énoncé ? a,b,c ne peuvent pas être adjacent, c-a-d :
a != b+1
a != b-1
a != c-1
a != c+1
b != c+1
b != c-1

[Bisam]

J'ai dit plus haut que l'on peut se limiter à chercher les solutions où A, B et C sont rangés dans l'ordre croissant. On peut donc se contenter d'éliminer les cas où B=A+1 et ceux où C=B+1.

Par contre, je retire ce que j'ai dit sur le nombre total de solutions.
En fait, je disais que pour chaque solution obtenue, on pouvait en trouver 5 autres en permutant les valeurs A, B et C... mais en fait dans tous les cas où on a 2 valeurs (ou 3) qui sont égales on a moins de possibilités que ça... et ce sont tous les ca ou presque puisque le seul cas où on a 3 valeurs différentes est 1,3,5.

Le nombre total de solutions est donc :
6 x 1 pour la solution 135
3 x 12 pour les solutions 113, 114, 115, 133, 144, 155, 224, 225, 244, 255, 335, 355
1 x 5 pour les solutions 111, 222, 333, 444, 555
-------
47 solutions.