Page 1 of 1

Aide pour un programme Tangente

Unread postPosted: 21 Jun 2015, 13:59
by abyz06
Bonjours, j'aurais juste besoin d'aide pour savoir quoi rentrer dans ma calculette au niveau de ce programme, je ne trouve pas de correspondance à la touche "touche" ... Merci de votre aide (les parties que je ne comprends pas sont marquées par des flèches) :

Code: Select all
:ClrHome
:Lbl M
:Menu("TANGENTE","CALCULER",A,"AIDE",B,"QUITTER",C)
:Lbl B
:A/180 -> B
:Output(3,4,"ENTREZ LA")
:Output(5,2,"FONCTION DANS")
:Output(7,7,"Y1")
:Pause
:ClrHome
:Goto M
:Lbl A
:Input "X = ",A
:nDeriv(Y1,[Touche X,T,THETA],A) -> B          <----------
:Y1(A)-BA -> C
:Output(3,3,"Y=AX+B")
:Output(5,5,"AVEC :"
:Output(6,5,"A =")
:Output(6,9,B)
:Output(7,5,"B =")
:Output(7,9,C)
:Pause
:Menu("GRAPHIQUE","NON",C,"OUI",D)
:Lbl D
:"B[Touche X,T,THETA]+C" -> Y2          <---------
:DispGraph
:Pause
:"" -> Y2
:Lbl C
:ClrHome

Re: Aide pour un programme Tangente

Unread postPosted: 21 Jun 2015, 14:03
by Wistaro
Déjà,

Dans des balises code c'est plus clair :

Code: Select all

:ClrHome
:Lbl M
:Menu("TANGENTE","CALCULER",A,"AIDE",B,"QUITTER",C)
:Lbl B
:A/180 -> B
:Output(3,4,"ENTREZ LA")
:Output(5,2,"FONCTION DANS")
:Output(7,7,"Y1")
:Pause
:ClrHome
:Goto M
:Lbl A
:Input "X = ",A
:nDeriv(Y1,[Touche X,T,THETA],A) -> B
:Y1(A)-BA -> C
:Output(3,3,"Y=AX+B")
:Output(5,5,"AVEC :"
:Output(6,5,"A =")
:Output(6,9,B)
:Output(7,5,"B =")
:Output(7,9,C)
:Pause
:Menu("GRAPHIQUE","NON",C,"OUI",D)
:Lbl D
:"B[Touche X,T,THETA]+C" -> Y2
:DispGraph
:Pause
:"" -> Y2
:Lbl C
:ClrHome

Re: Aide pour un programme Tangente

Unread postPosted: 21 Jun 2015, 14:04
by Mingerton
La balise code c'est encore mieux...
Code: Select all
ClrHome
Lbl M
Menu("TANGENTE","CALCULER",A,"AIDE",B,"QUITTER",C
Lbl B
A/180->B
Output(3,4,"ENTREZ LA
Output(5,2,"FONCTION DANS
Output(7,7,"Y1
Pause
ClrHome
Goto M
Lbl A
Input "X=",A
nDeriv(Y1,X,A->B
Y1(A)-BA->C
Output(3,3,"Y=AX+B
Output(5,5,"AVEC :
Output(6,5,"A=
Output(6,9,B
Output(7,5,"B=
Output(7,9,C
Pause
Menu("GRAPHIQUE","NON",C,"OUI",D
Lbl D
"BX+C->Y2
DispGraph
Pause
"-> Y2
Lbl C
ClrHome


Edit : grilled... :P

Re: Aide pour un programme Tangente

Unread postPosted: 21 Jun 2015, 14:06
by Wistaro
La fonction nDeriv() s'utilise ainsi

Code: Select all
,[Touche X,T,THETA],


Signifie juste que tu dois aller chercher la valeur du paramètre dans le X theta.

En gros, t'embête pas et met simplement X.

Cf le post de Mingerton ^

Re: Aide pour un programme Tangente

Unread postPosted: 21 Jun 2015, 14:22
by abyz06
Merci beaucoup, surtout pour avoir répondu à cette vitesse !! Il fonctionne parfaitement maintenant :)