Lösungen/Solutions/
B2S2Ue/Ex7

L = Lektion/ Leçon   -- Sprechstunde / heures de consultation
W = Work / Arbeit / Travail
A  =Anhang/  Annexe / Appendice

show[x] := {x,  N[x]}

Probl/Ex 1      W

F[x] = Integrate[3 Sin[x]  -  2 x Cos[x^2], x] + C

Probl/Ex 2      W

F[x] = Integrate[5 x^3 - 2  x^2 + 3  x + 4, x] + C

Probl/Ex 3      W

F[x] = Integrate[Log[x]/x  + E^x, x] + C

Probl/Ex 4      W

F[x] = Integrate[5 x^3 - 2  x^2 + 3  x + 4, {x, 1, 5}]

% // N

Probl/Ex 5      W

F[x] = Integrate[Cos[x], {x, 0, Pi}]

Probl/Ex 6      W

F[x] = Integrate[Sin[x], {x, 0, Pi}]

Probl/Ex 7      W

res = Integrate[a x^2, {x, 0, 2}]

res7 = Solve[res == 4, {a}]   //  Flatten

res7 = Solve[res == 4. , {a}]   //  Flatten

Probl/Ex 8      W

res = Integrate[ x^2, {x, 0, b}]

res8 = Solve[res == 4, {b}]   //  Flatten

res8 = Solve[res == 4. , {b}]   //  Flatten

res8 = Solve[res == 4. , {b}] [[3]]  //  
        Flatten

Probl/Ex 9      W

A = Integrate[ x^3, {x, 0, x2}]

res9 = Solve[A == 10, {x2}]   //  Flatten

res9 = Solve[A == 10. , {x2}]   //  Flatten

res9 = Solve[A == 10. , {x2}] [[4]]  //  
        Flatten