A voir également:
- Ti 83+
- Factorielle ti 83 ✓ - Forum calculatrices
- Supprimer programme ti 83 - Forum calculatrices
- Ba moin en ti bo traduction ✓ - Forum Loisirs / Divertissements
- Supression programmes dans calculatrice TI-82 ✓ - Forum calculatrices
- Comment entrer des formules dans une calculatrice ti-83 - Forum calculatrices
3 réponses
Salut! Voici le mien qui marche très bien.Il donne aussi les valeurs dans les complexes
petites info: il existe une flèche sur ta calculette que je représenterai par: ->
il existe aussi une touche racine que je représenterai par: racine
il existe encore une touche i pour les complexes que je représenterai par: i
si tu le recopies à la lettre il devrait marcher
:delta
:Prgm
:Disp " BONJOUR"
:Pause
:Disp" Entrez Les Valeurs"
:Disp" de a,b,c:"
:b^2-4*a*c->d
:Disp "delta=b²-4ac"
:Disp "delta=",d
:Pause
:If d<0 Then
:Disp "delta<0 donc pas de solution dans R"
:Disp"x'=(-b+iracine(-delta))/2a",(-b+i*racine(-d))/(2*a)
:Disp"x''=(-b-iracine(-delta))/2a",(-b-i*racine(-d))/(2*a)
:Else
:If d=0 Then
:Disp "Delta nul"
:Disp "Une racine double"
:Disp "x=-b/(2a)",-b/(2*a)
:Else
:Disp "x'=(-b+racine(delta))/2a",(-b+racine(d))/(2*a)
:Disp"x''=(-b-racine(delta))/2a",(-b-racine(d))/(2*a)
:EndIf
:EndIf
:EndPrgm
Et voilà ce programme te suivra toute ta vie
petites info: il existe une flèche sur ta calculette que je représenterai par: ->
il existe aussi une touche racine que je représenterai par: racine
il existe encore une touche i pour les complexes que je représenterai par: i
si tu le recopies à la lettre il devrait marcher
:delta
:Prgm
:Disp " BONJOUR"
:Pause
:Disp" Entrez Les Valeurs"
:Disp" de a,b,c:"
:b^2-4*a*c->d
:Disp "delta=b²-4ac"
:Disp "delta=",d
:Pause
:If d<0 Then
:Disp "delta<0 donc pas de solution dans R"
:Disp"x'=(-b+iracine(-delta))/2a",(-b+i*racine(-d))/(2*a)
:Disp"x''=(-b-iracine(-delta))/2a",(-b-i*racine(-d))/(2*a)
:Else
:If d=0 Then
:Disp "Delta nul"
:Disp "Une racine double"
:Disp "x=-b/(2a)",-b/(2*a)
:Else
:Disp "x'=(-b+racine(delta))/2a",(-b+racine(d))/(2*a)
:Disp"x''=(-b-racine(delta))/2a",(-b-racine(d))/(2*a)
:EndIf
:EndIf
:EndPrgm
Et voilà ce programme te suivra toute ta vie
Il y a un problème avec ton programme , La calculatrice affiche erreur:syntaxe au niveau du If D<0 Then , y'a un problème avec le " then " ... comment je dois faire :S
tu dois l'écrire comme ceci:
:If D<0
:Then
ect
pareil pour:
:If D=0
:Then
etc
perso j'ai utiliser ce que tu as mis met j'ai du faire quelque changements pour que ça marche parfaitement.
PS: pour
:EndIf
:EndIf
:EndPrgm
sa marchait pas non plus (erreur) alors j'ai enlevé ces 3 ligne et sa marche. Il y a d'autre truc encor mais je me souviens plus.
:If D<0
:Then
ect
pareil pour:
:If D=0
:Then
etc
perso j'ai utiliser ce que tu as mis met j'ai du faire quelque changements pour que ça marche parfaitement.
PS: pour
:EndIf
:EndIf
:EndPrgm
sa marchait pas non plus (erreur) alors j'ai enlevé ces 3 ligne et sa marche. Il y a d'autre truc encor mais je me souviens plus.
