algo

[vincentrouxel]

salut a tous, j'arrive pas a finir cet algorithme sa me met un message avec bloc quelqu'un peux m'aider?

Code: Select all

Define s()=
Prgm
:Local a,b,c
:2→a
:2*exp(1)→b
: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))/(2))+2*a-3))>10^(−3)
:  ((a+b)/(2))→c
:  If 5*(((c^(2))/(2))*ln(((c)/(2)))-2*c*ln(((c)/(2)))-((c^(2))/(4))+2*c-3)<((7)/(2))
:  c→a
:  Then
:  c→b
:  EndIf
:EndWhile
:Disp c*ln(((c)/(2)))-c+2
:EndPrgm

[vincentrouxel]

le carré en fait c'est exponentiel
et je smiley c'est un d....

[Wistaro]

C'est quoi l'erreur exacte?

[vincentrouxel]

quand je fait vérifier la syntaxe sur nspire cx cas, sa me met, manque d'une instruction de début ou de fin de bloc

[TheMachine02]

Code: Select all

    Define s()=
    Prgm
    :Local a,b,c
    :2→a
    :2*exp(1)→b
    :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))/(2))+2*a-3))>10^(−3)
    :  ((a+b)/(2))→c
    :  If 5*(((c^(2))/(2))*ln(((c)/(2)))-2*c*ln(((c)/(2)))-((c^(2))/(4))+2*c-3)<((7)/(2))
    : Then
    :  c→a
    :  Else
    :  c→b
    :  EndIf
    :EndWhile
    :Disp c*ln(((c)/(2)))-c+2
    :EndPrgm

Le Then est une instruction à mettre après le if, c'est l'équivalent de 'alors'. Else c'est 'sinon'

[vincentrouxel]

dac je le refais et te redis

[Hamza.S]

c'est :

Code: Select all

If condition Then
  instruction
Else
  instruction
EndIf

dans ton programme la variable c n'est pas définie donc ça peut poser un problème, à la ligne While