Incrementation & Decrementation dans la meme boucle

[Ganagyre]

Bonjour.

J'ai ces 2 boucles pour Incrémenter et Décrémenter .

Code : Tout sélectionner

a.l:b.l
y.l:y.l
max.l = 100
;
; INCREMENTATION 1-2 // 99-100
;
For x = 1 To max - 1
  For y = x+1 To max
    Debug " Boucle Incrementation =  "+Str(x)+"  "+Str(y)   
  Next y
Next x
;
Debug"====================================="
Debug"====================================="
;
; DECREMENTATION_OKI 99-100 à 1-2
;
For a = max-1 To 1 Step -1  
  For b = max To a+1 Step-1    
    Debug " Boucle Décrémentation =  "+Str(a)+"  "+Str(b)     
  Next b     
Next a

Comment réduire ou transformer les boucles, pour obtenir les résultats d'incrémentation et décrémentation se suivant.

Code : Tout sélectionner

;
 Debug " Boucle Incrementation = "+Str(x)+"  "+Str(y) 
 Debug " Boucle Decrementation = "+Str(a)+"  "+Str(b) 
;

Voila, merci de toute astuce.

[cederavic]

Je ne suis pas sur d'avoir compris ce que tu voulais mais... ?

Code : Tout sélectionner

a.l:b.l
y.l:y.l
max.l = 10
;
; INCREMENTATION 1-2 // 99-100
;
For x = 1 To max - 1
  For y = x+1 To max
       
    a = max - x
    b = max - y
    
    Debug " Boucle Incrementation =  "+Str(x)+"  "+Str(y)
    Debug " Boucle Décrémentation =  "+Str(a)+"  "+Str(b) 
  Next y
Next x

[Ganagyre]

Merci cederavic pour le code.

Je cherche bien à faire en "un passage" une incrémentation et décrémentation, sur le premier code aucun problème en 2 boucles.
Il est plus délicat que je ne pensais de le faire en un "seul passage".
Cela décrémente bien, mais pas dans bon ordonement.
On devrait trouver dans la décrémentation pour un max = 10 :
9-10
8-10
8-9
7-10
7-9
7-8

Un réglage à affiner pour décrémenter, la c'est presque bon...

Code : Tout sélectionner

a.l:b.l
y.l:y.l
max.l = 10
c.l:d.l
c=max+1
d=max+1
;
; INCREMENTATION 1-2 // 99-100
;
For x = 1 To max - 1
  For y = x+1 To max
       
    a = max - x
    b = max - y
   
    Debug " Boucle Incrementation__ =  "+Str(x)+"  "+Str(y)     ; origine
    Debug " Boucle Décrémentation 1 =  "+Str(a)+"  "+Str(b)     ; cederavic
    Debug " Boucle Décrémentation 2 =  "+Str(c-y)+"  "+Str(d-x) ; 
    Debug "=========================="
    
  Next y
Next x

+

[kernadec]

bonjour
ta boucle part de 1
donc c'est le zéro qui te gêne dans la décrémentation peut être..

Cordialement

Code : Tout sélectionner

a.l:b.l
y.l:y.l
max.l = 10
c.l:d.l
c=max+1
d=max+1
;
; INCREMENTATION 1-2 // 99-100
;
For x = 1 To max - 1
	For y = x+1 To max
				
		a = max+1 - x
		b = max+1 - y
		
		Debug " Boucle Incrementation__ =  "+Str(x)+"  "+Str(y)     ; origine
		Debug " Boucle Décrémentation 1 =  "+Str(a)+"  "+Str(b)     ; cederavic
		Debug " Boucle Décrémentation 2 =  "+Str(c-y)+"  "+Str(d-x) ; 
		Debug "=========================="
		
	Next y
Next x

[cederavic]

Je ne suis toujours pas sur d'avoir compris... Peut-tu ecrire la liste inc et dec a la main de 0 à 5 stp?

D'apres ce que tu m'a donner :

Code : Tout sélectionner

max = 10
For it = 1 To max * max - max
  
  ix = (it / max) 
  iy = (it % max)
  
  If iy = max - 1
    it + ix + 2
  EndIf
  
  x = ix + 1
  y = iy + 1
  
  Debug " Boucle Incrementation   =  "+Str(x)+"  "+Str(y)
  
  dx = max - iy
  dy = max - ix
  
  
  Debug " Boucle Décrémentation 1 =  "+Str(dx)+"  "+Str(dy)
  
Next

[Ganagyre]

Merci cederavic et kernadec de votre aide.

En prenant comme référence le premier code (en 2 boucles distinctes), en ayant 5 comme valeur max, on obtient pour l'incrémentation une boucle qui "tourne 10 fois" donnant :
INC
1-2
1-3
1-4
1-5
2-3
2-4
2-5
3-4
3-5
4-5

Pour la décrémentation on obtient (10 passages):
DEC
4-5
3-5
3-4
2-5
2-4
2-3
1-5
1-4
1-3
1-2

A noter que l'on ne passe jamais par 0, pour INC ou DEC.
La difficulté réside à rester dans le meme ordre pour INC comme pour DEC.

Le Résultat devrait donner (avec max = 5):

01_INC=1-2__DEC=4-5
02_INC=1-3__DEC=3-5
03_INC=1-4__DEC=3-4
04_INC=1-5__DEC=2-5
05_INC=2-3__DEC=2-4
06_INC=2-4__DEC=2-3
07_INC=2-5__DEC=1-5
08_INC=3-4__DEC=1-4
09_INC=3-5__DEC=1-3
10_INC=4-5__DEC=1-2

[kernadec]

@ Ganagyre excuse moi, pour le code précèdent j'ai repris ce que tu avais mis.

regarde celui la, ll ressemble à ce que tu demande.

je viens de voir à l'instant le post suivant de Dobro. excellent
Cordialement

Code : Tout sélectionner

For x=1 To 9
 For y=x+1 To 9
 
 Debug Str(x)+"-"+Str(y)+"        "+Str(10-x)+"-"+Str(10-y)

Next y 
Next x

[Backup]

bah ! facile

Code : Tout sélectionner

max=5
NewList tableau.s()
NewList tableau2.s()

For ext=1 To max-1
    For int1=ext+1 To max
        compteur=compteur+1 
        AddElement(tableau())
        tableau()= Str(ext)+"-"+Str(int1) 
          AddElement(tableau2())
        tableau2()= Str(ext)+"-"+Str(int1) 
    Next int1
Next ext

; affiche résultat


ResetList(tableau())
LastElement(tableau2())
compteur=0
While NextElement(tableau())
    compteur=compteur+1 
    Debug Str(compteur)+"_INC="+tableau()+"_DEC="+tableau2()
    PreviousElement(tableau2())
Wend

et voila

1_INC=1-2_DEC=4-5
2_INC=1-3_DEC=3-5
3_INC=1-4_DEC=3-4
4_INC=1-5_DEC=2-5
5_INC=2-3_DEC=2-4
6_INC=2-4_DEC=2-3
7_INC=2-5_DEC=1-5
8_INC=3-4_DEC=1-4
9_INC=3-5_DEC=1-3
10_INC=4-5_DEC=1-2

[cederavic]

Okkkkk j'ai pigé! Et ça va beaucoup mieux maintenant que j'ai compris

Code : Tout sélectionner

max = 5
xINC = 1
yINC = 1
it = 0
itMax = 1
For a = 1 To (max * (max - 1)) / 2
 
  ; INC
  yINC + 1
  If yINC = max + 1
    xINC + 1
    yINC = xINC + 1
  EndIf
  
  ; DEC
  it + 1
  If it > itMax
    it = 1
    itMax + 1
  EndIf
  xDEC = max - itMax
  yDEC = max - it + 1
  
  Debug RSet(Str(a), 2, "0") + "_INC="+Str(xINC)+"-"+Str(yINC)+"__DEC="+Str(xDEC)+"-"+Str(yDEC)

Next

[kernadec]

bonjour Cederavic
merci pour ce code je le met de coté, car ça m'as pris la tête ce truc ..
et je commençais à tourner en rond....

Cordialement

[Backup]

ce qui est marrant c'est de voir que pour résoudre un probleme
chacun a son propre cheminement

[Ganagyre]

Bonjour.

Grand merci cederavic, Dobro , kernadec pour votre aide et vos solutions.

+

[Geo Trouvpatou]

Salut.

C'est là que je me dis que le "EnableExplicit" à son intérêt, parce qu'au bout d'un moment on s'aperçoit de l'erreur de la ligne 2

Code : Tout sélectionner

y.l:y.l

Ici ça n'a pas d'importance, mais c'est une bonne habitude à prendre.

Bye.