Inéquation du type a x^n+b x^m >0

mettre une expression booléenne qui  sera true si la réponse est  bonne et à false sinon

cette valeur sera mise à false à chaque nouvel exercice et à true à chaque clic sur valider

le bouton nouvel énoncé passe cette valeur à false et si la réponse est fausse le script du bouton valider passe cette valeur à true

Nouvel énoncé

condition d'affichage des textes ou objets  "solutions"

Juste

Faux

Voir la solution

RAZ (à cacher )

\ovalbox{\text{Dernier exercice}}

0

0

0

0

0

0

-\infty

+\infty

x

-

-

+

+

+

-

-

+

+

-

+

-

-

-

+

+

+

a=

\ovalbox{-\infty}

\ovalbox{+\infty}

\ovalbox{\cup}

\ovalbox{\ ;\ }

\ovalbox{]...}

\ovalbox{[...

\ovalbox{...]}

\ovalbox{...[}

\ovalbox{\,\{\,}

\ovalbox{\,\}\,}

\ovalbox{\text{Effacer}}

\ovalbox{←}

\text{Utilisez le clavier virtuel pour écrire l'ensemble des}\
\text{solutions de l'inéquation noté S.}\
\text{Pour écrire un nombre, utilisez le champ de saisie jaune.}

\text{Mathématiques à Valin}

Commencer la série d'exercices

a = 4
b = 1
fac2(x) = (a * x) + b
xinf = Min(0, ((-b)) / a)
x0 = SurdText(xinf)
xsup = Max(0, ((-b)) / a)
mil: (xinf + xsup) / 2
x1 = SurdText(xsup)
n = 4
m = Mod(n, 2)
fac1b(x) = x^(m)
fb(x) = (fac1b(x) * fac2(x))
k = 9
f(x) = ((k * x^(n)) * ((a * x) + b))
cas = 4
int1 = If(cas ≟ 2 ∧ (f(-100)  <  0) ∧ (fb(mil)  <  0) ∨ cas ≟ 3 ∧ (f(-1000) > 0) ∧ (fb(mil) > 0), "\left]-\infty\,;\," + x1 + "\right]", "")
int2 = If(cas ≟ 2 ∧ (f(100)  <  0) ∧ (fb(mil)  <  0) ∨ cas ≟ 3 ∧ (f(1000) > 0) ∧ (fb(mil) > 0), "\left[" + x0 + "\,;\,+\infty\right[", "")
int3 = If(cas ≟ 2 ∧ (f(-100) > 0) ∧ (fb(mil)  <  0) ∧ (f(100) > 0) ∨ cas ≟ 3 ∧ (f(-1000)  <  0) ∧ (fb(mil) > 0) ∧ (f(100)  <  0), "\left[" + x0 + "\,;\," + x1 + "\right]", "")
int4 = If(cas ≟ 2 ∧ (f(-100)  <  0) ∧ (fb(mil) > 0) ∧ (f(100) > 0) ∨ cas ≟ 3 ∧ (f(-1000) > 0) ∧ (fb(mil)  <  0) ∧ (f(100)  <  0), "\left]-\infty\,;\," + x0 + "\right]\,\cup\,\left\{" + x1 + "\right\}", "")
int5 = If(cas ≟ 2 ∧ (f(100)  <  0) ∧ (fb(mil) > 0) ∧ (f(-100) > 0) ∨ cas ≟ 3 ∧ (f(-1000)  <  0) ∧ (fb(mil)  <  0) ∧ (f(100) > 0), "\left\{" + x0 + "\right\}\,\cup\,\left[" + x1 + "\,;\,+\infty\right[", "")
int6 = If(cas ≟ 2 ∧ (f(100)  <  0) ∧ (fb(mil) > 0) ∧ (f(-100)  <  0) ∨ cas ≟ 3 ∧ (f(-1000) > 0) ∧ (fb(mil)  <  0) ∧ (f(100) > 0), "\left]-\infty\,;\," + x0 + "\right]\,\cup\,\left[" + x1 + "\,;\,+\infty\right[", "")
int7 = If(cas ≟ 1 ∧ (f(100)  <  0) ∧ (fb(mil) > 0) ∧ (f(-100)  <  0) ∨ cas ≟ 4 ∧ (f(-1000) > 0) ∧ (fb(mil)  <  0) ∧ (f(100) > 0), "\left]-\infty\,;\," + x0 + "\right[\,\cup\,\left]" + x1 + "\,;\,+\infty\right[", "")
int8 = If(cas ≟ 1 ∧ (f(-100) > 0) ∧ (fb(mil)  <  0) ∧ (f(100) > 0) ∨ cas ≟ 4 ∧ (f(-1000)  <  0) ∧ (fb(mil) > 0) ∧ (f(100)  <  0), "\left]" + x0 + "\,;\," + x1 + "\right[", "")
int9 = If(cas ≟ 1 ∧ (f(-100)  <  0) ∧ (fb(mil) > 0) ∧ (f(100) > 0) ∨ cas ≟ 4 ∧ (f(-1000) > 0) ∧ (fb(mil)  <  0) ∧ (f(100)  <  0), "\left]-\infty\,;\," + x0 + "\right[", "")
int10 = If(cas ≟ 1 ∧ (f(-100) > 0) ∧ (fb(mil) > 0) ∧ (f(100)  <  0) ∨ cas ≟ 4 ∧ (f(-1000)  <  0) ∧ (fb(mil)  <  0) ∧ (f(100) > 0), "\left]" + x1 + "\,;\,+\infty\right[", "")
int11 = If(cas ≟ 1 ∧ (f(100)  <  0) ∧ (fb(mil)  <  0) ∧ (f(-100) > 0) ∨ cas ≟ 4 ∧ (f(-1000)  <  0) ∧ (fb(mil) > 0) ∧ (f(100) > 0), "\left]" + x0 + "\,;\," + x1 + "\right[\,\cup\,\left]" + x1 + "\,;\,+\infty\right[", "")
int12 = If(cas ≟ 1 ∧ (f(100) > 0) ∧ (fb(mil)  <  0) ∧ (f(-100)  <  0) ∨ cas ≟ 4 ∧ (f(-1000) > 0) ∧ (fb(mil) > 0) ∧ (f(100)  <  0), "\left]-\infty\,;\," + x0 + "\right[\,\cup\,\left]" + x0 + "\,;\," + x1 + "\right[", "")
solint: "" + (LaTeX[int10]) + "" + (LaTeX[int4]) + "" + (LaTeX[int1]) + "" + (LaTeX[int2]) + "" + (LaTeX[int3]) + "" + (LaTeX[int5]) + "" + (LaTeX[int6]) + "" + (LaTeX[int7]) + "" + (LaTeX[int8]) + "" + (LaTeX[int9]) + "" + (LaTeX[int11]) + "" + (LaTeX[int12]) + ""
posunion = IndexOf("\,\cup\,", solint)
autresolint = If(Defined[posunion], Take[solint, posunion + 8] + "\,\cup\," + (Take[solint, 1, posunion - 1]), "Rien")
ReponseJuste: solint ≟ phrase ∨ autresolint ≟ phrase
DemandeTest = false
VoirBoutonSolution = false
VoirSolution = false
grade = 0
numexo = 1
gain = 1
texteScore: "Score : " + grade + " / " + numexo + ""
NoteMax: 5
ExerciceCommence = false
g = Polynomial(f)
ineq1 = If(cas ≟ 1, "<", "")
ineq2 = If(cas ≟ 2, "\leqslant", "")
ineq3 = If(cas ≟ 3, "\geqslant", "")
ineq4 = If(cas ≟ 4, ">", "")
ineq: ineq1 + ineq2 + ineq3 + ineq4
texteEnonce: "\text{ Résoudre l'inéquation :  }" + (LaTeX[g]) + "" + (LaTeX[ineq]) + "0"
p = GCD(a, b)
fac1(x) = (k * x^(n))
fac11 = Polynomial(fac1)
fac22 = Polynomial(fac2)
xgauche: (2 * xinf) - mil
xdroite: (2 * xsup) - mil
A = (-4, 2.5)
B = (-1.2, 3.5)
C = (0.5, 3.5)
E = (3.5, 2.5)
H = (-4, -0.5)
I: (-1.2, -0.5)
J = (0.5, -0.5)
K: (1.8, -0.5)
L2 = (3.5, -0.5)
O = (-4, 3.5)
P = (3.5, 3.5)
h = Segment(O, P)
i = Segment(P, L2)
j = Segment(O, H)
l = Segment(H, L2)
mm = Segment(B, I)
Q = (0.5, 2.5)
R: (1.8, 2.5)
q = Segment(Q, J)
r = Segment(R, K)
s = Segment(A, E)
S = Point(j)
T = Point(i)
U = Point(j)
V = Point(i)
t = Segment(S, T)
c = Segment(U, V)
x11 = If((xsup > 0) ∧ (¬IsInteger[xsup]), "\phantom{-}" + x1, "")
x02 = If((xinf  <  0) ∧ (¬IsInteger[xinf]), "\ " + x0, "")
x04 = If(xinf ≟ 0, "\phantom{-\frac{1}{1}}\!\!0", "")
x03 = If((xinf  <  0) ∧ IsInteger[xinf], "\phantom{\frac{1}{1}}" + x0, "")
x10 = If((xsup > 0) ∧ IsInteger[xsup], "\phantom{\frac{1}{1}}" + x1, "")
tx0: "" + (LaTeX[x02 + x04 + x03]) + ""
x14 = If(xsup ≟ 0, "\phantom{\frac{1}{1}}0", "")
tx1: "" + (LaTeX[x10 + x11 + x14]) + ""
texte10: "" + (LaTeX[fac11]) + ""
texte11: "" + (LaTeX[fac22]) + ""
texte12: "" + (LaTeX[g]) + ""
intsol: int1 + int2 + int3 + int4 + int5 + int6 + int7 + int8 + int9 + int10 + int11 + int12
texteSolution: "\text{Voici la solution détaillée:}\\" + (LaTeX[g]) + "" + (LaTeX[ineq]) + "0\ ⇔\  " + (LaTeX[fac11]) + "\,(" + (LaTeX[fac22]) + ")" + (LaTeX[ineq]) + "0\\
\phantom{A}\\
\phantom{A}\\
\phantom{A}\\
\phantom{A}\\
\phantom{A}\\
\phantom{A}\\
\phantom{A}\\
\phantom{A}\\
\phantom{A}\\
\phantom{A}\\
\phantom{A}\\
\text{On déduit du tableau de signe ci-dessus que l'ensemble des}\\
\text{solutions de l'inéquation est  l'ensemble } " + (LaTeX[intsol]) + ".

\phantom{A}\\"
L: {""}
aa = 2
textea = SurdText(aa)
ChampTexte1 = Textfield(ta)
texte39: "" + (LaTeX[autresolint]) + ""
messagefin = If(Element[L, Length[L]] ≟ "\left[" ∨ Element[L, Length[L]] ≟ "\left]", "...", "")
texteAffiché: "\text{S}=" + (LaTeX[phrase]) + "" + (LaTeX[messagefin]) + "\phantom{\frac{1}{1}}"