Calculer l'aire sous la parabole

donc

nombreDeRectanglesAuDessus = 0 (slider from 0 to 100, step 1)
f(x) = 9 - (0.36 * x^(2))
nombreDeRectanglesEnDessous = 0 (slider from 0 to 100, step 1)
IntMajor = UpperSum(f, -5, 5, nombreDeRectanglesAuDessus)
IntMinor = LowerSum(f, -5, 5, nombreDeRectanglesEnDessous)
a = Integral(f, -5, 5)
texte1: " L'aire hachurée en rouge est égale à " + IntMajor + ""
texte2: "L'aire hachurée en bleu est égale à " + IntMinor + ""
texte5: "" + IntMinor + " < aire (en vert) sous la courbe < " + IntMajor + " "
texte6: "en réalité l'aire en vert sous le courbe
est égale à " + a + ""