Page 1 of 1

Problème dans mon programme

Unread postPosted: 02 Dec 2019, 12:08
by bosphoramus
Bonjour.
J'ai un problème dans mon programme mais je ne vois pas d'où il provient vous pouvez m'aider s'il vous plait ? Merci d'avance. Pour avoir le problème il faut aller dans Géométrique -> Détail des calculs -> Soustraction -> Soustraction
Je vous ai mis le programme indenté au cas où vous soyez comme moi et vous préférez voir un programme indenté en terme de clarté.

Re: Problème dans mon programme

Unread postPosted: 02 Dec 2019, 14:15
by Hamza.S
et si tu détaillais le problème pour éviter que ceux et celles qui essayeront de t'aider puissent le faire dans de bonnes conditions ?

Re: Problème dans mon programme

Unread postPosted: 16 Dec 2019, 11:51
by bosphoramus
Bonjour.
Désolé de ne pas avoir répondu avant. En ce moment j'ai pas eu beaucoup de temps.

Ça m'affiche cette erreur.
Capturer 1.png
Capturer 1.png (5.2 KiB) Viewed 229 times


Je sais que ça correspond aux Lbl, Menu et Goto, tout ce qui permet de se déplacer dans le programme, mais pourtant je vois pas d'où viens le problème. Tout me parait bon au niveau de l'erreur (c'est peut-être une toute petite erreur mais en tout cas je ne vois rien.). Est-ce que vous ne sauriez pas d'où viens le programme s'il vous plait? Merci beaucoup d'avance pour votre réponse.

Re: Problème dans mon programme

Unread postPosted: 16 Dec 2019, 12:49
by Hamza.S
Quant est-ce que ça apparaît ?
Quelle menu ?
Quelle option ?

Re: Problème dans mon programme

Unread postPosted: 16 Dec 2019, 15:09
by bosphoramus
Je l'ai dit ça. Je l'ai dit là.

bosphoramus wrote:Bonjour.
J'ai un problème dans mon programme mais je ne vois pas d'où il provient vous pouvez m'aider s'il vous plait ? Merci d'avance. Pour avoir le problème
il faut aller dans Géométrique -> Détail des calculs -> Soustraction -> Soustraction

Je vous ai mis le programme indenté au cas où vous soyez comme moi et vous préférez voir un programme indenté en terme de clarté.

Re: Problème dans mon programme

Unread postPosted: 17 Dec 2019, 17:16
by bosphoramus
C'est pas l'info qu'il vous fallait ?

Re: Problème dans mon programme

Unread postPosted: 17 Dec 2019, 17:23
by edgar13
Désarchive le programme pour voir ou est l'erreur. :)

Re: Problème dans mon programme

Unread postPosted: 17 Dec 2019, 18:09
by LePetitMage
Ça serait peut-être mieux de donner le programme sans passer par un téléchargement ?

Code: Select all
EffÉcran

Menu("Gémoétrique ou calculer ?","Géométrique",5,"Calculer",6)

Lbl 5
Menu("Détail des calculs ?","Détail des calculs",1,"Seulement le résultat",2)

Lbl 1
Menu("Quel est le signe ?","Multiplication",21,"Addition",31,"Soustraction",41)

Lbl 21
Input "1er nombre (exposant) : ",Chn1
Input "2ème nombre : ",Chn2
Lbl 72
Disp "  Un+1     "+Chn2+" × "+Chn1+"n+1  "
Disp " ------ = ---------- =
Disp "   Un       "+Chn2+" × "+Chn1+"n     "
Disp "  "+Chn1+"n+1 "
Disp " ------ = "+Chn1+"n+1-n = "+Chn1
Disp "   "+Chn1
Disp "La suite est géométrique"
Pause

Goto 25

Lbl 31
Input "   1er nombre (Un): ",W
Input "   2ème nombre : ",X
Input "   U0 : ",V
Input "   3ème nombre (Vn) :",B
versChaîne(W)→Chn1
versChaîne(X)→Chn2
versChaîne(V)→Chn3
versChaîne(B)→Chn4
B+X→I
W*B→Q
versChaîne(I)→Chn5
versChaîne(Q)→Chn6
Lbl 75
Disp "   Vn = Un + "+Chn4
Disp "   Un+1 = "+Chn1+"Un + "+Chn2
Disp "   Vn+1 = Un+1 + "+Chn4
Pause
Disp "   Vn+1 = ("+Chn1+"Un + "+Chn2+")"+" + "+Chn4
Disp "   Vn+1 = "+Chn1+"Un + "+Chn5
Disp "or Vn = Un + "+Chn4
Pause
Disp "   "+Chn1+"Vn = "+Chn1+"(Un + "+Chn4+")"
Disp "   "+Chn1+"Vn = "+Chn1+"Un + "+Chn6

If I=Q
Then
Disp "   "+Chn1+"Vn = Vn+1"
Disp "   La suite est géométrique "+"de raison "+Chn5
Pause

Goto 35
Else
Disp "  "+Chn1+"Vn ≠ Vn+1"
Disp "  La suite n'est pas géométrique"
Pause

Goto 7
End

Lbl 41
Menu("Signe Un : ","Addition",61,"Soustraction",62)

Lbl 61
Input "   1er nombre (Un): ",W
Input "   2ème nombre : ",X
Input "   U0 : ",V
Input "   3ème nombre (Vn) :",B
versChaîne(W)→Chn1
versChaîne(X)→Chn2
versChaîne(V)→Chn3
versChaîne(B)→Chn4
B-X→I
W*B→Q
versChaîne(I)→Chn5
versChaîne(Q)→Chn6
Lbl 91
Disp "   Vn = "+Chn4+" - Un"
Disp "   Un+1 = "+Chn1+"Un + "+Chn2
Disp "   Vn+1 = "+Chn4+" - Un+1"
Pause
Disp "   Vn+1 = "+Chn4+" - ("+Chn1+"Un + "+Chn2+")"
Disp "   Vn+1 = "+Chn5+" - "+Chn1+"Un"
Disp "or Vn = "+Chn4+" - Un"
Pause
Disp "   "+Chn1+"Vn = "+Chn1+"("+Chn4+" - Un)"
Disp "   "+Chn1+"Vn = "+Chn6+" - "+Chn1+"Un"

If I=Q
Then
Disp "   "+Chn1+"Vn = Vn+1"
Disp "   La suite est géométrique "+"de raison "+Chn5
Pause

Goto 81
Else
Disp "   "+Chn1+"Vn ≠ Vn+1"
Disp "   La suite n'est pas géométrique"
Pause

Goto 7
End

Ldl 62
Menu("Signe Vn : ","Addition",63,"Soustraction",64)

Lbl 63
Input "   1er nombre (Un): ",W
Input "   2ème nombre : ",X
Input "   U0 : ",V
Input "   3ème nombre (Vn) :",B
versChaîne(W)→Chn1
versChaîne(X)→Chn2
versChaîne(V)→Chn3
versChaîne(B)→Chn4
B-X→I
W*B→Q
versChaîne(I)→Chn5
versChaîne(Q)→Chn6
Lbl 93
Disp "   Vn = "+Chn4+" + Un"
Disp "   Un+1 = "+Chn1+"Un - "+Chn2
Disp "   Vn+1 = "+Chn4+" + Un+1"
Pause
Disp "   Vn+1 = "+Chn4+" + ("+Chn1+"Un - "+Chn2+")"
Disp "   Vn+1 = "+Chn5+" + "+Chn1+"Un"
Disp "or Vn = "+Chn4+" + "+Chn1+"Un"
Pause
Disp "   "+Chn1+"Vn = "+Chn1+"("+Chn4+" + Un)"
Disp "   "+Chn1+"Vn = "+Chn6+" - "+Chn1+"Un"

If I=Q
Then
Disp "   "+Chn1+"Vn = Vn+1"
Disp "   La suite est géométrique "+"de raison "+Chn5
Pause

Goto 82
Else
Disp "   "+Chn1+"Vn ≠ Vn+1"
Disp "   La suite n'est pas géométrique"
Pause

Goto 7
End

Lbl 64
Input "   1er nombre (Un): ",W
Input "   2ème nombre : ",X
Input "   U0 : ",V
Input "   3ème nombre (Vn) :",B
versChaîne(W)→Chn1
versChaîne(X)→Chn2
versChaîne(V)→Chn3
versChaîne(B)→Chn4
B-X→I
W*B→Q
versChaîne(I)→Chn5
versChaîne(Q)→Chn6
Lbl 95
Disp "   Vn = "+Chn4+" - Un"
Disp "   Un+1 = "+Chn1+"Un - "+Chn2
Disp "   Vn+1 = "+Chn4+" - Un+1"
Pause
Disp "   Vn+1 = "+Chn4+" - ("+Chn1+"Un - "+Chn2+")"
Disp "   Vn+1 = "+Chn5+" - "+Chn1+"Un"
Disp "or Vn = "+Chn4+" - "+Chn1+"Un"
Pause
Disp "   "+Chn1+"Vn = "+Chn1+"("+Chn4+" - Un)"
Disp "   "+Chn1+"Vn = "+Chn6+" - "+Chn1+"Un"

If I=Q
Then
Disp "   "+Chn1+"Vn = Vn+1"
Disp "   La suite est géométrique "+"de raison "+Chn5
Pause

Goto 83
Else
Disp "   "+Chn1+"Vn ≠ Vn+1"
Disp "   La suite n'est pas géométrique"
Pause

Goto 7
End

Lbl 2
Menu("Quel est le signe ?","Multiplication",22,"Addition",32,"Soustraction",42)

Lbl 22
Input "1er nombre (Un): ",W
Input "2ème nombre : ",X
Lbl 73
Disp "La suite est géométrique"
Pause

Goto 25

Lbl 32
Input "1er nombre (Un): ",W
Input "2ème nombre : ",X
Input "U0 : ",V
Input "3ème nombre (Vn) :",B
B+X→I
W*B→Q
Lbl 76

If I=Q
Then
Disp "La suite est géométrique "
Disp "de raison ",I
Pause

Goto 35
Else
Disp "La suite n'est pas géométrique"
Pause

Goto 7
End

Lbl 42
Menu("Signe Un : ","Addition",65,"Soustraction",66)

Lbl 65
Input "1er nombre (Un): ",W
Input "2ème nombre : ",X
Input "U0 : ",V
Input "3ème nombre (Vn) :",B
B-X→I
W*B→Q
versChaîne(I)→Chn5
Lbl 92

If I=Q
Then
Disp "La suite est géométrique"+"de raison "+Chn5
Pause

Goto 81
Else
Disp "La suite n'est pas géométrique"
Pause

Goto 7
End

Lbl 66
Menu("Signe Vn : ","Addition",67,"Soustraction",68)

Lbl 67
Input "1er nombre (Un): ",W
Input "2ème nombre : ",X
Input "U0 : ",V
Input "3ème nombre (Vn) :",B
B-X→I
W*B→Q
versChaîne(I)→Chn5
Lbl 94

If I=Q
Then
Disp "La suite est géométrique"+"de raison "+Chn5
Pause

Goto 82
Else
Disp "La suite n'est pas géométrique"
Pause

Goto 7
End

Lbl 68
Input "1er nombre (Un): ",W
Input "2ème nombre : ",X
Input "U0 : ",V
Input "3ème nombre (Vn) :",B
B-X→I
W*B→Q
versChaîne(I)→Chn5
Lbl 96

If I=Q
Then
Disp "La suite est géométrique"+"de raison "+Chn5
Pause

Goto 83
Else
Disp "La suite n'est pas géométrique"
Pause

Goto 7
End

Lbl 6
Menu("Détail des calculs ?","Détail des calculs",3,"Seulement le résultat",4)

Lbl 3
Menu("Quel est le signe ?","Exposant",23,"Addition",33,"Soustraction",43)

Lbl 23
Input "1er nombre (exposant) : ",B
Input "2ème nombre : ",I
Lbl 27
Input "Nombre de fois (exposant) : ",Q
versChaîne(B^Q+I)→Chn7
versChaîne(B)→Chn1
versChaîne(I)→Chn2
versChaîne(Q)→Chn3
Disp Chn1+"^"+Chn3+" + "+Chn2+" = "+Chn7
Disp "Le résultat est "+Chn7
Pause

Menu("Voir si une suite est géométrique ?","Oui",51,"Non",52)

Lbl 51
Goto 5

Lbl 52
Menu("Voulez-vous calculer ?","Oui",53,"Non",54)

Lbl 53
Goto 6

Lbl 54
Goto 10

Lbl 33
Input "1er nombre (Un): ",W
Input "2ème nombre : ",X
Input "U0 : ",V
Lbl 37
Input "Jusqu'à U ?",Q
Input "Vitesse d'affichage : ",U
Q+1→Q
0→Z
0→T
1→S
versChaîne(W)→Chn1
versChaîne(X)→Chn2
versChaîne(V)→Chn3
versChaîne(S)→Chn8
Disp "Un = "+Chn1+"Un + "+Chn2
Pause

While Z≠Q
While T≠U et Z≠Q
WV+X→V
Disp "U"+Chn8+" = "+Chn1+" × "+Chn3+" + "+Chn2+" = ",V
versChaîne(V)→Chn3
T+1→T
Z+1→Z
S+1→S
versChaîne(S)→Chn8
End
Pause
0→T
End

Disp "Le résultat est "+Chn3
Pause

Menu("Voir si une suite est géométrique ?","Oui",51,"Non",52)

Lbl 51
Goto 5

Lbl 52
Menu("Voulez-vous calculer ?","Oui",53,"Non",54)

Lbl 53
Goto 6

Lbl 54
Goto 10

Lbl 43
Input "1er nombre (Un): ",W
Input "2ème nombre : ",X
Input "U0 : ",V
Lbl 47
Input "Nombre de fois : ",Q
Input "Vitesse d'affichage : ",U
0→Z
0→T
1→S
versChaîne(W)→Chn1
versChaîne(X)→Chn2
versChaîne(V)→Chn3
versChaîne(S)→Chn8
Disp "Un = "+Chn1+"Un - "+Chn2
Pause

While Z≠Q
While T≠U et Z≠Q
WV-X→V
Disp "U"+Chn8+" = "+Chn1+" × "+Chn3+" - "+Chn2+" = ",V
versChaîne(V)→Chn3
T+1→T
Z+1→Z
S+1→S
versChaîne(S)→Chn8
End
Pause
0→T
End

Disp "Le résultat est "+Chn3
Pause

Menu("Voir si une suite est géométrique ?","Oui",51,"Non",52)

Lbl 51
Goto 5

Lbl 52
Menu("Voulez-vous calculer ?","Oui",53,"Non",54)

Lbl 53
Goto 6

Lbl 54
Goto 10

Lbl 4
Menu("Quel est le signe ?","Exposant",24,"Addition",34,"Soustraction",44)

Lbl 24
Input "1er nombre (exposant) : ",B
Input "2ème nombre : ",I
Lbl 28
Input "Nombre de fois (exposant) : ",Q
versChaîne(B^Q+I)→Chn7
Disp "Le résultat est "+Chn7
Pause

Menu("Voir si une suite est géométrique ?","Oui",51,"Non",52)

Lbl 51
Goto 5

Lbl 52
Menu("Voulez-vous calculer ?","Oui",53,"Non",54)

Lbl 53
Goto 6

Lbl 54
Goto 10

Lbl 34
Input "1er nombre (Un): ",W
Input "2ème nombre : ",X
Input "U0 : ",V
Lbl 38
Input "Nombre de fois : ",Q
0→Z

While Z≠Q
WV+X→V
Z+1→Z
End
versChaîne(V)→Chn3

Disp "Le résultat est "+Chn3
Pause

Menu("Voir si une suite est géométrique ?","Oui",51,"Non",52)

Lbl 51
Goto 5

Lbl 52
Menu("Voulez-vous calculer ?","Oui",53,"Non",54)

Lbl 53
Goto 6

Lbl 54
Goto 10

Lbl 44
Input "1er nombre (Un): ",W
Input "2ème nombre : ",X
Input "U0 : ",V
Lbl 48
Input "Nombre de fois : ",Q
0→Z

While Z≠Q
WV-X→V
Z+1→Z
End
versChaîne(V)→Chn3

Disp "Le résultat est "+Chn3
Pause

Menu("Voir si une suite est géométrique ?","Oui",51,"Non",52)

Lbl 51
Goto 5

Lbl 52
Menu("Voulez-vous calculer ?","Oui",53,"Non",54)

Lbl 53
Goto 6

Lbl 54
Goto 10

Lbl 25
Menu("Voulez-vous le calculer ?","Oui",26,"Non",29)

Lbl 26
Menu("Détail des calculs ?","Détail des calculs",27,"Seulement le résultat",28)

Lbl 29
Menu("Revoir le calcul depuis le début","Oui",71,"Non",8)

Lbl 71
Menu("Détails des calculs ?","Détail des calculs",72,"Seulement le résultat",73)

Lbl 35
Menu("Voulez-vous le calculer ?","Oui",36,"Non",39)

Lbl 36
Menu("Détail des calculs ?","Détail des calculs",37,"Seulement le résultat",38)

Lbl 39
Menu("Revoir le calcul depuis le début","Oui",74,"Non",8)

Lbl 74
Menu("Détails des calculs ?","Détail des calculs",75,"Seulement le résultat",76)

Lbl 81
Menu("Revoir le calcul depuis le début","Oui",84,"Non",77)

Lbl 84
Menu("Détails des calculs ?","Détail des calculs",91,"Seulement le résultat",92)

Lbl 82
Menu("Revoir le calcul depuis le début","Oui",85,"Non",77)

Lbl 85
Menu("Détails des calculs ?","Détail des calculs",93,"Seulement le résultat",94)

Lbl 83
Menu("Revoir le calcul depuis le début","Oui",86,"Non",77)

Lbl 86
Menu("Détails des calculs ?","Détail des calculs",95,"Seulement le résultat",96)

Lbl 77
Menu("Voulez-vous le calculer ?","Oui",46,"Non",8)

Lbl 46
Menu("Détail des calculs ?","Détail des calculs",47,"Seulement le résultat",48)

Lbl 8
Menu("Calculer une suite ?","Oui",6,"Non",7)

Lbl 7
Menu("Voir si une suite est géométrique ?","Oui",5,"Non",10)

Lbl 10
Disp "Fin du programme !!"

Re: Problème dans mon programme

Unread postPosted: 17 Dec 2019, 18:11
by LePetitMage
Le problème est simple, tu as écrit "Ldl" au lieu de "Lbl".

Code: Select all
Ldl 62
Menu("Signe Vn : ","Addition",63,"Soustraction",64)