Forum TI-Planet.org

Bien le bonjour a vous, j'ai récemment fais l’acquisition d'une TI-NSPIRE CX CAS, et après quelques bidouillages j'ai décidé de transférer les programmes de mon ancienne TI 82 Stats.fr vers ma nouvelle calculatrice, cependant je me suis vite rendu compte que le TI Basic sur la Nspire n'est pas le même que que la TI 82, je requiert donc votre aide afin de m'aider a transformer mon programme, si bien sur cela ne vous dérange pas

voici le programme un bête calcul du DELTA :

Code: Select all

:Prompt A,B,C
:B²-4AC->D
:Disp "DELTA=",D
:
:if D>0
:Then
:(-B-RAC(D))/(2*A)->X
:(-B+RAC(D))/(2*A)->Y
:Disp "X1=",X
:Disp "X2=",Y
:Else
:If D=0
:Then
:-B/(2*A)->z
:Disp^"X=",Z
:Else
:Disp "PAS DE SOLUTION"
:
:Pause
:EffEcr:Output(1,1,"

Une fois effectué le programme affiche ceci :

DELTA= (résultat de D)

X1= (résultat de X)
X2= (résultat de Y)
ou
X= (résultat de Z)

je souhaiterais obtenir le même résultat si possible, j'ai déjà fait le tour de votre site malheureusement je n'ai pas trouvé de programme ce rapprochant de celui ci en termes de résultats. Et mon "Programme" me fait tout un tas d'erreur étranges.
Je vous remercie de votre patience ainsi que de votre attention.

Bon, en gros ça fonctionne + ou - de la même manière, mais tes variables peuvent prendre n'importe quel nom Voilà :

Code: Select all

Request "a",a
Request "b",b
Request "c",c
delta:=b²-4*a*c
If delta>0 Then
x1:=(-b-sqrt(delta))/2a
x2:=(-b+sqrt(delta))/2a
Disp "x1 = ",x1
Disp "x2 = ",x2
ElseIf delta=0 Then
x0:=-b/2a
Disp "x = ",x0
ElseIf delta<0 Then
Disp "Pas de solution"
EndIf

Code: Select all

:Prompt A,B,C
:B²-4AC->D
:Disp "DELTA=",D
:
:if D>0
:Then
:(-B-RAC(D))/(2*A)->X
:(-B+RAC(D))/(2*A)->Y
:Disp "X1=",X
:Disp "X2=",Y
:Else
:If D=0
:Then
:-B/(2*A)->z
:Disp^"X=",Z
:Else
:Disp "PAS DE SOLUTION"
:
:Pause
:EffEcr:Output(1,1,"

le langage est différent mais il est possible de faire presque la même chose, d'ailleurs il y a certaine avantage/possibilité sur la Npsire qui n'existe pas sur les TI-z80 (TI-73/76/81/82/83/84/85/86)
un programme qui commence par Prompt/Input, tu peux soit remplacé Prompt/Input par Request (utilisation Request "message",var) soit placé tes variables en argument exemple define algo(a,b,c)=

des exemples avec ton code : (la calculette accepte les minuscules et toutes variables passeront en minuscule)

Code: Select all

Define algo()=
Prgm
Local a,b,c,d,x,y,z  © Local pour ne pas polluer l'espace de travail avec des variable inutile
Request "a :",a
Request "b :",b
Request "c :",c
d:=B^2-4*A*C
  Disp "DELTA=",D
if D>0 Then
  x:=(-B-sqrt(D))/(2*A)
  y:=(-B+sqrt(D))/(2*A)
  Disp "X1=",X
  Disp "X2=",Y
ElseIf D=0 Then
  z:=-B/(2*A)
  Disp "X=",Z
Else
  Disp "PAS DE SOLUTION"
EndIf
EndPrgm

utilisation : lancer le programme algo() puis le programme te demande a, b et c
deuxième méthode :

Code: Select all

Define algo(a,b,c)=
Prgm
Local d,x,y,z
d:=B^2-4*A*C
Disp "DELTA=",D
if D>0 Then
  x:=(-B-sqrt(D))/(2*A)
  y:=(-B+sqrt(D))/(2*A)
  Disp "X1=",X
  Disp "X2=",Y
ElseIf D=0 Then
  z:=-B/(2*A)
  Disp "X=",Z
Else
  Disp "PAS DE SOLUTION"
EndIf
EndPrgm

utilisation : le lancement est un peu différent du premier il faut mettre les valeurs de a,b et c en argument
exemple : algo(1,2,1)
après on peut faire un programme plus intelligent qui prend automatiquement les coefficients du trinôme avec polycoeffs()

Code: Select all

Define algo(f)=
Prgm
Local a,b,c,d,x,y,z ,coeff
coeff:=polyCoeffs(f)
a:=coeff[1]
b:=coeff[2]
c:=coeff[3]
d:=B^2-4*A*C
Disp "DELTA=",D
if D>0 Then
  x:=(-B-sqrt(D))/(2*A)
  y:=(-B+sqrt(D))/(2*A)
  Disp "X1=",X
  Disp "X2=",Y
ElseIf D=0 Then
  z:=-B/(2*A)
  Disp "X=",Z
Else
  Disp "PAS DE SOLUTION"
EndIf
EndPrgm

utilisation : lancer le programme algo avec comme argument le trinôme exemple algo(x^2+2*x+1)

il ne faut pas oublier de faire pour enregistrer le code après avoir fini.

Merci STV et Hamza.S cependant vos programmes m'indique un manque d'instruction de début et de fin de blocs.

c'est que tu n'as pas fait comme moi

(j'ai pas remplacé les majuscules par des minuscules)

Je pense que si, je le fait depuis le simulateur sur pc ( je n'ai pas remplacé les RAC())

ce qui est tout a fait normal puisque tu n'utilises pas les caractères de la calculette
je vais remplacer les caractères patiente un peu
(c'est fait)

Rac( ne veut rien dire sur calculette...

je sais je ne l'ai juste pas remplacé pour le screenshot

STV wrote:Rac( ne veut rien dire sur calculette...

j'ai utilisé son écriture mais il n'a pas corrigé sur la calculette/logiciel

(rappel : j'ai remplacé les caractères)