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

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  besoin d'aide pour resolution equation scd. degré (vb)

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

besoin d'aide pour resolution equation scd. degré (vb)

n°1610944
katagena12​3
Posté le 12-09-2007 à 11:47:54  profilanswer
 

Bonjour, comment faire une résolution d'une equation du second degré si possible en language Visual Basic ?
Merci.

mood
Publicité
Posté le 12-09-2007 à 11:47:54  profilanswer
 

n°1610962
kiki29
Posté le 12-09-2007 à 12:39:33  profilanswer
 
n°1647572
pedrolito3​7skyblog
pedrolito37.skyblog.com
Posté le 22-11-2007 à 18:45:37  profilanswer
 

Sub EquationSecondDegre()
 Dim A as single, B as single, C as single, Delta as double
 Msgbox "Une équation du second degré est de la forme ax² + bx + c = 0"
 A = Inputbox("Entrer la valeur du coefficient a : " )
 B = Inputbox("Entrer la valeur du coefficient b : " )
 C = Inputbox("Entrer la valeur du coefficient c : " )
 Delta = B*B-4*A*C
 IF Delta>0 Then
     X1 = (-B+Delta^0.5)/2/A
     X2 = (-B-Delta^0.5)/2/A
     Msgbox "Le discriminant est positif, les solutions de cette équation sont : X1 = " & X1 & " et X2 = " & X2
   ELSE
     IF Delta=0 Then
         X = (-B/2/A)
         Msgbox "Le discriminant est nul, la solution de cette équation est : X = " & X
       ELSE
         Msgbox "Le discriminant est négatif, cette équation n'admet pas de racine réelle."
     END IF
 END IF
 Msgbox "Nous vous remercions d'avoir utilisé ce programme."
 Msgbox "Au revoir et à bientôt."
 
End Sub


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

  besoin d'aide pour resolution equation scd. degré (vb)

 

Sujets relatifs
Recherche aide avec InstallShield ProAide pour débuter la programmation d un mini jeu
Pb pour trier des données .xls à l'aide d'une macrobesoin d'explications pour PHP/PGSQL
Aide pour VBA sous Excelintegrer un fichier d'aide dans un projet
besoin d'aide date phpAide pour jeu de voiture en c++ avec SDL
[python] (debutant) besoin d'un coup de main 
Plus de sujets relatifs à : besoin d'aide pour resolution equation scd. degré (vb)


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