de Hamza.S » 09 Fév 2016, 19:28
- Code: Tout sélectionner
: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: Tout sélectionner
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: Tout sélectionner
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: Tout sélectionner
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.
En plus, vous pourrez être orange sur le chat 
