Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1390 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Aide exercice VB

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Aide exercice VB

n°2216571
sidou24
Posté le 18-01-2014 à 17:21:41  profilanswer
 

Bonjour à tous,
J'ai reçu au lycée cet exercice... Je ne comprend pas bien ce qui ne joue pas dans mon code! Pouvez vous m'aider svp... Voila la donnée:
Ecrire un programme qui, un nombre x étant donné, estime la somme infinie:
1-x/1  +   x^2/(1∙2)   -   x^3/(1∙2∙3)    +   x^4/(1∙2∙3∙4)-
En cessant les calculs dès que le dernier terme additionné est inférieur à 10^(-10)
Le programme affiche alors la somme obtenue… Exemple :
Pour x = -2  Somme = 7.38905609…
 
Et moi j'ai ce code là:
 
Private Sub Command1_Click()
x = Val(Text1.Text)
s = 1
a = 0
m = 1
Do
c = c + 1
m = m * c
a = -((x ^ c) / (m))
s = s + a
Loop Until Abs(a) < (10 ^ -10)
Text2.Text = s
End Sub
 
 
Malheureusement mon résultat quand je met x= -2 n'est pas égal à 7.3890... Mais à 1.864...
 
Merci de vos réponses!

mood
Publicité
Posté le 18-01-2014 à 17:21:41  profilanswer
 

n°2216573
olivthill
Posté le 18-01-2014 à 18:14:23  profilanswer
 

Il manque l’initialisation de c.
Et surtout, il manque le changement de signe une fois sur deux.


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Aide exercice VB

 

Sujets relatifs
[Résolu] A l'aide ! (C++ IA)[VB.NET] Programme d'envoi de paquet
Aide assembleur 8086aide pour un programme en python (réception de e mails)
j ai besoin d aideAide pour un petit programme en C
[VB.net] que signifie << ?Besoin d'aide pour faire un script en .exe
[VB.net] Web service - Redémarrage IISaide svp
Plus de sujets relatifs à : Aide exercice VB


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR