Bonjour à tous,

Depuis 3 jours je découvre la programmation Casio Basic.
Je tente de mettre au point un programme qui m'affiche simplement une derrivée.

Je lance mon programme, Je demande une page (1 2 ou3)
Et dans cette page apparait des dérivés comme:
1: UxV
2: U/V
etc

Je rentre la valeur 1, la dérivée s'affiche comme u' x v +u x v' pour UxV par exemple

Et cela pour chaque page, j'ai utiliser les fonction if then goto,
Mais voila je suis bloquer au debut j'ai eu beau essayer beaucoups de choses sa ne bouge pas.
Quand je rentre 1 pour la page, cela fonctionne, si je rentre 2 cela ne marche pas,
et si après la page 1 je rentre n'importe quelle valeur, au lieu d'afficher la dérivée, la page 2 s'affiche...

J’espère que quelqu’un va pouvoir m'aider.
Voila le programme :
(un fichier est joint car j'ai coller le programme mais il n'est pas correctment afficher)

'ProgramMode:RUN
Blue Locate 7,2,"Derivees"
Green Locate 10,4,"by"

Red Locate 7,6,"ShownbacK"DispsClrText
Lbl 1
Red "Page:"
"1"
"2"
"3"
?->A

If A=1
Then
Goto 2

IfEnd
If A=2
Then
Goto 3

IfEnd
If A=3
Then
Goto 4

ClrText
IfEnd

Lbl 2
Red "Que Deriver:"
"1 u+v+w"
"2 u*v"
"3 AFAIRE"
"4 u/v"
"5 f o u"
"6 x->xPALPHA"
"7 uPALPHA"
?->B
Goto 1

Lbl 3
Red "Que Deriver:"
"8 x->1/x"
"9 1/u"
"10 x->RACINx"
"11 RACINu"
"12 x->lnx"Disps
"13 lnu"
"14 x->ePX"
?->B
Goto 1

Lbl 4
Red "Que Deriver:"
"15 ePu"
"16 x->ePax"
"17 x->cosx"
"18 cosu"
"19 x->sinx"
"20 sinu"
"21 ePu"
?->B
Goto 1

If B=1
Then "u'+v'+w'"DispsClrText
Goto 1

IfEnd
If B=2
Then "u'*v+u*v'"DispsClrText
Goto 1

ClrText
IfEnd

Fichier joint