Problème de programmation sur TI 83+ (TI basic)

Thibo

et pour R qu'il soit égale a 0 au départ ne me dérange pas car le pas P et de l'odre de 10^-... donc il ets forcemment infèrieur a 0 enfin je crois
pour les premières lignes je suis complètement d'accord :)

**Xywez**

Il te manque un "end" aussi dans ton programme pour que sa marche

--> le end du If, Then, Else, End
--> le end du While, End

_________________
:( c'est la fin des vacances :(

Thibo

a oui tu as raison oublié de le recopier mais il est dans le programme malheuresement mais bien vu quand même

**Xywez**

Thibo a écrit:

et pour R qu'il soit égale a 0 au départ ne me dérange pas car le pas P et de l'odre de 10^-... donc il ets forcemment infèrieur a 0 enfin je crois
pour les premières lignes je suis complètement d'accord :)

OULA tu m'inquiète la pour un terminale

10^-n'importe quoi c'est plus petit que 0 ???????????????????????????????????

même 10^-9999999 c'est > à 0 !!!

_________________
:( c'est la fin des vacances :(

Thibo

ba nan
10^-1 = 0.1
10^-2 = 0.01
etc . . . du moins c'est ce que j'ai toujours cru et c'est mm ce que me dis ma TI devant moi :) mm si elle est méchante là !

**Xywez**

Je la refait :

L\'affichage

:ClrHome
:Imput\"F(x) = \",Str1
:Str1 -> Y0
:ClrHome
:Disp\"\",\"Borne inf
:Imput\"A = \",A
:Disp\"\",\"Borne sup
:Imput\"B = \",B
:Disp\"\",\"Pas
:Imput\"P = \",P
:ClrHome

Le calcul :

:1 -> R
:While R>D
:(A+B)/2 ->C
:If Y1(A)*Y1(C)<0
:Then
:C ->B
:abs(C-A) ->R
:Else
:C ->A
:abs(C-B) ->R
:End
:End

L\'affichage du résulat :

:Disp\"Solution entre\",A,\"et\",B
:Pause
:ClrHome
:Delvar Str1 (supprime l\'équtiopn f(x))
:DelvarA DelvarB DelvarC DelvarR (supprime les valeurs des cstes)
:OUtput(1,1,\" (supprime le done de la fin)

_________________
:( c'est la fin des vacances :(

**Xywez**

Thibo a écrit:

ba nan
10^-1 = 0.1
10^-2 = 0.01
etc . . . du moins c'est ce que j'ai toujours cru et c'est mm ce que me dis ma TI devant moi :) mm si elle est méchante là !

Ba oui mais 0,01 >>>> 0 !

Donc t'a bien toujours R=0 < D=10^-qqch

_________________
:( c'est la fin des vacances :(

Thibo

j'avoue -_- jme tais dans ma tête c'était 1 -_- j'essaye en rajoutant une ligne au début

1->R

EDIT : That Work Merci bcp de ton aide Shame on me et pourtant je tourne autour du 17 en maths de moy. -_-

**Xywez**

Le code plus haut me parait pas mal non ?

_________________
:( c'est la fin des vacances :(

Thibo

oui menfin là ça reste du détails mais merci bcp

Mais j'avoue que là je suis trés peu fière de moi -_- par contre il y a quelques fonctions que tu me fais découvrir là merci encore je garde le tout je verrais tout ça demain il se fait tard go Dodo :) Heureux le coeur léger et tout et tout je savais bien que j'était un boulet xD

d'ailleur si je puis me faire mettre il y a un problème dans ton code tu stock le fonction en Y0 puis tu utilise Y1 il risque d'y avoir quelque problèmes mais comme direz ma gentille prof de spé (la p*** plein de récurrences qu'elle donne !!!!) ceci n'est qu'un détail (mais bon tu as 5 points en moins ça fait chère le détail nan ? :))

**Xywez**

ba essaye et dis moi le résultat

dsl pour les / ils se sont mis je c'est pas pourquoi mais y en a pas dans le programme

pour str1 c'est vars >> 7 >> 1

bon je vais faire dodo bonne chance et tien nous au courant

Ba oui mais le détail fait totue la différence entre un bon est moyen programme ^^

tien j'en profite pour me faire de la pub, essaye http://ti.bank.free.fr/index.php?mod=archives&ac=cat&id=Tableaux+p%E9riodiques+82 et propage le autour de toi ^^

_________________
:( c'est la fin des vacances :(

Thibo

ok je part a la recherche de suite de mon cable :)

**Xywez**

C'est sympa de l'essayer marci

_________________
:( c'est la fin des vacances :(

Thibo

autre erreur le pas passe de P à D en entrée il change aussi dans le code :) copier coller c'est mal xD

Thibo

Xywez a écrit:

:OUtput(1,1,\" (supprime le done de la fin)

je connais pas cette fonction (shame on me encore ) donc je ne sais pas comment l'écrire donc je l'ai écrit Output (1,1,1) mais cela me laisse affiché un 1 menfin osef le reste du programme marche
avec quelques correcttions :)

Code:

:ClrHome
:Imput "F(x) = ",Str1
:Str1 -> Y1
:ClrHome
:Disp "Borne inf"
:Imput "A = ",A
:Disp "Borne sup"
:Imput "B = ",B
:Disp "Pas"
:Imput "P = ",P
:ClrHome
:1 -> R
:While R>P
:(A+B)/2 ->C
:If Y1(A)*Y1(C)<0
:Then
:C ->B
:abs(C-A) ->R
:Else
:C ->A
:abs(C-B) ->R
:End
:End
:Disp "Solution entre A et B",C (peut pas afficher les valeur de A et de B car elles sont changées dans l'algoritme où alors les stocker au dépard (je verrais ça demain :))
:Pause
:ClrHome
:Delvar Str1
:DelvarA DelvarB DelvarC DelvarR
:OUtput(1,1,1)