Alors voila cette après Midi je me suis "amusé" en révisant pour mon DS a faire un programme pour résoudre les équation de la forme f(x)=0 par méthode de dichotomie. Et je ne sais pourquoi moi programme ne marche pas je suis au bord du suicide aidez moi ! (oupas enfin c'est comme vous voulez hein :))
donc je vous link mon code parceque sinn vous allez pas trop pouvoir m'aider

Code:

:ClrHome  (oui je sais original nan ?) :Disp "F(X)=0 DS [A,B]" :Prompt A,B,D :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 :Disp "F(X)=0 POUR X=?",C

Merci d'avance et au premier qui trouve une erreur bête :)

Déjà sa fait quoi ? une erreur ? ou le programme marche mais répond faux ?

Ensuite c'est parce qu'il faut une majuscule à Then loool

nn bon je regarde un peu

Déja je comprend pas c'est quoi cette ligne ?
"F(X)=0 DS [A,B]"

c'est quoi A, B et D la dedant ??????

nulle part tu rentre l'expression de f(x) sa tourne pas rond sa...

nan l'erreur et que le programme ne s'execute pas enfin je sais pas exactement mais il me recrache bêtement la denrière valeur de C enregistré :s

a ba oui mais il marche quand meme, ce que je voulais dire c'est qu'il bug pas en faisant

EREUR:******
1. Quit
2. Goto

??

F(X)=0 DS [A,B@] c\'est juste un affichage pour savoir a quoi ça correspond au cas où
f(x) apparait sous la forme Y1 qui est rentré dans le slot pour graphique

et D est juste une valeur qui permet de faire un test d\'arret de l\'algoritme

nan nan malheuresement je préfèrerait parceque ça voudrait dire que j'ai fais une faute de merde mais là ça me prend la tête depuis 3 h et je craque xD

Après c'est normal qu'il te recrache betement la denière valeur de C, tu lui à dis a la denière ligne

Disp "F(X)=0 POUR X=?",C

ce qui équivaut à dire

***************************
*F(X)=0 POUR X=? *
* C *

répond moi surtout à sa sinon je peu rien faire

Déja je comprend pas c'est quoi cette ligne ?
"F(X)=0 DS [A,B]"

c'est quoi A, B et D la dedant ??????

nulle part tu rentre l'expression de f(x) sa tourne pas rond sa...

se que je veux dire c'est qu'il n'effectue pas l'algoritme si j stock 12 dans C a la fin du programme il me répondra 12 -_-

A et B son les bornes de l'ensemble et D est une valeur ptite qui permet de faie un test d'arret

f(x) est rentré dans les slot graphique (Y1)

Ba normal qu'il fasse rien de toute facon, faut que tu donne une valeur de dépar à R car par défaut R=0 donc t'a toujour R<C donc il saute tojour toute ta boucle et te répond juste C c'est tout :)

pigé ou pas ?

:Disp "F(X)=0 DS [A,B]"

Cette ligne n'est en faite là que pour faire jolie xD je rnetre manuellement ma fonction en faite j'avais pas pensé (shame on me ) a la demande dans le programme

Bien ouai met je la trouve pas claire du tout cette ligne, perso j'aurai plutot fais un truc du genre

: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

Et la suite :

:R=D+1
: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