je fait un petit prg en console vite fait puis je prends arbitrairement
les 3 lettre "dob" que je met en tableau , jusque la pas de blem
mais lorsque j'arrive la ou j'ai mis le Calldebugger
ya comme qui dirai un BLOCAGE dans le TRACE de la boucle
c'est comme si la boucle se tracais, mais que l'on ne vois pas le tracage se faire !!!
et d'ailleur le contenu de la boucle n'est apparament pas effectué
pourquoi ??
j'ai mis les explications dans le listing , si vous avez quelques minutes a perdre
OpenConsole ()
: Print ( "entrer un mot" )
:mot$= Input ()
mot$= "dob"
long= Len (mot$)
Dim mo$(long+1)
For i=1 To long
mo$(i)= Mid (mot$,i,1)
Next i
; **************Factoriel ****************
lg=long
For t=long-1 To 1 Step -1
lg=lg*(t)
Next t
; ***************************************
Print (mot$+ Chr (10))
For i=1 To lg
o=long-1
o2=long
Swap mo$(o),mo$(o2)
For a=1 To long
sorti$=sorti$+mo$(a)
Next a
Print (sorti$+ Chr (10))
sorti$= ""
;****************** GROS PROBLEME NON ? *****************************
CallDebugger
buf$=mo$(long) ; on met la derniere lettre "o" dans un buffer , ça c'est bon !!!
For a=long To 1 Step -1 ; en principe ici a devrai etre egale a Long , mais le trace n'avance pas pendant 3 tours pourquoi
Swap mo$(a) , mo$(a-1) ; ceci n'est pas TRACE !!!!!!!!!
Next a
mo$(1)=buf$
; ********************************************************************
For a=1 To long
sorti$=sorti$+mo$(a)
Next a
Print (sorti$+ Chr (10))
sorti$= ""
Next i
Input ()
CloseConsole ()
