Fonction intégrFonct(

→ **MyCalcs** profile · by **Nas4** » 26 Jan 2013, 12:49

Bonjour à tous
j'ai commencé à faire un petit programme sur les intégral et voilà ce que j'obtiens sur l'image si dessous

,

donc je voudrai savoir si vous aviez pas une solution à ça.
Merci

→ **MyCalcs** profile · by **Persalteas** » 26 Jan 2013, 12:51

oui, ta calculatrice n'a pas le CAS, elle ne calcule donc pas les intégrales avec des formules littérales, mais avec les valeurs dans X...

C'est comme ça

→ **MyCalcs** profile · by **Nas4** » 26 Jan 2013, 12:55

je ne comprend pas, car si j’allège le programme au max j’obtiens bien 0.5

→ **MyCalcs** profile · by **Persalteas** » 26 Jan 2013, 12:58

ah. D'accord, oublie mon message, j'avais mal compris ton problème. J'ai pas fait suffisamment de maths dans ma vie pour que ça me saute aux yeux...

Vérifie que la variable I n'est pas modifiée entre le calcul et l'affichage... Envoie le code, si tu veux.

→ **MyCalcs** profile · by **Nas4** » 26 Jan 2013, 13:06

Code: Select all: :ClrHome :ClrDraw :RecallGDB 1 :0→Ymin:Horiz :Horizontal 5:Horizontal 3.7:Line(‾5,5,‾5,3.7:Line(5,5,5,3.7 :Text(1,20,"CALCUL INTEGRAL :Text(17,2,"I = :Line(‾3.6,2.5,‾3.6,.8 :Pt-On(‾3.5,2.6:Pt-On(‾3.4,2.5:Pt-On(‾3.7,0.6:Pt-On(‾3.8,0.8 :Text(10,18,"b :Text(23,16,"a :Text(17,21,"f(X) dx :Input "a= ",Str2 :Str2→A :Text(24,16,Str2 :Input "b= ",Str3 :Str3→B :Text(11,17,Str3 :Input "f(x)= ",Str1 :Text(18,21,Str1," dx"," :ClrHome :Str1→Y1 :Disp "I=",fnInt(Y1,X,A,B :Pause :Full:‾5→Ymin:ClrHome

→ **MyCalcs** profile · by **Persalteas** » 26 Jan 2013, 13:15

j'ai trouvé d'où vient le problème, il vient de tes "Str3→B".

rajoute un "expr(" devant.

Code: Select all: :ClrHome :ClrDraw :RecallGDB 1 :0→Ymin:Horiz :Horizontal 5:Horizontal 3.7:Line(‾5,5,‾5,3.7:Line(5,5,5,3.7 :Text(1,20,"CALCUL INTEGRAL :Text(17,2,"I = :Line(‾3.6,2.5,‾3.6,.8 :Pt-On(‾3.5,2.6:Pt-On(‾3.4,2.5:Pt-On(‾3.7,0.6:Pt-On(‾3.8,0.8 :Text(10,18,"b :Text(23,16,"a :Text(17,21,"f(X) dx :Input "a= ",Str2 :expr(Str2→A //modifié :Text(24,16,Str2 :Input "b= ",Str3 :expr(Str3→B //modifié :Text(11,17,Str3 :Input "f(x)= ",Str1 :Text(18,21,Str1," dx"," :ClrHome :Str1→Y1 :Disp "I=",fnInt(Y1,X,A,B :Pause :Full:‾5→Ymin:ClrHome

→ **MyCalcs** profile · by **Nas4** » 26 Jan 2013, 13:23

ok je vais essayé ça, merci !

→ **MyCalcs** profile · by **Nas4** » 26 Jan 2013, 15:40

je comprend toujours rien, cette foi le programme m’affiche toujours 0.
Es-que ça marche chez toi ?

→ **MyCalcs** profile · by **Persalteas** » 26 Jan 2013, 15:55

en gros, c'est tes variables A et B qui sont égales à zéro au moment du calcul, ça va pas.

Si ça ne marche toujours pas, essaye de remplacer A et B par I et J par exemple.