[Résolu]Débutant en algorithme/programme

[Max84]

J'ai toujours la même erreur :/

[Levak]

Ah oui, j'avais pas vu, mais tu as inversé les opérandes de ->
On l'utilise comme ceci : valeur -> variable.
Il existe une autre manière : variable := valeur

[Max84]

Merci
Nouveau problème : maintenant, le programme semble tourner indéfiniment (il y a une petite pendule qui tourne indéfiniment au milieu de l'écran)
J'arrive pas a fermer la page O_O

Je suis arrivé à éteindre la calculette, finalement. Je crois qu'il y avait un problème avec la boucle

[Levak]

La prochaine fois que tu as un problème de boucle enfonce la touche ON.

[Max84]

OK
Et du coup-là, qu'est-ce qui cloche selon toi ?
(je remets le programme modifié, pour l'avoir sous les yeux)

Code: Select all

Define NbTri()=
Prgm
Local t,n,i
t:=0
i:=0
Request "T est égal à ...",t
Loop
If t "différent de" (je n'ai pas la touche sur le clavier de ma tablette ^^') i
n:=t-i
i:=i+1
Else
EndLoop
Disp n
EndPrgm

[Levak]

Ça s'enregistre ça ??
En gros tu as remplacé ton Exit par EndLoop...
EndLoop n'est pas une instruction mais une fin de bloc.
Donc remet ton Exit après ton Else

[Max84]

Oui, ça s'était enregistré.
Sinon, avec le Exit après le Else j'ai "manque d'une instruction de début ou de fin de bloc"
Edit : Avec un Endif avant le Exit, ça fonctionne.

Code: Select all

Define NbTri()=
    Prgm
    Local t,n,i
    t:=0
    i:=0
    Request "T est égal à ...",t
    Loop
    If t "différent de" (je n'ai pas la touche sur le clavier de ma tablette ^^') i
    n:=t-i
    i:=i+1
    Else
    EndLoop
    Disp n
    EndPrgm

Cependant,si j'essaie l'algorithme,il se trompe : pour le nombre T2, l'algorithme me sort 2 alors que normalement T2=3

[Levak]

Edit : Avec un Endif avant le Exit, ça fonctionne.

Tu veux dire un EndIf après le Exit ?

[Max84]

Mea culpa, j'ai fait une erreur de logique...
c'est n:=n+t-i que j'aurai du mettre.

... Mais cette fois, j'ai "erreur : la variable n'est pas défini), ce qui est bizarre, étant donné que le programme ne change quasiment pas par rapport à tout à l'heure :/ Seul le calcul es modifié

PS: je viens de voir ton message. Je l'avais mis avant, mais je modifie cela. Quoi qu'il en soit, mon erreur reste

[Max84]

Victoire !
LA calculette faisait juste confusion entre le "n" de départ et celui qui prend la valeur du calcul.
Ainsi, si je crée une variable j, ça va beaucoup mieux :

Code: Select all

    Define NbTri()=
        Prgm
        Local t,n,i,j
        t:=0
        i:=0
        j:=O
        Request "T est égal à ...",t
        Loop
        If t "différent de" (je n'ai pas la touche sur le clavier de ma tablette ^^') i
        n:=j+t-i
        i:=i+1
        j:=n
        Else
        Exit
        EndLoop
        Disp n
        EndPrgm

Merci beaucoup pour votre aide et votre patience !