Programme algorithme du sujet bac S Am du Nord

→ **MyCalcs** profile · by **flo1211** » 10 Jun 2016, 15:06

Bonjour,
Alors voila je suis en train d'essayer de mettre l'algorithme de l’exercice 2 du sujet bac s 2016 d'Amérique du nord sur ma TI Nspire CX CAS, C'est le premier programme que je tape et je galere un peu

il me répond terminer mais n'affiche strictement rien, j'ai attacher mon programe dans les fichiers joint. quand je fait

il me repond Syntaxe donc j'ai du me tromper a se niveaux la.

AlgoEx2BacSAmDuNord.tns

Merci d'avance,
Florian.

→ **MyCalcs** profile · by **Wistaro** » 10 Jun 2016, 15:09

Bonjour,

Tu devrais peut-être plutôt mettre ton code source entre les balises
[ code ] [/code]

→ **MyCalcs** profile · by **Hamza.S** » 10 Jun 2016, 15:11

voilà le code :

Code: Select all: Define algo1()= Prgm :Local a:=2 :Local b:=2*exp(1) :While (5*(((b^(2))/(2))ln(((b)/(2)))-2*b*ln(((b)/(2)))-((b^(2))/(4))+2*b-3))-(5*(((a^(2))/(2))*ln(((a)/(2)))-2*a*ln(((a)/(2)))-((a^(2))/(4))+2*a-3))>10^(−3) :Local c:=((a+b)/(2)) :if (5*(((c^(2))/(2))*ln(((c)/(2)))-2*c*ln(((c)/(2)))-((c^(2))/(4))+2*c-3))<((22)/(2)) :Then Local a:=c :Else Local b:=c :EndIf :EndWhile :Disp c*ln(c/2)-c+2 :EndPrgm

→ **MyCalcs** profile · by **critor** » 10 Jun 2016, 15:15

La vérification du code échoue - erreur de syntaxe.
Donc le programme ne fait rien.

Problème au début :

Code: Select all: Local a:=2 Local b:=2*e

A corriger en :

Code: Select all: Local a,b a:=2 b:=2*e

→ **MyCalcs** profile · by **Hamza.S** » 10 Jun 2016, 15:17

c'est Local suivi de toute tes variables, comme vient de le rappeler critor

Code: Select all: Local a,b,c © etc...

une fois fait tu n'as plus besoin de cette commande
pour les conditions c'est :

Code: Select all: If condition Then instruction Else instruction EndIf

→ **MyCalcs** profile · by **flo1211** » 10 Jun 2016, 16:23

Code: Select all: Define algo1()= Prgm :Local a,b,c :a:=2 :b:=2* :While (5*(((b^(2))/(2))ln(((b)/(2)))-2*b*ln(((b)/(2)))-((b^(2))/(4))+2*b-3))-(5*(((a^(2))/(2))*ln(((a)/(2)))-2*a*ln(((a)/(2)))-((a^(2))/(4))+2*a-3))>10^(−3) :c:=((a+b)/(2)) :if (5*(((c^(2))/(2))*ln(((c)/(2)))-2*c*ln(((c)/(2)))-((c^(2))/(4))+2*c-3))<((22)/(2)) Then :a:=c :Else b:=c :EndIf :EndWhile :Disp c*ln(((c)/(2)))-c+2 :EndPrgm

Voici le nouveaux code d’après vos conseil, j'ai mis un Disp comme marquer dans l’énoncé, mais je n'est toujours rien comme réponse...